vb代碼實現輾轉相除法

Private Function gcd(a As Integer, b As Integer)

Dim x As Integer

x=a mod b

Do While x > 0

a = b

b = x

x=a mod b

Loop

gcd=b

End Function

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdjs_Click()

Dim a As Integer, b As Integer, x As Integer

a = txta.Text

b = txta.Text

x = gcd(a, b)

txtgy.Text = CStr(x)

End Sub

那個swap過程就不需要了。

上一篇:五軸龍門加工中心c軸松開怎麽設置的

下一篇:現在搞數控編程的大概月工資多少？