更多"下面程序运行后的结果是( )。 Private Sub Form_"的相关试题:
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(
[单项选择]下面程序运行后的结果是( )。
Private Sub Form_Click（ ）
Dim s As Integer，k As Integer,i As Integer，n As Integer
s=1
fori=1 to 3
forj=i to 3
for k=j to istep-1
s=s*k
nextk,J,i
print s
End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（ ）
Dim b%(1 To 4) ,i%, t#
For i = 1 To 4
b(i) =i
Next
t =Tof(b（ ） )
Print "t ="; t,
End Sub
Function Tof(a（ ） As Integer)
Dim t#, i%
t=1
For i =2 To UBound(
[单项选择]下面程序段，运行后的结果是（ ）。
Private Sub Commandl_Click( )
Dim b%(1 To 4)，i%，t#
For i=1 To 4
b(i)=i
Next i
t=Tof(b( ) )
Print"t="；t，
End Sub
Function Tof(a（ ） As Integer)
Dim t#，i%
t=1
For i=2 To UBound(a)
t=t * a(i)
Next i
Tof=t
End Function
A. RunSQL
B. RunApp
C. Requery
D. Quit
[单项选择]下面程序运行后，单击命令按钮，输出的结果是
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 (
[单项选择]下面程序段，运行后的结果是( )。
Private Sub Command1_Click（ ）
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i)=i
Next
t=Tof(b))
Print“t=”：t，
End Sub
Function Tof(a（ ） As Integer)
Dim t%，i%
t=1
For i=2 To UBound(a)
t=t a(i)
Next
Tof=t
End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下面程序运行后，输出结果是( )。
Private Sub mysub(b（ ）As Integer,Optional ByVal n As Integer=2)
For I=1 to 4
b(I)=n*I
Next I
End Sub
Private Sub Command1_Click（ ）
Dim a(1 to 4)As Integer,I As Integer
Call mysub(a（ ）,5)
Mysub a（ ）
For I=1 to 4
Print a(I);
Next
End Sub
A. 5 10 15 20
B. 2 4 6 8
C. 出错
D. 0 0 0 0
[填空题]下面程序运行后，单击命令按钮，输出的结果是【 】。
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
[填空题]下面程序运行后，单击命令按钮，输出的结果是 【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
