更多"下列代码运行后输出结果是( )。 Defstr B-E Priv"的相关试题:
[单项选择]单击按钮时，以下程序运行后的输出结果是 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 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
[单项选择]下面程序运行后，单击命令按钮，输出的结果是
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 Command1_Click（ ）
Print Format $(123.456，“###．##%”)
End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click（ ）
x="a":y="b"
z=1:u=2
Debug.Print x;y,z;u
Debug.Print z;x,y;u
End Sub
A. ab
B. ab
C. ab
D. ab
[填空题]下面程序运行后，单击命令按钮，输出的结果是【 】。
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 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 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 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.
[单项选择]以下程序运行后输出的结果是 ______。
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
[单项选择]下面程序运行后的输出结果是______。
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
[单项选择]以下程序运行后的输出结果是
#include＜stdio.h＞
#define SUB(a)(a)-(a)
main（ ）
int a=2, b=3, c=5, d;
d=SUB(a+b)*e;
printf("%d/n", d);
A. 0
B. -12
C. -20
D. 10
[单项选择]以下程序运行后的输出结果是 ______。
Sub add(x，y)
x=x+y
Print "x="；x；"，y="；y
End Sub
Private Sub Command1_Click（ ）
x=1
y=1
Call add((x)，(y))
Print"x="; x；"，y="；y
End Sub
A. x=1，y=1
B. x=2，y=1
C. x=1，y＝1
D. x=2，y=1
[单项选择]以下程序在VC6平台上编译运行，程序运行后的输出结果是
#include＜stdio.h＞
main（ ）
int s, t, A=10; double B=6;
s=sizeof(A); f=sizeof(B);
printf("%d, %d/n", s, t);
A. 2，4
B. 4，4
C. 4，8
D. 10，6
