更多"下列程序的运行结果是 Private Sub Form_Click（"的相关试题:
[单项选择]下列程序的运行结果是 Private Sub Form_Click（ ） Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]下面程序运行后的结果是( )。
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 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 a（ ）
a=Array(“天天向上”，“清华大学”，“天长地久”，“程序设计”)
for I=Lbound(a,1) to Ubound(a,1)
if ieft(a(I),1)="天”then print a(I);
next I
End Sub
A. 天天向上
B. 天天向上天长地久
C. 出错信息
D. 天天向上清华大学天长地久程序设计
[单项选择]下列程序的执行结果是( )。
Private Sub Form_Activate（ ）
Dim score(3)As Integer,total As Integer
Dim aa score AS Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa score In score
i=i+1
tota1=tota1+aa_score
Print i,aa_score,tota1
Next
End Sub
A. 1 0 0
B. 1 50 50
C. 0 50 50
D. 0 0 0
[单项选择]以下程序运行后，单击按钮输出结果是 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 7 11 11
B. 8 5 10 5 11 11
C. 9 6 12 9 10 15
D. 8 10 10 5 9 10
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click（ ）
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]单击按钮时，以下程序运行后的输出结果是 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. 6 6 12 7 11 11
B. 8 5 10 5 11 11
C. 9 6 12 9 10 15
D. 8 10 10 5 9 10
[单项选择]下面程序运行后，单击命令按钮，输出的结果是
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 (
[单项选择]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click（ ） Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI End Sub
A. 3 7 11 45 19
B. 17 13 9 5 1
C. 1 3 5 7 9
D. 不确定的值
[单项选择]单击按钮时，以下程序运行后的输出结果是 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 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
[单项选择]有下列程序，程序运行后单击命令按钮，则输出的结果是( )。
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.
