MsgBox (4,"Novac's Quiz","Lust auf ein kleines Quiz?")
MsgBox (0,"Novac's Quiz","Warum frag ich eigentlich")
MsgBox (0,"Novac's Quiz",";)")
do
until InputBox ("Novac's Quiz","Bereit?",""," M") = "ja"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
MsgBox (4,"Novac's Quiz","Bereit für die nächste Frage?")
MsgBox (0,"Novac's Quiz","Wenn nicht is mir auch egal")
MsgBox (0,"Novac's Quiz",";)")
MsgBox (0,"Novac's Quiz","Kleiner Tipp:Alle Antworten müssen 'kleingeschrieben' werden")
do
until Inputbox ("Novac's Quiz","5*7 =",""," M") = "35"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
do
until InputBox ("Novac's Quiz","Bekannte Suchmaschine im Internet?",""," M") = "google"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
do
until InputBox ("Novac's Quiz","Dateiendung eines Bildes",""," M") = "jpg"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
do
until Inputbox ("Novac's Quiz","Neustes Windows Betriebssystem = Windows ...",""," M") = "7"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
do
until InputBox ("Novac's Quiz","In welcher bekannten Comedyshow spielt Charlie Sheen die Hauptrolle",""," M") = "two and a half men"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
do
until InputBox ("Novac's Quiz","Welche bekannte Trickserie hatte am 13 September 1991 ihre Erstausstrahlung in Deutschland",""," M") = "die simpsons"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
do
until InputBox ("Novac's Quiz","Ein bekannter Grafikkartenhersteller?",""," M") = "nvidia"
MsgBox (0,"Novac's Quiz","Richtige Antwort")
exit