给出窗体单击事件过程：PRIVATE SUB FORM_CLICK( )DIM A AS INTEGERA =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))SELECT CASE A MOD 5CASE IS＜4W=A+10CASE IS＜2W=A.2CASE ELSEW=A-10END SELECTMSGBOX WEND SUB当运行程序后，设输入的数据分别为14、3、125、21时，消息框显示的内容分别是【 】。

题目

给出窗体单击事件过程：

PRIVATE SUB FORM_CLICK( )

DIM A AS INTEGER

A =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))

SELECT CASE A MOD 5

CASE IS＜4

W=A+10

CASE IS＜2

W=A.2

CASE ELSE

W=A-10

END SELECT

MSGBOX W

END SUB

当运行程序后，设输入的数据分别为14、3、125、21时，消息框显示的内容分别是【 】。

相似考题

1.（ 18 ）在程序运行时，下面的叙述中正确的是A ）用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B ）用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C ）只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D ）装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程

2.在窗体上画一个命令按钮，然后编写如下事件过程：private sub command1_click()dima,basintegera=Val(inputbox("EntertheFirstinteger"))b=Val(inputbox("EntertheSecondinteger"))Printb+aend sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )A.456B.111C.567D.111456

3.在程序运行时，下面的叙述中正确的是A．用鼠标右键单击窗体中无控件的部分，会执行窗体的Form. L0ad事件过程B．用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C．只装入而不显示窗体，也会执行窗体的Form. Load事件过程D．装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程

4.在窗体上添加一个命令按钮，名为command1，事件过程为：Private Sub command1_Click( )x=0Do Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 ( )A.2B.3C.4D.5

参考答案和解析
正确答案：4、13、135、31
4、13、135、31 解析：多路分支结构SELECTCASE运行时，执行的路径是由表达式的值和各个CASE后的表达式的值进行比较来决定。
更多“给出窗体单击事件过程:PRIVATE SUB FORM_CLICK( )DIM A AS INTEGER A =VAL( INPUTBOX( "PLEASE I ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，然后编写如下事件过程：

    Private Sub Command1 Click()

    a= Val(InputBox(“请输入一个整数”))

    b=Val(InputBox(“请输入一个整数”))

    Print a+b

    End Sub

    程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。


    正确答案：46
    46 解析：考查InputBox函数的使用。InputBox函数返回的数据类型默认位字符串类型。Val(x)函数表示把变量x转换为数值。本题要求通过InputBox函数分别输入两个数据，并同时被转换为数值，再相加得到结果，其中a值为12，b值为34，结果为a+b=46。

  • 第2题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入A的值”) a= Val (A)b=InputBox(“请输入B的值”) b=Val (B)x=InputBox(“请输入x的值”) x=Val (x) a=a+ b+ x Loop Print a End Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______ 。

    A．2

    B．3

    C．14

    D．15


    正确答案：A

  • 第3题：

    在窗体上画一个命令按钮，然后编写如下事件过程: x = 0 Do Until x = -1 a = val（InputBox（"A的值")):b = val（InputBox（"B的值")) x = val（InputBox（"x的值")) a = a + b + x Loop Print a 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为_____。

    A．14

    B．3

    C．2

    D．12


    C 因为X重新赋值，所以每次循环结果一样。计算一次即可，结果为l5。对于y，内层循环一次，其值为3。共循环12次，所以其值为36。当多次单击命令按钮时，x是普通变量，每次单击只是重新计算一次，执行结果一样，仍然为15。但Y是静态变量，程序没有结束运行之前，仍然保持上一次的值。每单击一次按钮，它将累计本次执行结果。执行三次，结果为36+36+36=108。选择C。

  • 第4题：

    在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。

    A．2

    B．3

    C．14

    D．15


    正确答案：A
    解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是2。

  • 第5题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A)b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。

    A．2

    B．3

    C．14

    D．15


    正确答案：A
    解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是2。

相关内容