下面代码的运行结果是： n = 1 while n ＞= 0: print（n) n = n - 1 else: print（n)

A、1，0，不输出

B、1，1，1

C、0，0，0

D、0，1，2

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

Do while m>n

Do While m>n：m=m-n：Loop

Do While n>m：n=n-m：Loop

Loop

myfun=m

End Function

Private Sub Command1_Click（ ）

print myfun(9，8)

End Sub

A.2

B.1

C.4

D.3

下列程序的运行结果是( )。

Private Function myfun(m,n)

Do While m>n

Do While m>n:m=m-n:Loop

Do While n>m:n=n-m:Loop

Loop

my fun=m

End Function

Private Sub Command1_Click()

Print myfun(9,8)

End Sub

A．2

B．1

C．4

D．3

单击命令按钮时，下列程序代码的运行结果为 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 Function myfun(m, n) Do While m ＞ n Do While m＞n:m=m-n:Loop Do while n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9, 8) End Sub

A．2

B．1

C．4

D．3

下列程序的运行结果是( )。 Private Function myfun(m，n) Do While m＞n Do While m＞n:m=m-n:Loop Do While n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9，8) End Sub

A．2

B．1

C．4

D．3

（ 8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。

（ 8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。