互いに素を求めたい

ある数値(a）があるとして、それと互いに素となる数値（ｂ）を求めるプログラムが分かる方おられませんか？？
自分ひとりで考えてもよく分からないので、助けてください…。
お願いします！

No.2 ベストアンサー 回答者： kazuhiko5681 回答日時： 2002/09/21 09:17

あなたのやりたいことは、このようなことでよろしいのでしょうか。

サンプルマクロを提示します。

Sub test()

Dim iNum(1 To 4) As Integer
Dim i As Integer

iNum(1) = Val(InputBox("整数１は？"))

For i = 1 To iNum(1) - 1
iNum(2) = iNum(1)
iNum(3) = iNum(1) - i
iNum(4) = iNum(3)

Do Until iNum(2) = iNum(4)
If iNum(2) > iNum(4) Then
iNum(2) = iNum(2) - iNum(4)
Else
iNum(4) = iNum(4) - iNum(2)
End If
Loop

If iNum(2) = 1 And iNum(3) > 1 Then
MsgBox iNum(3)
End If
Next i

End Sub

わたしが、エクセル２０００のＶＢＡで実行したところ、お互いに素になる数を求めることができました。

この回答へのお礼

回答ありがとうございました、私のやりたいことはまさにこれでした！！

前に同じような内容で質問をした時に回答をしていただいていたのにすみませんでしたm(__)m

このサンプルマクロ使いたいと思います！

お礼日時：2002/09/21 21:03

No.1 回答者： imogasi 回答日時： 2002/09/20 14:34

2002/7/14に同じ質問がありました。

ＮＯ．３１３７８７です。私も答えています。「エラトステネスの篩（ふるい）」でＷＥＢ検索すれば、または「素数」ででも沢山出てくると思います。

この回答へのお礼

早速の回答ありがとうございました！
参考にしたいと思います。

お礼日時：2002/09/21 21:03