完善程序题（每空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

用选择法按递增顺序排序

  Private Sub Command1_Click()

    Dim a(1 to 6) as integer,i%,j%,amin%,t%

    For i=1 to 6

      a(i)=InputBox(“给数组元素赋值”)

      [ 6 ] 

    n=6

    For i=1 to   [ 7 ] 

     amin=   [ 8 ] 

     For j=  [ 9 ]   to n

       If a(j)

     Next j

     t=a(i)

     a(i)=a(amin)

     a(amin)=t

    Next i

  End Sub

 [1]   End If    [2]  m mod n    [3]   Exit Do    [4]   n=r   [5] n                                     [6]   End for  [7]     n-1       [8]  i     [9]   i 1    [10]   amin=j