Run-Time Error 6 - Wie man Mod ein Doppel machen?

Question

Ich bekomme immer einen Laufzeitfehler in vba:

Sub rsa() 

Dim c1 As Long 
Dim c2 As Long 
Dim z As Long 
Dim e As Long 

pt = "xa" 
n = 187 
e = 7 

For i = 1 To Len(pt) 

    b = Mid$(pt, i, 1) 

     If b <> " " Then 

      z = Asc(UCase(b)) 
      'Here is the problem: 
      c = z^e Mod n 
      Text = Text & c 

     Else 

     Text = Text & " " 

     End If 

Next i 
Cells(20, 4).Value = Text 
End Sub 

ich den Laufzeitfehler bei c = z^e Mod n bekommen.

Ich habe verschiedene Datentypen versucht, aber ohne eine Lösung.

Answer 1

A Mod B ist A - Int(A/B) * B gleich, so können Sie versuchen, c = z^e - Int(z^e/n) * n statt c = z^e Mod n zu verwenden. Es funktioniert für mich

Answer 2

Laufzeitfehler 6 ist eine numerische Überlaufoperation. Eine Ihrer Variablen ist nicht groß genug oder nicht ausreichend genau definiert. Sie müssen mehr Beispiele zeigen usw., damit die Leute Ihnen eine bessere Idee geben können. Das erste, was ich tun würde, ist ALLE Zahlen auszudrucken, bevor Sie die Formel ausführen.

Verwenden Sie den Datentyp Doppel und wenn CDbl zu Doppelnutzung Umwandlung()