[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程： 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

更多"在窗体上画一个命令按钮，然后编写如下事件过程： Private Su"的相关试题:

[单项选择]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，b) End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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，则输出结果是【14】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
　　Dim Arr1(12)As Integer， Arr2(3)As Integer
　　Dim Sum As Integer
　　Sum = 2
　　For i = 1 To 12
　　　　Arr1(i)= i
　　Next i
　　For i = 1 To 3
　　　　Arr2(i)= Arr1(i * i)
　　Next i
　　For i = 1 To 3
　　　　Sum = Sum + Arr2(i)
　　Next i
　　Print Sum
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果是________。
A. 16
B. 24
C. 32
D. 36

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序：　　 Private Sub Comrnand3_Click( )　　　　Cop 2　　　　Cop 3　　　　Cop 4　　 End Sub　　 Sub Cop (a As Integer)　　　　Static x As Integer　　　　x=x + a　　　　Print x;　　 End Sub　　程序运行后，单击命令按钮，输出结果为
A. 2 3 4
B. 2 5 9
C. 3 5 4
D. 2 4 3

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
　　Private Sub Commandl_Click( )
　　　　Dim a AS Integer，b As Integer
　　　　a=15
　　　　b=2
　　　　t N(a，b)
　　End Sub
　　Function N(x As Integer，y As Integer) As Integer
　　　　N=IIf(x)y，x，y)
　　End Function
　　程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 15
D. 8

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Commandl_Click（　）
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是。

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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，则输出结果是【12】。

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click（　） Do Until b【14】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（　） Dim I，Num Randomize Do ForI=1 To 1000 Num=Int(Rnd*100) Print Num； SelectCase Num Case 12 Exit For Case 58 Exit Do Case 65，68，92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是
A. Do循环执行的次数为1000次
B. 在For循环中产生的随机数小于或等于100
C. 当所产生的随机数为12时结束所有循环
D. 当所产生的随机数为65、68或92时窗体关闭、程序结束

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：　　Private Sub Commandl_Click（　）　　　　s=1　　　　Do　　　　　s=(s + 1) * (s + 2)　　　　　Number=Number + 1　　　　Loop Until s＞ = 30　　　　Print Number，s　　End Sub　　程序运行后，输出的结果是
A. 2 3
B. 2 56
C. 5 12
D. 10 20

查看答案

我来回答:

提交