2. 计算机
  3. 窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() 　　Dim num As Integer， x As Integer 　　num＝Val(InputBox("请输入一个正整数")) 　

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() 　　Dim num As Integer， x As Integer 　　num＝Val(InputBox("请输入一个正整数")) 　

admin2019-03-14  51
问题 窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
　　Dim num As Integer， x As Integer
　　num＝Val(InputBox("请输入一个正整数"))
　　Select Case num
　　　　Case Is>100
　　　　　　x＝x＋num
　　　　Case Is<90
　　　　　　x＝num
　　　　Case Else
　　　　　　x＝x * num
　　End Select
　　Print x；
End Sub
运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为(　　)。
选项 A、0　0　0
B、0　0　60
C、0　90　0
D、100　0　60
答案B
解析 按钮事件中变量x为过程局部变量，第1次输入100时，Select语句执行Case Else分支x＝x*num＝0*100=0。第二次输入90时，Select语句执行Case Else分支x＝x*num＝0*90=0。第三次输入60时Select语句执行Case Is<90分支x=num=60。因此窗体上显示为0  0  60。
转载请注明原文地址:https://www.kaotiyun.com/show/AsUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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