在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click()Do Until b＜Oa=InputBox("输入a的值")a=Val(A)b=InputBox("输入b的值")b=Val(B)a=a+bLoopPrint aEnd Sub程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【 】
题目
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
Do Until b＜O
a=InputBox("输入a的值")
a=Val(A)
b=InputBox("输入b的值")
b=Val(B)
a=a+b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【 】
相似考题
更多“在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click()Do Until b＜Oa=InputBox("输入a的值")a=Val(A)b=InputBox("输入b的值")b=Val(B)a=a+bLoopPrint aEnd Sub程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【 】”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程：
private sub command1_click()
dima,basinteger
a=Val(inputbox("EntertheFirstinteger"))
b=Val(inputbox("EntertheSecondinteger"))
Printb+a
end sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )
A.456
B.111
C.567
D.111456
正确答案：C -
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程：
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。 -
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click ( ) x = InputBox("Enter the First integer") y = InputBox("Enter the Second integer") Print y +xEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是 ______。
A．579
B．123
C．456
D．123456
正确答案：D
解析：本题的难点是InputBox函数。InputBox函数用来接受用户通过键盘输入的数据。其格式为：“InputBox(提示信息[，标题][默认值][，对话框的位置][，帮助文件名及帮助主题号])”，x和y是变体变量或字符串型变量，对字符串来讲符号“+”和“&”的作用一样，“”123”+”456”＝”123456””。 -
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Do Whileb＞=0
c=a+b
Loop
End Sub
程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是( )。
正确答案：-3
-3 解析： 本题考查VBA中，循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次：由于在每次循环中均会重新对a、b、c进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中c等于最后两次输入的值之和也就是-3。 -
第5题：
有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(A) b=InputBox(“请输入b的值”) b=Val(B) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为( )。
A．6000
B．-10
C．200
D．-6000
正确答案：B
-
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
DO Until b<0
a=InputBox(”输入a的值”)
a=Val(a)
b=InputBox(”输入b的值”)
b=Val(b)
a=a＋b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是【 】。
正确答案：-3
-3 解析：本题程序运行后，共输入4组数据， a依次取值为5、3、1、-1，b依次取值为4、2、 0、-2。注意到循环条件是“b -
第7题：
有下列事件过程：
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(A)
b=InputBox("请输入b的值")
b=Val(B)a=a*b
Loop
Print a
End Sub
程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。
A．6000
B．-10
C．200
D．-6000
正确答案：B
解析：本段程序的执行过程如下：第1次输入30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环：第3次输入10，给a赋值为10；第4次输入-1并赋值给变量b，再执行语句a=a*b=-10；然后判断循环条件，b=-1条件为真，所以退出循环。 -
第8题：
在窗体上画一个命令按钮，然后编写如下事件过程：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。 -
第9题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Do Until b ＜ 0
a = InputBox( "输入a的值" )
a = Val(@A@b = InputBox( "输入b的值" )
b =VM(@B@a=a+b
Loop
Print a
End Sub
程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。
正确答案：-3
-3 解析：本题程序运行后，共输入4组数据，a依次取值为5、3、1、-1，b依次取值为4、2、0、 -2。循环条件是“b0”，当“a=1，b=0”时，还要再输入第4组数据，这时“a=-1，b=-2”，然后结束循环。 -
第10题：
在窗体上画一个命令按钮，然后编写如下事件过程： 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。 -
第11题：
在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox<“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End Sub
A．19
B．21
C．42
D．19
正确答案：C
解析：InputBox()函数的功能是在一个对话框中提示用户输入信息，在确认(即单击“确定”按钮)之后将输入的内容以字符串形式返回，在程序中使用InputBox()函数分别为x、y和z变量赋值，当变量2的值不等于5的时候，结束循环，将得到的x、y、2的值进行运算(x+y+2z)，在窗体上打印(Print)输出运算结果。程序运行后，前两次输入的2值都是5，所以程序不会跳出循环，当第3次输入时，得到的x、y、z值分别为12、6、12，此时的2值不为5，程序结束循环并输出运算结果：12+6+2*12＝42。 -
第12题：
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。
A．6000
B．-10
C．200
D．-6000
正确答案：B
解析：本段程序的执行过程如下：第1次输,N 30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环；第3次输入10，给a赋值为10；第4次输入-1并赋值给变量b，再执行语句a=a*b=-10然后判断循环条件，b=-1条件为真，所以退出循环。 -
第13题：
（14）窗体中有一个命令按钮，然后编写下列事件过程： 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,8,5,8，-1，输出的结果是。
正确答案：12
【解析】程序执行过程如下：
第1次循环：输入5时，a=5；输入4时，b=4；输入8时，x=8；然后计算a=a+b+x=17。第2次循环：输入5时，a=5；输入8时，b=8；输入-1时，x=-1。然后计算a=a+b+x=12；此时条件不成立，退出循环。 -
第14题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Do Until b a＝In put Box("输入a的值")
a＝Val(a)
b＝Input Box("输入b的值")
b=Val(b)
a=a＋b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是【 】。
正确答案：-3
-3 解析：本题程序运行后，共输入4组数据， a依次取值为5、3、1、-1，b依次取值为4、2、 0、-2。注意到循环条件是“bO”，所以当“a＝1，b＝0”时，还要再输入第4组数据，这时“a＝-1,b＝-2”，然后结束循环。还要注意到， a=a＋b从形式上看是将b累加到变量a中，但实际上并不会起到累加的作用，因为a不断的被赋新值。这样，不管输入多少组数据，a的值仅仅是最后一组输入的数据之和。由此可见，输出的结果是-3。 -
第15题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
X=0
Do While X＜＞-1
X=Val(InputBox("请输入数据X:"))
Y=Val(InputBox("请输入数据Y:"))
If X*Y＜X+Y Then Print X，Y
Loop
End Sub
程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
正确答案：-3 8 18 -15
-3 8 18 -15 解析：本题程序运行后，共输入5组数据，x依次取值为7、-3、-5、18、-1，Y依次取值为 2、8、-10、-15、-1。只有满足X * YX+Y时，才输出X、Y的值。循环的结束条件是“X= -1，Y=-1”。 -
第16题：
在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为【 】。
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
正确答案：321456
321456 解析：由于Visual Basic中的InputBox函数的返回值是字符串，那么a和b分别为字符串321和456，所以a+b就只能将两个字符串连接为321456，而不是可能想要得到的321和456的和777。 -
第17题：
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B) a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。
A．6000
B．-10
C．200
D．-6000
正确答案：B
解析：本段程序的执行过程如下；第1次输入30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环；第3次输入10，给a赋值为10，第4次输入-1并赋值给变量b，再执行语句a=a*b=-10；然后判断循环条件，b=-1条件为真，所以退出循环。 -
第18题：
在窗体中添加一个命令按钮，然后编写如下代码：
Private Sub Command1_Click()
a＝InputBox("请输入一个整数")
b＝InputBox("请输入一个整数")
Print Val(a)+Val(b)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为【 】。
正确答案：66
66 解析：分析题意可知主要是对输入的两个数求和。故输入21和45后，输出结果为 (21+45)即66。 -
第19题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Do While b＞=0
a=Val(InputBox("请输入a的值"))
b=Val(InputBox("请输入b的值"))
c=a+b
Loop
MsgBox c
End Sub
程序运行后，依次输入3,2,1,0,-1,-2，则输出结果是______。
正确答案：-3
-3 解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次；由于在每次循环中均会重新对a、b、c进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中，c等于最后两次输入的值之和，也就是-3。 -
第20题：
在窗体上画一个命令按钮，然后编写如下事件过程： 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
-
第21题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputDox("请输入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 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。
A．15
B．14
C．13
D．12
正确答案：D
解析：本题中，每次循环开始的时候，变量a都被重新赋了一次值，所以最后的结果仅仅是2+11+(-1)，因此最终输出的值是12。 -
第22题：
在窗体上添加一个命令按纽，名为COMgAND1，事件过程如下： Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入a的值”) a=Val (A) b=InputBox(“请输入b的值”) b=Val(B) c=InputBox(“请输入c的值”) c=Val (C) a=a+b+c Loop Print a End Sub程序运行后，单击命令按纽，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是______ 。
A．2
B．3
C．4
D．5
正确答案：A
-
第23题：
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a * b Loop Print aEnd Sub程序运行后，依次输人数值30，20，10，-1，输出结果为
A．6000
B．-10
C．200
D．-6000
正确答案：B
解析：DoUntil-Loop循环执行的规则是：先判本程序执行时，先判断条件“b=-1”是否为真，此时b为10，“b=-1”不成立，执行循环体。a和b分别取得InputBox函数接收到的值为30和20，做乘法后a的值为600。执行Loop后，返回Do语句再判断“b=-1”是否为真，此时b为20，“b=-1不成立，继续执行循环体，a和b再次取得InputBox函数接收到的值为10和-1，做乘法后a的值为-10。执行Loop后，返回到Do语句判断“b=-1是否为真，此时b=-1，“b=-1条件成立，结束循环，把a的值打印出来。断Do语句中的<条件>若为真，则结束循环；若<条件>为假，则执行循环体。