Private Sub Command1_Click()

    Dim a, b, r, a1, b1 As Long
   
    a = Val(Text1.Text)
   
    b = Val(Text2.Text)
   
   
    a1 = a
   
    b1 = b
   
    r = a Mod b
   
    Do While r <> 0
      
       a = b
      
       b = r
      
       r = a Mod b
   
    Loop
   
    Label3.Caption = "(" & a1 & "," & b1 & ") = " & b
End Sub

上課打的,快瘋了,祝大家開心!不要像我一樣快被程式搞瘋了,good luck to you!