Hallo,
ich bräuchte bitte dringend Hilfe bei folgender Aufgabenstellung:
Ein Programm soll erst nach Eingabe eines Sicherheitscodes gestartet werden. Der Benutzer hat aber nur 5 Versuche, um den korrekten Code einzugeben,ansonsten wird das Programm beendet. Das eigentliche Programm soll eine eingegebene Zahl durch 5 dividieren und den Rest ausgeben. Danach wird mit dem Ergebnis (ohne Kommas!) weiterdividiert und der Rest immer ausgegeben, bis das Ergebnis der Division kleiner als 5 ist.
Bis jetzt habe ich folgenden Programm geschrieben:Den ersten Teil mit dem Sicherheitscode habe ich mir fehlt leider der Ansatz für den 2ten Teil.
Sub Sicherheitscode()
Dim Code As Integer
Dim x As Integer
Do
Code = InputBox("Bitte geben Sie den Sicherheitscode ein:")
If (Code = 408) Then
Exit Do
End If
If (Not Code) Then
MsgBox ("Der Code ist nicht korrekt bitte geben Sie den Code ein")
End If
Loop
x = InputBox("Bitte geben Sie eine Zahl ein:")
AB DA WEIß ICH LEIDER NICHT MEHR WEITER !!!!
End Sub
Kann mir wer hier bitte helfen.
Danke im Voraus.
Mfg
|