单击命令按钮时,下列程序的运行结果为

单击命令按钮时,下列程序的运行结果为

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 MyBM（23, 18）

End Sub

Public Function MyBM（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

MyBM=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 Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(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 Fun =m End Function

A．0

B．1

C．3

D．5

单击命令按钮时，下列程序的运行结果为 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 Command1_Click( ) Print MyBM(23，18)End SubPublic Function MyBM(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 MyBM=mEnd Function

A．0

B．1

C．3

D．5

单击命令按钮时，下列程序的运行结果为

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

单击命令按钮时，下列程序的执行结果为

A.20

B.30

C.115

D.135

单击命令按钮时，下列程序代码的运行结果为 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