试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省衢州市2018-2019学年高二下学期信息技术期末教学质量检测试卷
Randomize
For i = 1 To 6
a(i) = Int(Rnd * 20) + 1
If a(i) Mod 2 = i Mod 2 Then a(i) = a(i) - 1
Else
a(i) = a(i) + 2 End If
Next i
执行该程序段后，a（1）~ a（6）各元素可能的是（ ）
Private Sub Command1_Click( )
Dim x As String, k As String, j As Integer
x = "XiaoWei" ①
k = "语文" ②
j = 90 ③
Text1.Text = x + k +j ④
End Sub
Private Sub Command1_Click()
Dim d(1 To 8) As Integer
Dim i As Integer, s As Integer
d(1)=1
For i=2 To 10
d(i)=d(i-1)*i
For i=1 To 5
s=s+d(i)
Text1.Text = Str(s)
程序运行时，单击命令按钮Command1后，将会出现的提示信息是（ ）
试题篮
