在窗体上添加一个命令按钮,名为Command1,事件过程如下:程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1后,输出的结果是______。A.5B.4C.3D.2

题目

在窗体上添加一个命令按钮,名为Command1,事件过程如下:

程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1后,输出的结果是______。

A.5

B.4

C.3

D.2


相似考题
参考答案和解析
正确答案:D
解析:本题的难点是do until…Loop循环。do until循环条件为真时退出循环体,即x= -1时退出循环。程序计算过程为a=5、2,b=4、1,c=3、-1。
更多“ 在窗体上添加一个命令按钮,名为Command1,事件过程如下:程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1后,输出的结果是______。A.5B.4C.3D.2 ”相关问题
  • 第1题:

    在窗体上有一个命令按钮,然后编如下事件过程:

    程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 。


    正确答案:
    -1的平方根是一个虚数
    【解析】在Sub过程中,定义了一个Double型变量N,并调用InputBox函数,给N赋值,即将从对话框中输入的-1赋给N;通过运算符”&”,将N与字符串”的平方根”连接起来并赋给Msg;在条件块语句中将N作为参数,调用SR事件过程,将Function过程的返回值作为测试表达式;在SR函数中,调用Sgn函数测试x的值为正数还是负数,如果是正数,那么就执行条件块语句中的SR=Sqr(x),即将X的平方根作为返回值,如果x值为零,Sgn函数返回值为零,那么就将0作为返回值;如果为负数。Sgn函数返回值为-1,SR=-1,即将-1作为返回值;在Sub程序的条件块语句中,根据SR返回值的不同,执行不同操作,当返回值为0,将Msg字符串加”是0”,赋给Ms9,如果是-1,将Msg加”是一个虚数”赋给Msg,当为其他时,即在平方根时,将字符串Msg加”是”,再加上这个数的平方根赋给Msg,并用MsgBox函数输出。

  • 第2题:

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

    程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是__________。


    正确答案:
    -3【解析】本题考查VBA中循环的知识。对于这种循环结构,首先看条件判断在循环体的前面还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环;在While循环中条件为True时执行循环体,条件为False时退出循环,这一点要注意区分清楚。本题是一个先判断条件的While循环,每次循环中有两次输入,共循环3次;由于在每次循环中均会重新对a、b、C进行赋值,所以只需要考虑最后一次循环就可以,在最后一次循环中c等于最后两次输入的值之和也就是-3

  • 第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题:

    在窗体上画一个名为Command1的命令按钮,编写如下程序:

    程序运行后,单击命令按钮,输出的结果是_________。


    正确答案:
    4
    【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值,然后通过数组下标嵌套本身。注意:这样的嵌套时,要保证数组下标不出界,否则程序将出错。

  • 第5题:

    ( 15 )在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:

    Private Sub Command1_Click ()

    Dim b,k

    For k=1 to 6

    b=23+k

    Next k

    MsgBox b+k

    End Sub

    打开窗体后,单击命令按钮,消息框的输出结果是 【 15 】 。


    正确答案: