Fai un quiz in Visual Basic utilizzando un ciclo For Next per indurre concorrente del quiz con una domanda , confrontare la sua risposta con quella corretta , e accedere il suo punteggio in corso. È possibile effettuare tale quiz con solo una interfaccia utente minimale che utilizza le funzioni MsgBox e InputBox per comunicare con il concorrente di quiz . Per una presentazione più attraente , la progettazione di un modulo con i "designer Form" di Visual Basic e dei controlli nel suo " Tool box " tavolozza , come ad esempio la " casella" controlli "Button " e . Istruzioni
1

Aprire la finestra di programmazione VB e scrivere istruzioni assegnando il testo di ciascuna delle domande del quiz ad un elemento di una matrice di stringhe . Ad esempio, è possibile scrivere queste dichiarazioni : "Chi è stato l'ultimo nome del primo presidente degli Stati Uniti "
Domande

( 0 ) = domande ( 1 ) = " Qual è il prodotto di 3 e 17 ? "
2

dichiarazioni scrittura assegnando il testo di ogni risposta agli elementi di un array di stringhe . Per le domande di cui al punto uno, si può scrivere queste dichiarazioni :

risposte ( 0 ) = risposte " Washington " (1 ) = " 51 "
3 < p > Scrivere un ciclo For Next che consente di visualizzare le domande e richiede all'utente di risposte . Ad esempio, si può scrivere la seguente ciclo For Next.

For i = 0 To UBound ( domande) userAnswer = InputBox ( domande ( i) ) Next i
4

istruzioni di scrittura che mettono a confronto la risposta dell'utente con la risposta corretta . Ad esempio, è possibile scrivere le istruzioni alla fine di questo passaggio. Queste dichiarazioni confrontare la risposta dell'utente alla vera risposta , quindi, di monitorare il punteggio del giocatore , aumentando il valore delle variabili " non corretti " e " scorretto ".

UserAnswer <> risposte ( i) ThenMsgBox ( " non corretto . La risposta corretta è " & risposte ( i) ) nIncorrect + = 1ElseMsgBox ( "Esatto ! " ) ANUTENZIONE + = 1End Se
5

Scrivi istruzioni Dim dichiarando tutte le variabili utilizzate nel programma. Ad esempio, è possibile scrivere queste affermazioni Dim :

domande Dim (1) Come StringDim risposte (1) Come StringDim userAnswer As StringDim nIncorrect Come IntegerDim ANUTENZIONE Come IntegerDim i come numero intero
6 < p > Eseguire il programma premendo il tasto "F5 ". Ecco il programma completo per la vostra convenienza .

private Sub Form1_Load ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles domande MyBase.LoadDim ( 1) Come StringDim risposte (1) Come StringDim userAnswer As StringDim nIncorrect Come IntegerDim ANUTENZIONE Come IntegerDim i come Integerquestions ( 0 ) = " Chi era il cognome del primo presidente degli Stati Uniti ? " domande ( 1 ) = " Che cosa è il prodotto di 3 e 17 ? " risposte ( 0 ) =" Washington "risposte ( 1 ) = " 51 " For i = 0 To UBound ( domande) userAnswer = InputBox ( domande ( i) ) Se userAnswer < > risposte ( i) ThenMsgBox ( " non corretto . La risposta corretta è " & risposte ( i) ) nIncorrect + = 1ElseMsgBox ( "Esatto ! " ) ANUTENZIONE + = 1End IfNext iMsgBox ( " il tuo punteggio è " , " . domande " & ANUTENZIONE e "correggere fuori " & UBound ( domande) + 1 & ) End Sub