利用輾轉(zhuǎn)相除法求最大公約數(shù)．
輾轉(zhuǎn)相除法，又名歐幾里德算法，是求兩個(gè)正整數(shù)最大公約數(shù)的算法，它的出現(xiàn)可追溯至3000年前．輾轉(zhuǎn)相除法并不需要把數(shù)作質(zhì)因子分解．用輾轉(zhuǎn)相除法求正整數(shù)a、b的最大公約數(shù)運(yùn)算過(guò)程為：
第一步：用被除數(shù)a除以除數(shù)b,得到余數(shù)c；
第二步：如果余數(shù)c不為0，則用上一步的除數(shù)b替換被除數(shù)a,用上一步的余數(shù)c替換除數(shù)b,再次執(zhí)行第一步；如果余數(shù)為0則執(zhí)行下一步；
第三步：則此時(shí)的除數(shù)即是a、b最大公約數(shù)．
例如a=60，b=25，運(yùn)算過(guò)程為：
①60÷25=2…10；②25÷10=2…5； ③10÷5=2…0． 第③步時(shí)，余數(shù)為0，運(yùn)算結(jié)束，則此步的除數(shù)5即是60和25的最大公約數(shù)．
Visual Basic代碼實(shí)現(xiàn)：
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
其中①、②空白處應(yīng)填的代碼分別是：
②

c As Integer

c As Integer

；
②

c!=0

c!=0

．