For i=1 To 10
b(a(i) Mod 10)= b(a(i) Mod 10)+1
b(a(i)\10)=b(a(i)\10)+1
Next i
num=0
For i=0 To 9
If b(i>num Then num b(i)
Next i
数组b各元素初始值为0，数组元素a(1)到a(10)的值依次为“68，17，24，30，36，40，55，58，61，66”，执行该程序段，num的值为（ ）
a(1)=91: a(2)=5: a(3)=65: a(4)=8: a(5)=78: a(6)=13: a(7)=29: a(8)=18
For i=2 To 5
tmp= a(i)
L=1
R=i-1
Do While l<= R
M= Fix(L+ R)/2)
If tmp <=a(M) Then R= M-1 Else L= M+1
Loop
j=i-1
Do While j＞=L
a(j+1)=a(j)
j=j-1
Loop
a (L)= tmp
Next i
执行上述代码后，数组a中的元素分别是（ ）
i=1: j=8: c=0
key= Val(Textl. Text)
Do While i<=j
m=Int((i+j)/2)
t=b(m)
c=c+1
If a(t)=key Then p=t:Exit Do
If a(t)<key Then
i=m+1
Else
j=m-1
End If
Loop
当文本框 Text1中输入的值为32时，程序运行结束后变量c的值为（ ）
|
图b |
|
图c |
|
图a |
|
图b |
|
图c |
算法思路：n较大时，n！的值将超出long类型范围，求出n！的结果再数0的个数不现实。那么末尾的0到底是从哪里来的？每一个因子5与任一偶数相乘就会产生一个0。所以末尾有多少0是由因子5的个数决定的，求出因子5的个数即是末尾0的个数。程序运行界面和代码如图所示。
Private Sub Command1_Click()
Dim n As Integer
n=Val(Text1. Text)
i=1
Do While
s=s+n\5^i
i=i+1
Loop
List1. AddItem Str(n)+"!末尾包含0的个数:"+
End sub
注：福彩“双色球”玩法；在1-33个红色球影申随机生成6个号码，在1~16个蓝色球号码中随机生成个号码，共计6+1个号码开奖。
程序运行界面如图所示。
Dim red(1 To 600) As Integer '用于存储100*6红色球信息
Dim blue(1 To 100) As Integer '用于存储100*1蓝色球信息
Private Sub Form_Load()
'本过程用于从数据库data. accdb中读取最近100期双色球开奖信息
'将100*6个红色球开奖信息依次存储在数组red()中
'将100*1个蓝色球开奖信息依次存储在数组blue()中
'将最近100期开奖信息格式化后显示在列表框List1中
'本过程代码略
End Sub
Private Sub Command1_Click()
Dim min As Integer
Dim s As string
Dim f(1 To 33)As Integer
'——以下开始处理蓝色球部分——
For b= 1 To 100
f(blue(b))= f(blue(b))+1
Next b
min= 100
For i= 1 To 16
If f(i)< min Then min f(i)
Next i
For i=1 To 16
If f(i)= min then s=
f(i)=0
Next i
List2. Additem"蓝色球重点买人:"十s
'——以下开始处理红色球部分——
For r=1 To 600
Next r
|
f(1)-f(11): |
6 |
8 |
20 |
25 |
16 |
21 |
14 |
20 |
24 |
28 |
26 |
|
f(12)-f(22): |
1 |
30 |
8 |
1 |
10 |
10 |
33 |
28 |
32 |
20 |
6 |
|
f(23)-f(33): |
4 |
34 |
29 |
18 |
25 |
30 |
4 |
13 |
30 |
20 |
6 |
结合加虚线框处代码的算法，输出的内容是：
红色球重点买入：（按输出顺序写出6个红球号码)。
