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

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

admin2020-04-18  37
问题 窗体上有1个名称为Command1的命令按钮，事件过程如下：
  Private Sub Commandl_Click()
    Dim Bum 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
    PIint 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://kaotiyun.com/show/7YTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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