更多"下面程序段，运行后的结果是( )。 Private Sub Com"的相关试题:
[填空题]执行下面的程序段，x的值为【 】。
Private Sub Command1_Click（ ）
For i=1 To 9
a=a + i
Next i
x=Val(i)
MsgBox x
End Sub
[单项选择]下面程序运行后的结果是( )。
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（ ）
a = 0
for 1=15 To 15 Step- 2
a = a +1
Next I
Print a, I
End Sub
发生Command 1的单击事件后，程序的输出结果是 ______。
A. 0 13
B. 15 13
C. 0 15
D. 15 15
[单项选择]下面程序运行后，单击命令按钮，输出的结果是
Pivate Sub Cornmand1_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(
[单项选择]下面程序运行后，输出结果是( )。
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
[单项选择]有如下程序段：
Private Sub Form_Click（ ）
Dim m,n As Integer
m=InputBox("请输入M的值")
m=Val(m)
m1=m
n=InputBox("请输入N的值")
n=Val(n)
n1=n
Do While n＜＞0
remin=m Mod n
m=n
n=remin
Loop
Print m1, n1,m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为______。
A. 16 24 4
B. 16 24 8
C. 24 16 6
D. 24 16 8
[单项选择]下面程序运行后的输出结果是______。
Private Sub Command1_ Click ( )
for j = 1 To 10
if j Mod 3 ＜＞ 0 then a =a+j/3
Next j
Print a
End Sub
A. 20
B. 10
C. 3
D. 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
[单项选择]下列代码运行后输出结果是( )。
Defstr B-E
Private Sub Cornmand1_Click（ ）
B$=“123”
C=“456”
Print B+C$
End Sub
A. 123456
B. “123456”
C. 123+“456”
D. 显示出错信息
[单项选择]下列事件过程运行后输出结果是( )。
Private Sub Command1_Click（ ）
Print Format $(123.456，“###．##%”)
End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
[单项选择]下列的程序段执行后，x的值为（）。Private Sub Command1_Ciick（ ）x =0 for i =1 To 10 for j = i To 10 x=x+1 Next jNext i Print xEnd Sub
A. 50
B. 55
C. 5
D. 105
[单项选择]下列的程序段执行后，x的值为______。
Private Sub Command1_Ciick（ ）
x =0
for i =1 To 10
for j = i To 10
x=x+1
Next j
Next i
Print x
End Sub
A. 50
B. 55
C. 5
D. 105
[单项选择]以下程序运行后，单击按钮输出结果是( )。
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
[单项选择]以下程序运行后输出的结果是 ______。
Option Base 1
Private Sub Form_Click（ ）
Dim A(20)
For K=1 To 20
A(K)=K^2
Next K
Print A(K)
End Sub
A. 20
B. 441
C. 400
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. Dim NewArray(10)As Integer
B. Dim NewArray(1 T0 10)As Integer
C. Dim NewArray(10)Integer
D. Dim NewArray(1 To 10)Integer
[单项选择]单击按钮时，以下程序运行后的输出结果是( )。
Private Sub procl(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 procl(x, x, z)
Print x; x; z
Call procl(x, y, y)
Print x; y; y
End Sub
A. 6 6 12
B. 9 5 10
C. 9 6 12
D. 9 10 10
