更多"单击一次命令按钮后，下列程序的执行结果为（ ）。
Priva"的相关试题:
[单项选择]单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click（ ）
Dim m As Integer，I As Integer，x(10) As Integer
For I=0 To 4：x(I)=I+1：Next I
For I=1 TO 2：Call Prioc(x)：Next I
For I=0 TO 3：Print x(I)；：Next I
End Sub
Private Sub Prioc(a（ ）As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I＜2
End Sub
A. 3 4 7 5
B. 3 5 7 4
C. 1 2 3 4
D. 1 2 3 5
[单项选择]单击一次命令按钮后，下列程序的执行结果为（ ）。
Private Sub Command1_Click（ ）
Dim m As Integer，I As Integer，x(10) As Integer
For I=0 To 4：x(I)=I+1：Next I
For I=1 TO 2：Call Prioc(x)：Next I
For I=0 TO 3：Print x(I)；：Next I
End Sub
Private Sub Prioc(a（ ）As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I＜2
End Sub
A. private
B. 无修饰符
C. public
D. protected
[单项选择]单击一次命令按钮后，下列程序的执行结果是（） Private Sub Command1_Click（ ） s=P(1) + P(2) + P(3) + P(4) Print s End Sub Public Function P(N As Integer)Static Sum For i=1 To N Sum=Sum + i Next iP=Sum End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]单击—次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click( )
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]单击一次命令按钮之后，下列程序代码的执行结果为
private Sub Command1_Click（ ）
S=P(1) +P(1)+P(2)+P(3)+P(4)
Print S：
End Sub
Public Function P(N As Integer)
Static Sum
For I=1 To n
Sum=Sum+I
Next 1
P=Sum
End Function
A. 20
B. 35
C. 115
D. 135
[单项选择]单击一次命令按钮之后，窗体中的输出结果为______ 。 Private Sub Command1_ Click（ ） Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a, b) Print a, b End Sub Sub writein(a, ByVal b) b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub
A. 24 6
B. 24 0
C. 12 6
D. 12 0
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click（ ）
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[单项选择]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，a) End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击一次命令按钮后，下列程序的执行结果是( )。
Private Sub Commandl_Click（ ）
s=P(1)+P(2)+P(3)+P(4)
Print s
End Sub
Public FunctionP(N As Integer)
Static Sum
Fori=1To N
Sum=Sum+i
Nexti
P=Sum
End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click( )
Print MyFund(20，18)
End Sub
Public Function MyFund(m As Integer，n As Integer)As Integer
Do While m◇n
Do While m>n：m=m-n:Loop
Do While m＜n：n=n-m:Loop
Loop
MyFund=m
End Function
A. 0
B. 2
C. 4
D. 6
[单项选择]单击命令按钮时，下列程序的执行结果为
Private Sub Command1 Click（ ）
Dim x As Integer，y As Integer
x=12：y=32
Call PCS(x，y)
Print x；y
End Sub
Public Sub PCS(ByVal n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A. 1232
B. 232
C. 23
D. 123
[单项选择]单击命令按钮时，下列程序代码的执行结果为
Private Sub Command1_Click( )
Print MyFunc(24，18)
End Sub
Public Function MyFunc(m As Integer，n As Integer)As Integer
Do While m ◇ n
Do While m>n：m=m—n：Loop
DO While m＜n：n=n-m：Loop
Loop
My Func=m
End Function
A. 2
B. 4
C. 6
D. 8
