[单项选择]单击命令按钮时，下列程序代码的执行结果为( )。
Private Function PickMid(xStr As String)As Sting
Dim tempStr As String
Dim 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 Function
Private Sub Command1_Click（　）
Dim FirstStr As String
FirstStr="abcdef"
Print PickMid(FirstStr)
End Sub
A. abcdef
B. afbecd
C. fedcba
D. defabc

更多"单击命令按钮时，下列程序代码的执行结果为( )。 Private "的相关试题:

[单项选择]单击命令按钮时，下列程序代码的执行结果为( )。 Private Function PickMid(xStr As String)As Sting Dim tempStr As String Dim 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 Function Private Sub Command1_Click（　） Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub
A. abcdef
B. afbecd
C. fedcba
D. defabc

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为( )。
Private Function FirProc(x As Integer,y As Integer,z As Integer)
　　　FirProc=2*x+y+3*z
End Funcfion
Private Function SecProc(x As Integer,y As Integer,z As Integer)
　　　SecProc=FirProc(z，x，y)+x
End Funcfion
Private Sub Command1_Click（　）
Dim a As Integer
Dim b As Integer
Dim c As Integer
a=2
b=3
c=4
Printf SecProc(c,b,a)
End Sub
A. 21
B. 19
C. 17
D. 34

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为______。
Private Function FirProc (x As Integer，y As Integer，z As Integer)
FirProc=2*x+y+3*z
End Function
Private Function SecProc(x As Integer，y As Integer，z As Integer)
SecProc=FirProc(z，x，y)+x
End Function
Private Sub Command1_Click（　）
Dim a As Integer
Dim b As Integer
Dim C As Integer
a=2
b = 3
c = 4
Print SecProc(c，b，

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为______。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click（　） Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End Sub
A. abcdef
B. afbecd
C. fedcba
D. defabc

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为 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

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为
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

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为 ( ) 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 Private Sub Commandl Click（　） Dim a As Integer, b As Integer, c As Integer a＝2 :b=3 :c=4 Print SecProc(c, b, A) End Sub
A. 21
B. 19
C. 17
D. 34

查看答案

[单项选择]单击命令按钮之后，下列程序代码的执行结果为______。
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

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为 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 Function MyFune(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
Private Sub Command1_Click（　）
Print MyFunc(24, 18)
End Sub
A. 2
B. 4
C. 6
D. 8

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为______。
PubUc Sub Procl(n As Integer,By Valm As InteSg)
n=n Mpd 10
m=m/10
End Sub
PHvate Sub Commandl Click（　）
Dim X As Inte9er,y As Intger
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 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

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为 ______。 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

查看答案

[单项选择]单击命令按钮时，下列程序代码的执行结果为______。 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

查看答案

我来回答:

提交