在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim I，NumRandomizeDoFor I=1 To 1000Num=Int(Rnd*100)PrintNum；SelectCase NumCase 12Exit ForCase 58Exit DoCase 65，68，92EndEnd SelectNextILoopEnd Sub上述事件过程执行后，下列描述中正确的是A．Do循环执行的次数为1000次B．在For循环中产生的随机数小于或等于100
题目
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim I，Num
Randomize
Do
For I=1 To 1000
Num=Int(Rnd*100)
PrintNum；
SelectCase Num
Case 12
Exit For
Case 58
Exit Do
Case 65，68，92
End
End Select
NextI
Loop
End Sub
上述事件过程执行后，下列描述中正确的是
A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束
相似考题
更多“在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()Dim I,NumRandomize ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程：
运行后的输出结果是______。
A．3
B．10
C．20
D．2
正确答案：A
解析：“If(条件，表达式1，表达式2)”根据“条件”返回表达式1或表达式2的值。 -
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
正确答案：A
-
第3题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
正确答案：C
暂无解析，请参考用户分享笔记 -
第4题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是__________。
正确答案：
hardware【解析】本题考查消息框的知识。使用MsgBox函数来弹出消息框，此函数的使用格式为：MsgBox(prompt[，buttons][，title][，helpfile，context])其中第一个参数是显示在对话框中的消息，第二个参数是按钮的数目及形式，第三个参数是对话框标题栏显示的字符串，后面的是帮助文件以及帮助上下文编号。第一个参数必需有，其余参数可省略，但是若中间若干个参数省略时不能省略逗号分隔符。本题中第三个参数是变量b，即hardware。 -
第5题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A)机床
B)车床
C)钻床
D)轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。 -
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。
A．ABCDE
B．1 2 3 4 5
C．abode
D．出错信息
正确答案：A
解析：本程序段首先定义了一维数组a，然后用For循环为其赋值，Asc()函数的作用是返回字符的ASCII码，字符“A”的ASCII码为65，Chr()函数的作用是将ASCII码值变为相应的字符，而“a(i)=Chr(Asc("A")+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a，所以a的元素是A、B、C、D、E。For Each-In用于输出a中元素的值。