2. 计算机
  3. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer, x As Integer Randomize Do For

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer, x As Integer Randomize Do For

admin2018-09-19  48
问题 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   Dim k As Integer, x As Integer
   Randomize
   Do
      For k = 1 To 1000
         x = Int(Rnd() * 100)
         Print x;
         Select Case x
            Case 10
               Exit For
            Case 50
               Exit Do
            Case 60, 90
               End
         End Select
      Next k
   Loop
End Sub
上述事件过程执行后，下列叙述中正确的是
选项 A、事件过程无法正常结束
B、DO循环的执行次数为1000次
C、当产生的随机数为10时退出所有循环
D、当产生的随机数为60或90时关闭窗体，结束程序
答案D
解析 x是0~100之间随机数的整数形式（不包括0和100）。事件过程可以正常结束，当x为50,60,90时都可结束，故A错误；Do循环执行次数不确定，如果随机数为50时，退出Do循环，故选项B表述错误；当x为10，退出For循环，但是不能退出Do循环，故C表述错误；当产生的随机数为60或90时关闭窗体，结束程序，故D选项正确。
转载请注明原文地址:https://kaotiyun.com/show/xEFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)