请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
答案
更多“在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A”相关的问题
第1题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后，单击命令按钮，输出结果为【 】。
第2题
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。
第3题
A.-5
B.25
C.1
D.-1
第4题
在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x； End Sub 程序执行后，单击Command1命令按钮，输出的结果是【 】。
第5题
Private Sub Command1_Click（）
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a ＜＝ 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A.7 9
B.34 0
C.9 7
D.死循环
第6题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。
A.无数据输出
B.1 3.4 5.8
C.1 4 7
D.1 3 5
第7题
A.4321
B.34
C.1234
D.12
第8题
A.4321
B.34
C.1234
D.12
第9题
Private Sub Command1_Click（）
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1（x,y）
Print x,y
End Sub
Private Sub f1（ByRef x1 As Integer, y1 As Integer）
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是（）。
A.10 5
B.12 5
C.10 7
D.12 7
第10题
A.15
B.14
C.13
D.12
第11题
A.15
B.14
C.13
D.12
