更多"单击一次命令按钮后,下列程序的执行结果为
Private Sub"的相关试题:
[单项选择]单击一次命令按钮后,下列程序的执行结果为
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 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( ) 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 Cotomand1_Click( )
Ch$="Welcome Home!"
a=Len(ch$)
For i= 1 To a
b$ = Mid(ch$, i 1)
If b$ = "m" Then m = m + 1
Next 1
Print m
End Sub
A. 2
B. 3
C. 1
D. 0
[单项选择]单击一次命令按钮之后,下列程序代码的执行结果为
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 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( ) 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
[单项选择]单击一次命令按钮之后,下更程序代码的执行结果为______ 。 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( )
Dim a As Integer,b As Integer,c As Integer
a=3
b=4
c=5
Prim SecProc(c,b,a)
End Sub
Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=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