单选题
在窗体上画一个命令按钮，然后编写如下事件过程：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿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，则输出结果为（ ）。
发布于 2022-05-11 09:56:17
登录后免费查看答案
关注者
0
被浏览
16
1 个回答
推荐阅读
-
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a=InputBox("请输入第一个数字a的值")a=Val(A)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a + b + xLoopPrint aEnd Sub在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 ______ 。
2022-05-11 关注 0 浏览9 1答案
-
有如下事件过程：Private Sub Command1_Click()b=10Do Until b=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(b)a=a * bLoopPrint aEnd Sub程序运行后，依次输入数值30，20，10，－1，输出结果为
2022-05-11 关注 0 浏览10 1答案
-
有下列事件过程：Private Sub Co mmand1＿Click（ ）b ＝10Do Until b ＝－1a＝InputBox（＂请输入a 的值＂）a＝Val（a）b ＝InputBox（＂请输入b 的值＂）b ＝Va（b）a＝a＊bLoopPrint aEnd Sub程序运行后，依次输入数值30，20，10，－1后，输出结果是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝InputBox（＂Input＂）Select Case x Case 1，3Print ＂分支1＂Case Is ＞4Print ＂分支2＂Case ElsePrint ＂Else 分支＂End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = 0n = InputBox("")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
2022-05-11 关注 0 浏览20 1答案
-
设有下列程序Private Sub Form Click（ ）X=50For i=1 T0 4y=InputBox("请输入一个整数")y=Val(v)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
2022-05-11 关注 0 浏览14 1答案
-
设有下列程序Private Sub Form＿Click（）x＝50For i ＝1To 4y ＝InputBox（＂请输入一个整数＂）y ＝Val（y）If y Mod 5＝0Thena＝a＋yx＝yElsea＝a＋xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
2022-05-11 关注 0 浏览15 1答案
-
有如下事件过程：Private Sub Form Click（ ）Dim n As Integcrx=0n=InputBox("请输入一个整数")For i=1 To ifor j =1 To jx=x+1Next jNext iPrint xEnd sub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A (4)As Integer,B(4) As IntegerFor k=0 To 2A(k+1)=InputBox(“ 请输入一个整数 ”)B(3-k)=A(k+1)Next kPrint B(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输入结果为 （ ） 。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。
2022-05-11 关注 0 浏览20 1答案
