题库 高中信息

题干

有如下VB程段:
Private Sub Command1_Click()
Const n = 8
Dim i As Integer, a As Integer, s As String
Randomize
i=1
s = s + Str(Int(Rnd * 19) + 1)
Do While i < n
a = Int(Rnd * 19) + 1
If a Mod 2 = i Mod 2 Then
s = s + Str(a)
i = i + 1
End If
Loop
Text1.Text = s
End Sub
运行程序后,文本框 Text1 中可能出现的是( )
A.4 13 20 9 14 19 4 9B.7 8 19 8 7 18 3 1
C.6 19 12 19 16 11 10 11D.15 18 7 18 19 12 5 11
上一题 下一题 0.99难度 选择题 更新时间:2019-07-10 02:39:19

答案(点此获取答案解析)