试题 试卷
题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 数论练习
Private Sub Command1_Click()
Dim i As Integer, t As Integer
For i = 1 To 1 000
x =
t = Int(Sqr(x))
If x =Then List1.Additem
Next i
End Sub
For i=1 To 6
x=Int(Rnd*10)+1
If i Mod 2 = 1 Then
a(i)=2*x+1
Elself x Mod 2 = 0 Then
a(i)=x/2
Else
a(i)=x-1
End If
执行该程序段后，a(1)～a(6)各元素可能的值是（ ）
试题篮
