更多"单击命令按钮时，下列程序段的执行结果为( )。 Private S"的相关试题:
[单项选择]单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click（ ） Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion
A. abcdef
B. fed
C. fedcba
D. defabc
[单项选择]单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Command1_Crick（ ）
Print Myfunc(24,18)
End Sub
Public Function MyFunc(m As Integer,n As Integer)As Integer
Do Whilem＜＞n
Do While m＞n:m=m-n:Loop
Do While m＜n:n=n-m:Loop
Loop
MyFunc=m
End Function
A. 2
B. 4
C. 6
D. 8
[单项选择]单击命令按钮时，下列程序代码的执行结果为 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（ ）
Dim a AS Integer, b As Integer, C AS Integer
a=2:b=4:c=6
Call S1(a，b)
Print "a="; a; "b="; b; "c="; C
Call S2(a,b)
Print "a ="; a; "b="; b; "c="; c;
End Sub
Private Sub S 1(x As Integer, Y As Integer)
Dim CAs Integer
x=2 * x:y=y+2:c=x+y
End Sub
Sub S2(x As Integer, ByVal Y As Integer)
Dim eAs Integer
x=2 * x:Y=Y+2:e=x+y
End Sub
A. a=4 b=6 c=6
B. a=8 b=6 c=6
C. a=4 b=6 c=6
D. a=8 b=6 c=6
[单项选择]单击命令按钮时，下列程序的执行结果是
Private Sub Commandl_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 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
[单项选择]单击命令按钮时，下列程序的执行结果是 Private Sub Book( x As Integer) x=x*2+1 If x＜6 Then Call Book(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command2_Click( ) Book 2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]单击命令按钮时，下列程度段的执行结果为( )。 Private Sub Command1_Click（ ） Dim a As Integer, b As Integer, c As Integer a=2:b=4:c=6 Call S1(a, B) Print "a="; a; "b="; b; "c="; c Call S2(a, B) Print "a ="; a; "b ="; b; "c="; c; End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVal y As Integer) Dim e As Integer x=2*x:y=y+2:c=x+y End Sub
A. a=4 b=6 e=6 a=4 b=6 e=6
B. a=8 b=6 c=6 a=8 b=6 c=6
C. a=4 b=6 e=6 a=8 b=6 e=6
D. a=8 b=6 c=6 a=4 b=6 c=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. 12 32
B. 2 32
C. 2 3
D. 12 3
[单项选择]单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click（ ）
Dima As Integer，b As Integer，c As Integer
a=3:b=4:c=5
Print SecProc(c,b,a)
End Sub
Function FirProc(x As Integer，y As Integer，z As Integer)
FirProc=2*x+y+3*z+2
End Function
Function SecProc(x As Integer，y As Integer，z As Integer)
SecProc=FirProc(z，x，y) +x+7
End Function
Ａ) 20 Ｂ) 25 Ｃ) 37 Ｄ) 32
