单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim I,Num
Randomize
DO
For I=1 To 1000
Num=Int(Rnd*100)
Print Num；
Select Case 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时窗体关闭、程序结束

<上一题目录下一题>

热门试题

单项选择题

假定有下列函数过程： Function Fun(S As String)As String Dim sl As String For i=1 To Len(S) S1=LCass(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As String,Str2 As String Str1=InputBox( 请输入一个字符串 ) Str2=Fun(Str1) Print Srt2 End sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为( )

A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba

单项选择题

假定有以下循环结构： Do Until条件表达式循环体 Loop 则下列描述正确的是( )

A．如果“条件表达式”的值是0，则一次循环体也不执行
B．如果“条件表达式”的值不为0，则至少执行一次循环体
C．不论“条件表达式”的值是否为真，至少要执行一次循环体
D．如果“条件表达式”的值恒为0，则无限次执行循环体

相关试题