窗体上有1个名称为Command1的命令按钮,事件过程如下: Pfivate Sub Command1_Click() Dim num As Integer.x As Integer num=Val(InputBox("请输入一个正

admin2019-04-29  26

问题 窗体上有1个名称为Command1的命令按钮,事件过程如下:
    Pfivate 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

解析 多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。其格式为:同上题。
    本题中第一次输入100执行Case Else分支,由于x是默认初值0所以输出0;第二次输入90也执行Case Else分支,由于x是默认初值0所以输出0;第三次输入60执行第二个分支输出60。  
转载请注明原文地址:https://kaotiyun.com/show/sQUp777K
0

最新回复(0)