单项选择题

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

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