Vb代碼實現翻與翻的除法

將x標註為整數

x=a mod b

Do While x & gt0

a = b

b = x

x=a mod b

環

gcd=b

結束功能

Private Sub cmdexit_Click()

卸下我

末端接頭

Private Sub cmdjs_Click()

將a作為整數，b作為整數，x作為整數

a = txta。文本

b = txta。文本

x = gcd(a，b)

txtgy。Text = CStr(x)

末端接頭

這個交換過程是不需要的。