单选题
有如下事件过程：
有如下事件过程：
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，输出结果为
发布于 2022-05-11 10:20:36
登录后免费查看答案
关注者
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答案
-
在窗体上画一个命令按钮，然后编写如下事件过程：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答案
-
设有如下程序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答案
-
为达到把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答案
-
在窗体上画一个命令按钮，名称为 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答案
-
窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a As Integer, b As Integera = 8b = 12Print fun(a, b); a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer) As Integera = a Mod 5b = b \ 5Fun = aEnd Function程序运行时，单击命令按钮，则输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为command1的命令按钮。然后编写如下程序：option base 1private sub command1_click()dim a(10) as integerfor i=1 to 10a(i)=inextcall swap (______ )for i=1 to 10print a(i);nextend subsub swap(b() as integer)n=ubound(b)for i=1 to n / 2t=b(i)b(i)=b(n)b(n)=t______nextend sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
2022-05-11 关注 0 浏览16 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答案
-
窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Corqmand1_Click（ ）Dim a As Integer，b As Integera=8b=12Print Fun(a，b)；a；bEnd SubPrivate Function Fun(ByVal a As Integer，b AS Integer)As Integera=a Mod 5b=b＼5Fun=aEnd Function程序运行时，单击命令按钮，则输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
