Sehr geehrte Damen und Herren,
ich belege an einer Fernschule den Programmiererkurs für VBA. Eine der Aufgaben lautet ich soll ein Code erstellen der in Verbindung mit einem Formular Primzahlen erkennt. Hierfür soll ich eine While Wend Schleife benutzen und den Operator Mod. Bisher hatte ich nie schwierigkeiten mit den Aufgaben aber diesmal hab ich das Gefühl ich steh auf dem Schlauch. Ich habe einen Code angefertigt der aber nicht richtig funktioniert.
Private Sub cmdBerechnen_Click()
Dim intl As Integer
Dim intEingabe As Integer
Dim dblErgebnis As Double
intEingabe = Val(Me.txtEingabe.Value)
intl = 2
While intl < intEingabe
dblErgebnis = intEingabe Mod intl
intl = intl + 1
Wend
If dblErgebnis = 0 Then
txtErgebnis = intEingabe & " ist keine Primzahl!"
Else
txtErgebnis = intEingabe & " ist eine Primzahl!"
End If
End Sub
|