利用辗转相除法求最大公约数．
辗转相除法，又名欧几里德算法，是求两个正整数最大公约数的算法，它的出现可追溯至3000年前．辗转相除法并不需要把数作质因子分解．用辗转相除法求正整数a、b的最大公约数运算过程为：
第一步：用被除数a除以除数b,得到余数c；
第二步：如果余数c不为0，则用上一步的除数b替换被除数a,用上一步的余数c替换除数b,再次执行第一步；如果余数为0则执行下一步；
第三步：则此时的除数即是a、b最大公约数．
例如a=60，b=25，运算过程为：
①60÷25=2…10；②25÷10=2…5； ③10÷5=2…0． 第③步时，余数为0，运算结束，则此步的除数5即是60和25的最大公约数．
Visual Basic代码实现：
Private Sub Command1_Click （　　）
Dim a As Integer,b As Integer
Dim ①

c As Integer

c As Integer

a=Val（Text1．Text）
b=Val（Text2．Text）
c=a Mod b
Do While ②

c!=0

c!=0

a=b
b=c
c=a Mod b
Loop
Text3．Text=Str（b）
End Sub
其中①、②空白处应填的代码分别是：
②

c As Integer

c As Integer

；
②

c!=0

c!=0

．