求大神給編個function，輸入z1,z2,輸出z2,
z2可以一直遞增step 1，直到z2與z1互質
uj5u.com熱心網友回復：
這是數學問題，與 VB 無關。兩數是否互質，可用歐幾里德輾轉除法。另外，首先使 Z2 增加到一個奇數（如果是偶數，先加1 再檢測），此后遞增 2。這樣可以加快 Z2 成為一個質數的程序。如果 Z2 為質數且不等于 Z1，則兩數必然互質。
uj5u.com熱心網友回復：
對于這的問題的看法1 請問是單純的解決這個問題，還是想解決其他問題的中間步奏，若是中間步奏，建議考慮其他方法，感覺判斷
兩數是否互質是個不簡單的問題
2 若單純解決這個問題，核心：判斷兩數是否互質，不過我不會
uj5u.com熱心網友回復：
歐幾里德觸發并不復雜。就是求兩數的最大公約數。如果最大公約數是 1，即為互質。例如，求 21 與 15 是否互質，實際上是輾轉相除求余。
21 / 15 = 1 ... 6
15 / 6 = 2 ... 3
6 / 3 = 2 ... 0（除盡）
則 21 與 15 的最大公約數是 3，非互質。
再如，求 28 與 15 是否互質：
28 / 15 = 1 ... 13
15 / 13 = 1 ... 2
13 / 2 = 6 ... 1
2 / 1 = 2 ... 0（除盡）
則 28 與 15 的最大公約數是 1，互質。實際上，除到余數為 1 就可以停止了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78312.html
標籤：網絡編程
下一篇：ＶＢ的畢業設計