[单项选择]若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 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 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 Commandl_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. Minimize
B. Requery
C. Maximize
D. Restore

查看答案

[单项选择]单击按钮时，以下程序运行后的输出结果是（）。　　Private Sub proc1(x As Integer，y As Integer，z As Integer) 　　　　x=3*z 　　　　y=2*z 　　　　z=x+y 　　End Sub 　　Private Sub Command1_Click（　）　　　　Dim x As Integer，y As Integer，Z As Integer 　　　　x=1：y=2：z=3 　　　　Call proc1(x，x，z) 　　　　Print x；x；z 　　　　Call proc1(x，y，y) 　　　　Print x；y；y 　　End Sub
A. 6 6 12
B. 9 5 10 6101051010
C. 9 6 12
D. 9 10 10 910155410

查看答案

[单项选择]单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub
A. 6 6 12 6 6 10
B. 9 5 10 5 10 10
C. 9 6 12 9 10 15
D. 9 5 10 5 4 10

查看答案

[单项选择]有下列程序，程序运行后单击命令按钮，则输出的结果是( )。

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.

B.

查看答案

[单项选择]有下列程序，程序运行后单击命令按钮，则输出的结果为( )。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="；s2End SubFunction Factorial(a（　）As Integer)Dim t#，i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next i Factorial=tEnd Function
A. s1=360 s2=24
B. s1=24 s2=360
C. s1=24 s2=24
D. s1=360 s2=360

查看答案

[填空题]下面程序运行后，单击命令按钮，输出的结果是【】。 Private Sub Commandl_Click( ) 　　　Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl#，str2# 　　　For i=1 To 4 　　　　　a(i) =i 　　　Next i 　　　For i=2 To 6 　　　　　b(i) =i 　　　Next i 　　　str1 =YAG(a) 　　　str2 =YAG(b) 　　　Print"strl"；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 i 　　　YAG =t 　　End Function

查看答案

[单项选择]程序运行后，单击窗体，屏幕显示的结果是( )。
Private Sub Form_Click（　）
num1="乙"
num2=76
Select Case numl
Case"甲"
If num2＞=80 Then
Print"德艺优秀"
Else If num2＞=60 Then
Print"德优秀，艺普通"
End If
Case"乙"
If num2>=80 Then
Print"德艺双佳"
Elselfnum2>=60 Then
Print"德艺普通"
End If
End Select
End Sub
A. 德艺双佳
B. 德艺普通
C. 德优秀，艺普通
D. 德艺优秀

查看答案

我来回答:

提交