Advertisement
LipSharp

Untitled

Dec 22nd, 2015
1,015
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dim _Anzahl as Integer
  2. dim _nummer as Integer
  3. Sub Main
  4. _Anzahl = Inputbox("Wie viele Äpfel hat Peter")
  5. Anzahl
  6. End Sub
  7.  
  8. Sub Anzahl
  9. while _Anzahl < 3 '3 = Richtige lösung
  10. _Anzahl = Inputbox ("Versuche es erneut")
  11. WEnd
  12. MsgBox("Richtig")
  13.  
  14. End Sub
Advertisement
RAW Paste Data Copied
Advertisement