更多"以下程序的功能是：程序运行后，单击命令按钮，输出结果为： 1 4 "的相关试题:
[填空题]以下程序的功能是在程序运行后，单击命令按钮，输出如下结果：
1 4 7
2 5 8
3 6 9
请完善以下程序。
Private Sub Command1_Click（ ）
Dim Arr(3，3)As Integer
For i=1 To 3
For j=1 To 3
Arr(i，j)= 【15】
Print Arr(i，j)；
Next j
Print
NeXt i
End Sub
[填空题]以下程序的功能是：程序运行后，单击命令按钮，输出结果为：
1 4 7
2 5 8
3 6 9
请填空。
Private Sub Command1_Click( )
Dim Arr(3，3)As Integer
For i = 1 To 3
For j = 1 To 3
Arr(i， j)= ______
Print Arr(i， j);
Next j
Print
Next i
End Sub
[填空题]
以下程序的功能是在程序运行后，单击命令按钮，输出如下结果：
1 4 7
2 5 8
3 6 9
请完善以下程序。
Private Sub Command1_Click（ ）
Dim Arr(3，3)As Integer
For i=1 To 3
For j=1 To 3
Arr(i，j)=（）
Print Arr(i，j)；
Next j
Print
NeXt i
End Sub
[单项选择]若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 Private Sub Command1_Click（ ） Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (A) s2 = Factorial (B) Print "s1="; s1; "s2="; s2 End Sub Function Factorial(a（ ） As Integer) Dim t#, i% t=1 For i = LBound(A) To UBound(A) t = t * a(i) Next i Factorial = t End Function
A. s1=360 s2=24
B. s1=24 s2=360
C. s1=24 s2=24
D. s1=360 s2=360
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Click（ ）
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=s+a(k)
Next k
Print s
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]以下程序运行后，单击命令按钮，窗体显示的结果是 ______。
Private Function p1(x As Integer，y As Integel，z As Integer)
p1=2*x+y+3*z
End Function
Private Function p2(x As Integer，y As Integer，z As Integer)
p2=p1(2，y，x)+x
End Function
Private SubCommandl_Click（ ）
Dim a As Integer
Dim b As Integer
Dim c As Integer
a=2:b=3:c=4
Print p2(c，b，
A. 21
B. 22
C. 23
[单项选择]运行下面的程序，单击命令按钮，输出结果为( )。
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Command1_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print F(
A. 3
B. 3
C. 3
[单项选择]以下程序运行后，单击按钮输出结果是
Private Sub Commandl_Click( )
Dim x As Integer，y As Integer，z As Integer
X=4：y=2： Z=3
Call Gopd(x，x，z)
Print x；X；Z
Call Gopd(x，y，y)
Print x；y；y
End Sub
Private Sub Gopd(x As Integer，y As Integer，z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[单项选择]以下程序运行后，单击按钮输出结果是( )。
Private Sub Commandl_Click( )
Dim x As Integer，y As Integer，z As Integer
X=4：y=2： Z=3
Call Gopd(x，x，z)
Print x；X；Z
Call Gopd(x，y，y)
Print x；y；y
End Sub
Private Sub Gopd(x As Integer，y As Integer，z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
[填空题]下面运行程序后，单击命令按钮，输出的结果是【 】。
Private Sub Command1_Click( )
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(B)
Print"s1="；s1；"s2="；s2
End Sub
Function YAS(a( )As Integer)
Dim t#，i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
