完善程序题（每空1分，共10分）

 1．求两个自然数m,n的最大公约数

    Private Sub Form_Click()   

Dim m%，n%，t%，r%

     m=InputBox(“输入m”)

     n= InputBox(“输入n”)

     If  m

       t=m：m=n：n=t

       [ 1 ] 

     Do

       r=  [ 2 ] 

       If r=0 then   [ 3 ] 

  m=n

   [ 4 ] 

     Loop

     Print “m和n的最大公约数是：”，  [ 5 ] 

    End Sub