03/03/31 23:16
Dim A, B, C
Dim I, X, Y
A = 入力A: B = 入力B: C = 入力C
'A=9 B=47 C=21
Y = 0
X = A ^ 1 Mod C
Y = X
For I = 1 To B
Y = Y * 9
X = Y Mod C
Debug.Print I, X
Next I
Debug.Print "余り＝", X
ABEKIBMODC = X
End Function
03/03/31 23:16
Dim A, B, C
Dim I, X, Y
A = 入力A: B = 入力B: C = 入力C
'A=9 B=47 C=21
Y = 0
X = A ^ 1 Mod C
Y = X
For I = 1 To B
Y = Y * 9
X = Y Mod C
Debug.Print I, X
Next I
Debug.Print "余り＝", X
ABEKIBMODC = X
End Function