更多"单击一次命令按钮之后，下更程序代码的执行结果为______ 。 "的相关试题:
[单项选择]单击一次命令按钮之后，下更程序代码的执行结果为______ 。 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
[单项选择]单击命令按钮时，下列程序代码的执行结果为
Public Sub Procl(n As Integer,ByVal m As integer)
n=n Mod 10
m＝m/10
End sub
Private Sub Commandl_Click（ ）
Dim x AS Integer,y AS Integer
x=12:y=24
Call Procl(x,y)
Print x;y
End sub
A. 12 24
B. 2 24
C. 2 3
D. 12 2
[单项选择]单击命令按钮时，下列程序代码的执行结果为 Public Sub proc1(n As Integer，Byva1 m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1_Click( ) Dim x As Integer，y As lngeger x=12：y=12 Call Proe1(x，y) Print x；y End Sub
A. 12 2
B. 2 12
C. 2 2
D. 12 12
[填空题]单击命令按钮后，下列程序代码的执行结果是______ 。
Public Sub fun (Byval a （ ） As Integer)
Static n As Integer
Do
a(n) = a (n) + a(n + 1)
n = n + 1
Loop While n ＜ 3
End Sub
Private Sub command1_ click（ ）
Dim m As Integer, n As Integer, a(10) As Integer
For n = 0 To 2: a(n) = n + 1: Next n
For n = 1 To 2: Call fun(a): Next n
For n = 0 To 3: Print a(n): Next n
End Sub
[单项选择]单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, By Val m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click（ ） Dim x As Integer,y As Integer x=12:y=34 Call Procl(x, y) Print x; Y End Sub
A. 12 34
B. 2 34
C. 2 3
D. 12 3
[填空题]单击命令按钮后，下列程序代码的执行结果是______ 。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click（ ）
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
[单项选择]单击命令按钮时，下列程序代码的执行结果为 ______。
Public Sub Procl(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m/10
End Sub
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer
x=12：y=34
Call Procl(x，y)
Print x；y
End Sub
A. 12 34
B. 2 34
C. 2 3
D. 12 3
[单项选择]单击一次命令按钮，下列程序代码的执行结果为( )。 Private Sub Commandl_Click（ ） Dim a As Integer,b As Integer,C As Integer a=2:b=3:c=4 Print P2(c，b，a) End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2*x+y+3*z End Function Private Function P2(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 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（ ）
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（ ）
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
