Ich muss ein Programm schreiben, mit dem man Primzahlen abfragen kann. Nur habe ich garkeinen Plan wie ich das machen soll. Hab hier mal etwas angefangen zu programmieren. Der Code ist fehlerhaft, ich hoffe ihr könnt mir helfen. Und bitte seid nachsichtig mit mir, ich habe gerade erst angefangen zu programmieren :) Danke
Private Sub cmdBerechnen_Click()
Dim strPrimZahl As String
Dim strI As String
Dim strEingabe As String
Dim strAusgabe As String
strEingabe = Val(Me.txtZahl.Value)
strAusgabe = Val(Me.txtErgebnis.Value)
strPrimZahl = strEingabe / strEingabe And strEingabe / 1
While strEingabe = strPrimZahl
strI = strI + 1
txtErgebnis = strEingabe & " ist eine Primzahl"
Wend
txtErgebnis = strEingabe & " ist keine Primzahl"
End Sub
|