更多"单击一次命令按钮之后，下列程序代码的执行结果为 private Su"的相关试题:
[单项选择]单击一次命令按钮之后，下列程序代码的执行结果为______ 。 Private Sub Command1_ Click（ ） a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End Function
A. 15
B. 20
C. 35
D. 40
[单项选择]单击一次命令按钮，下列程序代码的执行结果为( )。 Private Sub Commandl_Click（ ） Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，a) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function PrivateFunctionP2(X As Integer,y As Integer,z As Integer) P2=P1(z,x,y)+x End Function
A. 21
B. 19
C. 17
D. 34
[单项选择]单击一次命令按钮之后，窗体中的输出结果为______ 。 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
[单项选择]单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a（ ） As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek（ ） Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub
A. 3 4 7 5 6
B. 3 5 7 4 5
C. 1 2 3 4 5
D. 1 2 3 5 7
[单项选择]单击命令按钮时，下列程序代码的执行结果为
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
[单项选择]单击命令按钮时，下列程序代码的运行结果为( )。
Private Sub Command1_Click（ ）
print MyFunc(20，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
MyFunc=m
End FunCtion
A. Dim gg[1，5]As String
B. Dim gg[1 To 5，1 To 5]As String
C. Dim gg(1 To 5)As String
D. Dim gg[1：5，1：5]As String
[单项选择]单击命令按钮时，下列程序代码的运行结果为
Private Sub Command1_Click（ ）
Print MyFunc(20, 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 Whle m＜n:n=n-m:Loop
Loop
MyFunc=m
End Function
A. 0
B. 2
C. 4
D. 6
[单项选择]单击命令按钮时，下列程序代码的执行结果为( )。
Private Sub Procl(nAs Integer,ByValmASInteger)
n=nMod 10
m=m/10
End Sub
PrivateSubCommandl_Click（ ）
Dimx As Integer
Dimy As Integer
x=12
y=34
CallProcl(x，y)
Printx；y
End Sub
A. 12 34
B. 2 34
C. 2 3
D. 12 3
[单项选择]单击命令按钮之后，下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click（ ） S=P(1)+P(2)+P(3)+P(4) Print S： End Sub
A. 20
B. 30
C. 115
D. 135
[单项选择]单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m/ 10 End Sub Private Sub Command1_Click（ ） Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub
A. 12 34
B. 2 34
C. 2 3
D. 12 3
