Zitatdu hast 'vergessen' zu erwähnen, wieviel du zu zahlen bereit bist!
Wenn ich mir deinen Kopf zerbrechen soll, wird das teuer
Der Auftrag steht im Bereich "Ohne Gegenleistung" und somit ist eine Angabe
der Bezahlung redundant, da sie höchstens einem "Danke" entspricht.
Hier ist mein Vorschlag:
Spoiler anzeigen
Dim $aFragen[2] = [ _
"Welche Farbe hat eine rote Ampel?", _
"Wieviele Fußballspieler stehen in einer Partie für gewöhnlich auf dem Feld?" _
]
Dim $aAntworten[2] = [ _
"rot", _
"22" _
]
$iDurchgaenge = 2
$iZaehler = 0
$iRichtigeAntworten = 0
Do
$iZaehler += 1
$iAktuelleFrage = Random(0,UBound($aFragen)-1,1)
$sEingabe = InputBox("Frage Nr. " & $iZaehler, $aFragen[$iAktuelleFrage])
If $sEingabe = $aAntworten[$iAktuelleFrage] Then
MsgBox(0,"Richtig","Antwort ist : " & $aAntworten[$iAktuelleFrage])
$iRichtigeAntworten += 1
Else
MsgBox(0,"Leider Falsch","Antwort ist : " & $aAntworten[$iAktuelleFrage])
EndIf
Until $iZaehler >= $iDurchgaenge
MsgBox(0,"Auswertung","Du hast " & $iRichtigeAntworten & " richtige Antwort(en) zu insgesamt " & $iDurchgaenge & _
" Fragen gegeben, und lagst somit zu " & Round($iRichtigeAntworten/$iDurchgaenge*100,2) & " % richtig!")