PGPってすごく良いの？

[0873 向こうから ◆tr.t4dJfuU NG NG]

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