试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省浙南名校联盟2020届高三上学期信息技术第一次（10月）联考试卷
i=1：n=5
Do while i<=n
x=Int(Rnd*9)+1
If x Mod 2=1 Then
a(i)=x
Else
a(n)=x:n=n+1
End If
i=i+1 Loop
数组元素的初值均为0，执行该程序段后，a(1)至a(5)的值可能是（ ）
程序界面如图所示，当单击“求解”按钮Command1时，在列表框List1中显示所有满足条件的组合。
程序代码如下，请在划线处填上合适的代码。
Dim a(0 To 9) As Integer
Private Sub Command1_Click()
Dim i, n, m As Integer
For i = 123 To 333
For n = 1 To 9
a(n) = 0
Next n
s = 0
call fenjie (i) ‘使用call调用自定义过程,下同
call fenjie (2 *i)
call fenjie (3 *i)
For m = 1 To 9
s ={#blank#}1{#/blank#}
Next m
If s = 9 Then List1.AddItem i & “ ” & 2 * i & “ ” & 3 * i
Next i
End Sub
Sub fenjie(x As Integer) ‘自定义过程,将3位数分解并修改对应下标元素的值
a(x Mod 10) = 1
{#blank#}2{#/blank#}
a(x \ 100) = 1
Dim M(10) as integer
For i = 0 To 10
M(i) = 2*i
Print M(M(3))
a(1) = 1
For i = 2 To 6
Randomize
a(i) = a(i - 1) + Int(Rnd * 5 + 1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) \ 2 + 1
a(i) = a(i) / 2
执行程序后，a数组各元素可能是（ ）
试题篮
”被执行的次数为（ ） 
