更多"单击命令按钮时,下列程序代码的执行结果为( )。 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. 19
B. 17
C. 34
[单项选择]单击命令按钮时,下列程序代码的执行结果为
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
[单项选择]单击命令按钮之后,下列程序代码的执行结果为______。 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 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
[单项选择]单击命令按钮时,下列程序代码的执行结果为______ 。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=mEnd FunctionPrivate Sub Command1_Click( ) Print MyFunc(24, 18)End Sub
A. 2
B. 4
C. 6
D. 8
[单项选择]单击命令按钮时,下列程序代码的执行结果为______。 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