更多"在窗体上画一个命令按钮，然后编写如下程序
Private Sub"的相关试题:
[单项选择]在窗体上画一个命令按钮，然后编写如下程序
Private Sub Command4 Click（ ）
Dim a As Integer，b As Integer
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. l
B. 2
C. 5
D. 8
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click（ ） Dim a（ ） a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[单项选择]在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1 Click（ ） a&＝InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub 程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是
A. 66666
B. 5432112345
C. 1234554321
D. 出错
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S＞=30 Print Number，S End Sub 程序运行后，输出的结果是
A. 2 3
B. 3 182
C. 5 12
D. 10 20
[单项选择]在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End Sub
A. 4 3
B. 1 1
C. 3 0
D. 2 6
[单项选择]在窗体上画一个命令按钮，然后编写如下程序： 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 Command12_Click（ ） Tt 3 End Sub Sub Tt(a As Integer) Static X As Integer X=X * a + 1 Print x； End Sub 连续三次单击命令按钮，输出的结果是
A. 1 5 8
B. 1 4 13
C. 3 7 4
D. 2 4 8
[单项选择]在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click（ ） Tcl 2 Tcl 3 Tcl 4 End Sub Sub Tcl(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 Command1_Click（ ） Dim a（ ） a=Array(1，3，5，7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
