更多"下面的程序运行结果是( )。 Private Sub Form_C"的相关试题:
[单项选择]下面程序运行后,单击命令按钮,输出的结果是
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 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
[单项选择]下面程序的运行结果是( )。
Option Base 1
Private Sub Command1_Click( )
Dim x,y(3,3)
x=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 3
For i=1 To 3
y(i,j)=(i*j)
If(j>=i)Then Print y(i,j);
Next i
Print
Next i
End Sub
A. 1 2 3
B. 1 2 3
C. 1
D. 1 2 3
[单项选择]下面程序运行后,输出结果是( )。
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
[单项选择]下面程序运行时,若输入395,则输出结果是( )
Private Sub Command1_Click( )
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(X Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[填空题]下面程序运行后,单击命令按钮,输出的结果是 【8】
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 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(
[单项选择]
下面程序运行时,若输入395,则输出结果是()。
Private Sub Command1_Click( )
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]下面程序运行后,单击命令按钮,输出的结果是( )。
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(2 To 6),i%,str1#, str2#
For i=1 To 4
a(i)=1
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
A. str1=24 str2=720
B. str1=12 str2=360
C. str1=24
D. str1=36 str2=720
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面程序段,运行后的结果是( )。
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