更多"下面运行程序后，单击命令按钮，输出的结果是【 】。
Priv"的相关试题:
[填空题]下面运行程序后，单击命令按钮，输出的结果是【 】。
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
[填空题]下面运行程序后，单击命令按钮，输出的结果是 【11】 。 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
[填空题]下面运行程序后，单击命令按钮，输出的结果是 【9】 。
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
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun( a( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun=t
End Function
[单项选择]下面程序运行后，单击命令按钮，输出的结果是
Private Sub Command1_Click( )
Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
For i = 1 To 4
a(i) =i
Next
For i = 2 To 6
b(i) =i
Next
str 1 = YAG (
[填空题]下面程序运行后，单击命令按钮，输出的结果是 【12】
Private Sub Command1_Click（ ）
Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function
[填空题]下面程序运行后，单击命令按钮，输出的结果是 (10) 。
Private Sub Command1_Click（ ）
Dim a%(1 To 5),1%,s#
For i=1 To 5
a(i)=i
Next
s=Fun(A)
Print“s=”；s；
End Sub
Function Fun(a（ ） As Integer)
Dim t#,i%
t=1
For i=LBound(A) To UBound(A)
t=t*a(i)
Next
Fun=t
End Function
[单项选择]运行下面程序后，正确的输出结果是 ______。Private Sub Command1_ Click（ ） x = 6 if x ＞6 then Print "x＞6": Else if x ＜8 then Print "x＜8"; Else if x = 6 then Print "x=6": End if End if End ifEnd Sub
A. x＜8 x=6
B. x＜8
C. x=6
D. x＜8或x=6
[填空题]下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click（ ）
Dim a%(1 To 5)，i%，s#
For i=1 To 5
a(i)=i
Next
s=Fun(A)
Print "s=";s;
End Sub
Function Fun(a（ ）As Integer)
Dim t#．i%
t=1
For i=LBound(A) To UBound(A)
t=t*a(i)
Next
Fun=t
End Function
[单项选择]单击按钮时，以下程序运行后的输出结果是
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer，z As Integer
x=1:y=2:z=3
Call God(x，x，z)
Print x；x；z
Call God(x，y，y)
Print x；y；y
End Sub
Private Sub God(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
