在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer Dim num As Integer Dim n As Int

admin2019-07-30  25

问题 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
     Dim i As Integer
     Dim num As Integer
     Dim n As Integer
     n = 0
     Randomize
     For i = 1 To 10
         num = Int(Rnd * 10) + 1
         Select Case num Mod 2
           Case 1
                Exit For
           Case 0
                Print num
                n = n + 1
         End Select
     Next i
     Print "n="; n
End Sub
下面有关描述中正确的是(    )。

选项 A、变量n的作用是累计自过程运行开始到结束所产生的偶数个数
B、当num的值为偶数时,则For循环将被终止
C、程序运行过程中,变量num共被赋值10次
D、num的值是1~11之间的整数

答案A

解析 Rnd为英文Random的简写,中文意随机数。Rnd函数可以产生随机数,当一个应用程序不断地重复使用随机数时,同一序列的随机数会反复出现,用Randomize语句可以消除这种情况。在For循环中,循环变量i初始值为1,终止值为10,循环体语句"num = Int(Rnd * 10) + 1"可以随机产生一个0~9之间的随机整数赋值给变量num。故D选项错误;Select Case语句中根据num mod 2的结果,判断执行哪一个分支,如果num为偶数,则执行Case 0分支,如果num为奇数,则执行Case 1分支,当执行Case 1分支时,Exit For 语句为结束循环,故B、C选项均错误。程序通过语句"n = n + 1"来统计num为偶数的个数,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/SpUp777K
0

最新回复(0)