1、 求两个正整数（如 65 和 15）的最大公约数。方法：求两个正整数的最大公约数，可采用“辗转相除法”。如先将 65 作为被除数，15 为除数，除得余数为 5。第二次除法，把上一次的除数（15）和余数（5） ，分别作为本次的被除数和除数，若余数不为零， 就继续除下去；若余数为零，则最后一次的除数（本题为5）就是最大公约数。具体程序如下：Private Sub Form_Load( )ShowDim m As Integer, n As Integer m,n 为给定的两个正整数。Dim b As Integer, c As Integer, y As Integer, d As Integer
2、Rem b 为被除数、c 为除数、y 为余数、d 为数据临时存放单元。m = 65: n = 15: b = m: c = nIf c b Then d = b: b = c: c = dRem 上程序确保 b 值大于等于 c 值y = b Mod c 求余数的运算Do While y 0b = c: c = y: y = b Mod cLoopRem 此循环的功能是“ 辗转相除“。被除数为上一轮的除数 (b=c) _除数为上一轮的余数(c=y),余数为 y(y=b mod c)。Print m; “和“; n; “的最大公约数为 :“; cEnd Sub此程序运行结果为：65 和 15 的最大公约数为:5
