单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I，Num Randomize Do ForI=1 To 1000 Num=Int(Rnd*100) Print Num； SelectCase Num Case 12 Exit For Case 58 Exit Do Case 65，68，92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束

<上一题目录下一题>

热门试题

单项选择题

以下程序运行后，单击按钮输出结果是( )。Private Sub Commandl_Click( )Dim x As Integer，y As Integer，z As IntegerX=4：y=2： Z=3Call Gopd(x，x，z)Print x；X；ZCall Gopd(x，y，y)Print x；y；yEnd SubPrivate Sub Gopd(x As Integer，y As Integer，z As Integer)X=3 * Z + 1y=2 * zz=x + yEnd Sub

A．6　6　12 7 11 11
B．8　5　105 11 11
C．9　6　129 10 15
D．8　10　105 9 10

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )x=InputBox(“Input”)Select Case xCase 1，3Print“分支1”Case Is>4Print“分支2”Case ElsePrint“Else分支”End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。

A．分支1
B．分支2
C．Else分支
D．程序出错

相关试题