程序的功能是使用辗转相除法求两个数的最大公约数。 Private Sub Command1_Click() Dim m%, n% m = Int(InputBox("input an integer")) n = Int(InputBox("input another integer")) Print [1] End Sub Public Function gcd%(m%, n%) Dim t% If [ 2 ] Then t = m: m = n: n = t Do r = m Mod n If r = 0 Then Exit Do m = n [ 3 ] Loop gcd = n End Function