窗体上有1个名称为Commandl的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim nuln As Integer,X As Integer num=Vat(I

admin2013-11-29  23

问题 窗体上有1个名称为Commandl的命令按钮,事件过程如下:
    Private Sub Commandl_Click()
           Dim nuln As Integer,X As Integer
           num=Vat(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。第2次输入90时,Select语句执行Case Else分支x=x*num=0*90=O。第3次输入60时,Select语句执行Case Is<90分支x=Bum=60。因此窗体上显示为0 0 60。
转载请注明原文地址:https://jikaoti.com/ti/0S60FFFM
0

最新回复(0)