Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim _Anzahl as Integer
- dim _nummer as Integer
- Sub Main
- _Anzahl = Inputbox("Wie viele Äpfel hat Peter")
- Anzahl
- End Sub
- Sub Anzahl
- while _Anzahl < 3 '3 = Richtige lösung
- _Anzahl = Inputbox ("Versuche es erneut")
- WEnd
- MsgBox("Richtig")
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement