module1.bas

来自「vb电子书籍」· BAS 代码 · 共 23 行

Attribute VB_Name = "Module1"
'Function gcd(ByVal m As Integer, n As Integer) As Integer
 '   If (m Mod n) = 0 Then
   '     gcd = n
 '   Else
  '      gcd = gcd(n, m Mod n)
  '  End If
  '  Print
'End Function
Public Function gcd(ByVal m%, ByVal n%) As Integer
  If m < n Then t = m: m = n: n = t
    Do
      r = m Mod n
        If r = 0 Then Exit Do
          m = n
          n = r
    Loop
  gcd = n

End Function