Πώς να κάνω μια Κουίζ σε Visual Basic

Κάντε ένα κουίζ σε Visual Basic , χρησιμοποιώντας ένα για το επόμενο βρόχο να παρακινήσει διαγωνιζόμενος του κουίζ με μια ερώτηση, συγκρίνετε την απάντησή της με το σωστό , και να συνδεθείτε σε εξέλιξη της βαθμολογίας . Μπορείτε να κάνετε ένα τέτοιο κουίζ με μόνο μια barebones διεπαφή χρήστη που χρησιμοποιεί τις λειτουργίες InputBox και MsgBox για να επικοινωνήσει με τον αγωνιζόμενο κουίζ . Για μια πιο ελκυστική παρουσίαση , σχεδιάσετε μια φόρμα με τη Visual Basic το " σχεδιαστής Form" και τους ελέγχους στην " Εργαλειοθήκη " παλέτα , όπως το " κουμπί" και " Πλαίσιο κειμένου " ελέγχους . Οδηγίες
Η

1 Ανοίξτε το παράθυρο προγραμματισμού VB και να γράφουν τις δηλώσεις ανάθεση το κείμενο των ερωτημάτων κουίζ σας σε ένα στοιχείο ενός πίνακα χορδών . Για παράδειγμα , μπορείτε να γράψετε αυτές τις δηλώσεις :

ερωτήματα ( 0 ) = " Ποιος ήταν το επώνυμο του πρώτου προέδρου των ΗΠΑ ; " ερωτήσεις ( 1 ) = " Τι είναι το προϊόν των 3 ​​και 17 ? " 2

Γράψτε δηλώσεις ανάθεση το κείμενο της κάθε απάντηση με τα στοιχεία του άλλου πίνακα χορδών . Για τις ερωτήσεις που δίνονται στο πρώτο στάδιο , μπορείτε να γράψετε αυτές τις δηλώσεις :

απαντήσεις ( 0 ) = " Ουάσιγκτον " απαντήσεις ( 1 ) = " 51 "
εικόνων 3

Γράψτε μια για το επόμενο βρόχο που εμφανίζει τις ερωτήσεις και ζητά από το χρήστη για τις απαντήσεις . Για παράδειγμα , μπορείτε να γράψετε το παρακάτω για το επόμενο βρόχο .

Για i = 0 να UBound ( ερωτήσεις ) userAnswer = InputBox ( ερωτήσεις ( i) ) Επόμενο i
4

Γράψτε δηλώσεις που συγκρίνουν απάντηση του χρήστη με τη σωστή απάντηση . Για παράδειγμα , μπορείτε να γράψετε τις δηλώσεις στο τέλος αυτού του βήματος . Οι δηλώσεις αυτές συγκρίνουν απάντηση του χρήστη με την αληθινή απάντηση , στη συνέχεια να παρακολουθείτε το σκορ του παίκτη με την αύξηση της αξίας των μεταβλητών «λάθος» και «λάθος ».

Αν userAnswer <> απαντήσεων ( i ) ThenMsgBox ( "Λάθος . Η σωστή απάντηση είναι " & απαντήσεις ( i ) ) nIncorrect + = 1ElseMsgBox ( " σωστό ! " ) ανακριβή + = 1End Αν
5

Γράψτε Dim δηλώσεις δηλώνοντας όλες οι μεταβλητές που χρησιμοποιούνται στο πρόγραμμα σας . Για παράδειγμα , μπορείτε να γράψετε αυτές τις δηλώσεις Dim :

Dim ερωτήσεις ( 1) Όπως StringDim απαντήσεις ( 1) Όπως StringDim userAnswer Όπως StringDim nIncorrect Όπως IntegerDim ανακριβή Όπως IntegerDim i As Integer
Η 6

Εκτελέστε το πρόγραμμά σας πατώντας το πλήκτρο " F5 . " Εδώ είναι το πλήρες πρόγραμμα για την εξυπηρέτησή σας .

Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Χειρίζεται τα θέματα MyBase.LoadDim ( 1 ) Όπως StringDim απαντήσεις ( 1) Όπως StringDim userAnswer Όπως StringDim nIncorrect Όπως IntegerDim ανακριβή Όπως IntegerDim i Όπως Integerquestions ( 0 ) = " Ποιος ήταν το επώνυμο του πρώτου προέδρου των ΗΠΑ ; " ερωτήσεις ( 1 ) = «Τι είναι το προϊόν των 3 ​​και 17 ; " απαντήσεις ( 0 ) = " Ουάσιγκτον " απαντήσεις ( 1 ) = " 51 " Για i = 0 να UBound ( ερωτήσεις ) userAnswer = InputBox ( ερωτήσεις ( i ) ) Αν userAnswer <> απαντήσεων ( i ) ThenMsgBox ( "Λάθος . Η σωστή απάντηση είναι " & απαντήσεις ( i ) ) nIncorrect + = 1ElseMsgBox ( " σωστό ! " ) ανακριβή + = 1End IfNext iMsgBox ( « Το σκορ σας είναι " ? " . ερωτήσεις " και ανακριβή & " διορθώσει έξω από το" & UBound ( ερωτήσεις ) + 1 & ) End Sub
Η
εικόνων