更多"单击命令按钮时,下列程序代码的运行结果为( )。
Priv"的相关试题:
[单项选择]单击命令按钮时,下列程序代码的运行结果为( )。
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. Dim gg[1,5]As String
B. Dim gg[1 To 5,1 To 5]As String
C. Dim gg(1 To 5)As String
D. Dim gg[1:5,1:5]As String
[单项选择]单击命令按钮时,下列程序代码的运行结果为 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 Whle 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 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 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