03/04/02 22:24
>>941 すみません、もうチョットだけ・・ 先生（名無しさん）と相談させてください。
Public Function DKAKEEMODSEQ1TOD(入力E, 入力S)
'ｄ？＊e Mod ｓ ＝ １ となる ｄ？ を 検索 する
Dim e, s, d
Dim i, j
e = 入力E
s = 入力S
Debug.Print "ｄ＊"; e; "Mod"; s; "＝１ の検索開始ーーーーー"
For i = 1 To e
If (s * i + 1) Mod e = 0 Then
Debug.Print "i＝"; i
j = (s * i + 1) / e
Debug.Print "答えの ｄ＝"; j
Debug.Print " "
End If
Next i
Debug.Print "終了ーーーーーーーーーーーーーーーーーーーー"
DKAKEEMODSEQ1TOD = "完了"
End Function