Ako si vyrobiť Kvíz v jazyku Visual Basic

Urobte si kvíz v jazyku Visual Basic pomocou nasledujúceho cyklu výzvu kvíz je súťažiaci s otázkou , porovnať svoje odpovede s ten správny , a prihláste svoju pokračujúcu skóre . Môžete si urobiť taký kvíz s len barebone užívateľského rozhrania , ktoré využíva funkcie InputBox a MsgBox komunikovať s kvíz súťažiaci . Pre viac atraktívne prezentáciu , navrhnúť formulár pomocou jazyka Visual Basic je " Form Designer " , a ovládacie prvky v jeho " Skrinka na náradie " palety , ako napríklad " Button " a " Text box " kontrol . Pokyny dovolená 1

Otvorte programovací okno VB a písať príkazy priradenia texte každej otázky kvízu k prvku poľa reťazcov . Napríklad , môžete napísať tieto príkazy :

otázky ( 0 ) = " Kto bol ten posledný názov prvého amerického prezidenta ? " Otázky ( 1 ) = " Aký je súčin 3 a 17 ? "
2

Napíšte vyhlásenie Priradenie texte každej odpovede prvkov iného poľa reťazcov . U otázok uvedených v prvom kroku , môžete napísať tieto príkazy :

odpovede ( 0 ) = " Washington " odpovede ( 1 ) = " 51 "
3

Napíšte Pre ďalšie slučky , ktorá zobrazuje otázky a vyzve užívateľa k odpovedi . Napríklad , môžete napísať nasledujúce Pre ďalšie slučky .

I = 0 UBound ( otázky ) userAnswer = InputBox ( otázky ( i ) ) Next i
4

Napíšte vyhlásenie , ktoré porovnávajú odpoveď užívateľa so správnou odpoveďou . Napríklad , môžete napísať vyhlásenie na konci tohto kroku . Tieto výkazy porovnávať odpoveď užívateľa na správnu odpoveď , a potom sledovať skóre prehrávače zvýšením hodnoty premenných " nesprávne " a " nesprávne " .

Ak userAnswer < > odpovede ( i ) ThenMsgBox ( " nesprávne . Správna odpoveď je " & odpovede ( i ) ) nIncorrect + = 1ElseMsgBox ( " Správne ! " ) nCorrect + = 1End Ak
5

Napíšte Dim vyhlásenie deklarovať , všetky premenné použité v programe . Napríklad , môžete napísať tieto príkazy Dim :

Dim otázky ( 1 ) Vzhľadom na to StringDim odpovede ( 1 ) Vzhľadom k tomu StringDim userAnswer Ako StringDim nIncorrect Ako IntegerDim nCorrect Ako IntegerDim i As Integer
6

spustite program stlačením tlačidla " F5 " . Tu je kompletný program pre vaše pohodlie .

Private Sub Form1_Load ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky MyBase.LoadDim otázky ( 1 ) Vzhľadom na to StringDim odpovede ( 1 ) Vzhľadom k tomu StringDim userAnswer ako StringDim nIncorrect ako IntegerDim nCorrect ako IntegerDim aj ako Integerquestions ( 0 ) = " Kto bol ten posledný názov prvého amerického prezidenta ? " otázky ( 1 ) = " Čo je je výsledkom 3 a 17 " odpovedí ( 0 ) = ? " Washington " odpovede ( 1 ) = " 51 " pre i = 0. Pre UBound ( otázok) userAnswer = InputBox ( otázky ( i ) ) Ak userAnswer < > odpovede ( i ) ThenMsgBox ( " Incorrect . Správna odpoveď je " & odpovede ( i ) ) nIncorrect + = 1ElseMsgBox ( " Správne ! " ) nCorrect + = 1End IfNext iMsgBox ( " Vaše skóre " ; " . otázky " a nCorrect a " opraviť z " a UBound ( otázok) + 1 a ) End Sub

• Predchádzajúca strana: Ako používať viac nerovnosti v jazyku Visual Basic 
• Ďalšia strana: Ako si vyrobiť tlačidla na VB