下列程序的运行结果是( )。
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