今天學習了劉金玉老師零基礎VB教程的第53期，學習的主要内容是求解最大公約數與最小公倍數。

一、求解最小公倍數

1.數A與數B的最小公倍數=A*B/（A,B），即A乘以B除以A與B的最大公約數。

二、求解最大公約數

1.在VB中（A,B）表示A與B的最大公約數，最大公約數最經典方法是輾轉相除法，也叫歐幾裡得算法。

第一步：使用兩個數中較大的一個數A除以較小的一個數B，得到的餘數R1。

第二步：使用較小的數B除以餘數R1，得到第二個餘數R2。

第三步：繼續使用上一步餘數R2和較小數B兩個進行比較，用其中小的一個數除以大的數，得到第三個餘數R3。

第四步：繼續重複上一步做法，直到餘數為0的時候，最後一步兩個相除的數，較小的一個數即為最大公約數。

2.補充知識：Do while...loop循環

Do while 執行代碼的條件

需要執行的代碼

loop

隻要條件為真，那麼繼續執行下一次循環。這個條件循環語句，do while後面的執行代碼至少需要執行一次。

3.案例：開發計算最大公約數和最小公倍數的工具

①如圖新建控件2個label控件，4個text控件，兩個command控件。

②輸入代碼：

Function func(a As Integer, b As Integer) As Integer

If a < b Then

Dim C%

C = a

a = b

b = C

End If

Dim r%

r = a Mod b

Do While r <> 0

a = r

If a < b Then

C = a

a = b

b = C

End If

r = a Mod b

Loop

func = b

End Function

Private Sub Command1_Click()

Dim a%, b%, GYS%

a = Val(Text1.Text)

b = Val(Text2.Text)

GYS = func(a, b)

Text3.Text = GYS

End Sub

Private Sub Command2_Click()

Dim a%, b%, GBS%

a = Val(Text1.Text)

b = Val(Text2.Text)

GBS = a * b \ func(a, b)

Text4.Text = GBS

End Sub

③運行效果詳見視頻

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!