計算機等級考試二級VB常用算法：約數因子

1.算法說明
1)公約數:用相除法求兩個自然數m和n的公約數。
(1)首先，對於已知的兩個數M和N，比較竝使M >N；
(2)m除以n得到餘數r；
(3)若r = 0，則n爲公約數，算法結束；否則，步驟(4)
(4)m & szlig；n n & szligR重複(2)
例如:10和5
分析步驟:m=10 n=5
r=m mod n=0
，所以n(n=5)是公約數
24和9[/br]R≠0m = 9n = 6
R = m mod n = 3
R≠0m = 6n = 3
R = m mod n = 3

算法實現
循環實現
私有函數GCD (byval m as long，ByVal n As Long)
Dim temp As Long
If m < n Then temp = m:m = n:n = temp
Dim r As Long
Do
r = m Mod n
If r = 0則Exit Do
m = n
n = r
Loop

遞歸實現
私有函數GCD(ByVal m爲long，ByVal n爲Long)As Long
Dim temp As Long
If m < n Then temp = m:m = n:n = temp
Dim r As Long
r = m Mod n
If r = 0 Then
GCD = n
Else
m = n
n = r
GCD = GCD

2)最小公倍數
m×n÷公約數

3)兩個正整數的素數公約數
爲1

解題技巧
這個算法需要死記硬背！
這類題的外延是除數和因子題。

2.實踐練習
1)補充代碼(春二2003 (9))
給定一個十進制正整數，找出所有小於它的正整數，竝與它互質(所謂互質數是指兩個正整數的公約數爲1，下圖爲程序執行畫麪)。
選項顯式

私有函數gcd((1))As Integer
Dim r As Integer
r = m Mod n
If r = 0 Then
gcd = n
Else
m = n:n = r
(2)
End If
End函數

private Sub command 1 _ Click()
Dim n爲整數，p爲整數
n = Val(text 1)
For p = n-1 To 2 Step-1
If(3)Then list 1。AddItem p
Next p
End Sub

2)編程題(2002年鞦季計算機試卷01)
生成一個三行八列的二維數組A(3，8)，其中前兩行元素由:
利用初始值X1=26和公式Xi 1=(25×Xi 357) Mod 1024生成一個序列:
其中X1~X8爲A的第一行元素；X9~X16作爲A的第二行元素；的第三行中的元素值取前兩行中同一列中元素的公約數。最後按照圖形格式顯示在圖片框中。

位律師廻複