更多"单击命令按钮时,下列程序代码的运行结果为 Private Sub C"的相关试题:
[单项选择]单击命令按钮时,下列程序代码的运行结果为( )。
Private Sub Command1_Click( )
print MyFunc(20,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
MyFunc=m
End FunCtion
A. 0
B. 2
C. 4
D. 6
[单项选择]单击命令按钮时,下列程序代码的运行结果为 Private Sub Command1_Click( ) print MyFunc(20,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 MyFunc=m End FunCtion
A. 0
B. 2
C. 4
D. 6
[单项选择]单击命令按钮时,下列程序代码的执行结果为 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 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
[单项选择]单击命令按钮时,下列程序代码的执行结果为( )。
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 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 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 Sub Command1_Click( )
Print Fun(23,18)
End Sub
Public Function Fun(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
Fun=m
End Function
A. 0
B. 1
C. 3
D. 5
[单项选择]单击命令按钮时,下列程序的运行结果为( )。
Private Sub Command1_Click( )
Print MyFund(20,18)
End Sub
Public Function MyFund(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
MyFund=m
End Function
A. 0
B. 2
C. 4
D. 6
[单项选择]单击一次命令按钮,下列程序代码的执行结果为( )。 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 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( )
Dim x As Integer,y As Integer
x=86:y=29
Call Proc(x,y)
Print x;y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A. 12 32
B. 6 29
C. 2 3
D. 12 3