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

admin2013-11-29  29

问题 在窗体上画一个命令按钮,然后编写如下事件过程:
    Private Sub Commandl_Click()
        Dim I,Num
        Randomize
        Do
          For I=l 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

解析 程序Do循环中镶嵌了For衙环,Do循环没有设置结束条件,而是在For循环体中的Select了退出Do循环和For循环及结束程序的分支,因此Do循环的次数无法确定。随机函数Rnd产生[0,1]之间的一个数,包括0但不包含1,因此Rnd * 100的范围是大于等于0小于100。随机数为65、68或92时结束程序关闭窗体,为58时退Do循环,为12时退出For循环进入下一次Do循环。
转载请注明原文地址:https://jikaoti.com/ti/oI60FFFM
0

最新回复(0)