(29)在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Dim I, NumRandomizeDoFor I=1 To 1000Num=Int(Rnd*100)Print Num;Select Case NumCase 12Exit ForCase 58Exit DoCase 65, 68, 92EndEnd SelectNext ILoopEnd Sub上述事件过程执行后,下列描述中正确的是( )。A)Do 循环执行的次数为 1000 次B)在 For 循环中产生的随机数小于或等于 100C)当所产生的随机数为 12 时结束所有循环D)当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束

(29)在窗体上画一个命令按钮,然后编写如下事件过程:

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 时窗体关闭、程序结束


相关考题:

在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是_________。A.13.45.8B.1 3 5C.147D.无数据输出

在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:程序运行后,单击命令按钮,其输出结果为__________。

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do UntiL num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。A.13.45.8B.1 3 5C.1 4 7D.无数据输出

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private SubCommand1_Click() Dim num As Integer num=1 DO Until mum>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。A.1 3.4 5.8B.1 3 5C.1 4 7D.无数据输出

在窗体上画一个命令按钮,然后编写如下事件过程: 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.ABCDEB.1 2 3 4 5C.abcdeD.出错信息

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A)机床B)车床C)钻床D)轴承

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。A.13.45.8B.1 3 5C.147D.无数据输出

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 DO Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。A.13.45.8B.1 3 5C.1 4 7D.无数据输出

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Sub Command1_Click()num As Integer= 1Until num >6num;= num + 2.4Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )A、1 3.4 5.8B、1 3 5C、1 4 7D、无数据输出