在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I,Num Randomize Do For I=1 To 1000 Num=Int(R

admin2017-04-25  21

问题 在窗体上画一个命令按钮,然后编写如下事件过程:
    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时窗体关闭、程序结束

答案D

解析 本题考查的考点是有关随机数和退出语句的。在本题中,首先在循环中生成一个随机数,由于Rnd函数可以生成0~1开区间的数,所以hat(Rnd*100)能够生成0~99之间的整数,随后对此数进行判断,当随机数为12时退出内循环;当随机数为58时退出外循环;当随机数为65、68或92时将会结束整个窗体的运行。本题中的循环次数受随机数控制,所以次数不定。
转载请注明原文地址:https://kaotiyun.com/show/WQGp777K
0

最新回复(0)