单选题
有下列事件过程：
有下列事件过程：
Private Sub Co mmand1＿Click（ ）
b ＝10
Do Until b ＝－1
a＝InputBox（＂请输入a 的值＂）
a＝Val（a）
b ＝InputBox（＂请输入b 的值＂）
b ＝Va（b）
a＝a＊b
Loop
Print a
End Sub
程序运行后，依次输入数值30，20，10，－1后，输出结果是（ ）。
发布于 2022-05-11 10:00:05
登录后免费查看答案
关注者
0
被浏览
11
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（）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、3、2、1、－1，则输出结果为（ ）。
2022-05-11 关注 0 浏览15 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答案
-
在窗体上画一个名称为Co mmand1的命令按钮，并编写以下程序：Private Sub Co mmand1＿Click（）Di mn ％，b ，tt ＝1：b ＝1：n ＝2Dob ＝b＊nt ＝t ＋bn ＝n ＋1Loop Until n ＞9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
设有如下程序Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim n As Integern=InputBox("输入数据")If n<10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b() As Integer,n As Integer)Dim c(10) As Integerj=0For i=1 To nb(i)=CInt(Rnd()*100)If b(i)/2=b(i)\2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：Function Funl （ByVal a As Integer ，b As Integer）As IntegerDi mt As Integer t ＝a－bb ＝t ＋aFunl ＝t ＋bEnd FunctionPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝10Print Funl（Funl（x，（Funl（x，x－1））），x－1）End Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
阅读下列程序：Private Sub Command1_Click()Dim i As Integer, k As Integerk=2For i=1 To 3Print H(k) ;Next iEnd SubFunction H(j As Integer)a=0Static ba=a + 1b=b + 1H=a*b + jEnd Function程序运行后，单击命令按钮输出结果是
2022-05-11 关注 0 浏览18 1答案
-
为达到把a、b中的值交换后输出的目的，某人编程下列：Private Sub Command1_Click( )a%=10:b%=20Call swap(a,b):Print a,bEnd SubPrivate Sub swap(ByVal a As Integer,ByVal b As Integer)c=a:a=b:b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（ ）。
2022-05-11 关注 0 浏览16 1答案
-
下列程序段的执行结果为a=1b=5Doa=a + bb=b + 1Loop While a < 10Print a; b
2022-05-11 关注 0 浏览12 1答案
-
在窗体中有一个命令按钮run35，对应的事件代码如下：Private Sub run35_Enter( ．Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i= 1 To 10num = InputBox("请输入数据:", "输入",1．If Int(num/2． = num/2 Thena = a + 1Elseb = b + 1End IfNext iMsgBox("运行结果：a=" & Str(a． &",b=" & Str(b．．End Sub运行以上事件所完成的功能是
2022-05-13 关注 0 浏览12 1答案
