Faça um teste em Visual Basic , usando um loop For Next para solicitar concorrente do questionário com uma pergunta , compare sua resposta com a correta, e log sua pontuação em curso. Você pode fazer tal teste com apenas uma interface de usuário barebones que emprega as funções InputBox e MsgBox para se comunicar com o competidor quiz. Para uma apresentação mais atraente, criar um formulário com "designer Form" do Visual Basic e os controles em sua paleta de "caixa de ferramentas" , como o "Button" e " controles de caixa de texto" . Instruções
1

Abra a janela de programação do VB e escrever declarações atribuindo o texto de cada uma das perguntas do seu questionário a um elemento de uma matriz de cadeia . Por exemplo, você pode escrever estas declarações :

perguntas (0) = "Quem foi o último nome do primeiro presidente dos EUA ? " Perguntas (1) = "O que é o produto de 3 e 17 de ? "
2

Escrever declarações atribuindo o texto de cada resposta aos elementos de uma outra matriz de cadeia . Para as questões apresentadas na primeira etapa , você pode escrever estas declarações :

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

Escrever um loop For Next que exibe as perguntas e pede ao usuário para obter respostas. Por exemplo, você pode escrever o seguinte loop For Next.

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

Escrever declarações que comparar a resposta do usuário com a resposta correta. Por exemplo, você pode escrever as declarações no final desta etapa. Estas declarações comparar a resposta do usuário com a resposta verdadeira , então, acompanhar a pontuação do jogador , aumentando o valor das variáveis ​​" incorreto" e " incorreta ".

Se userAnswer <> respostas ( i) ThenMsgBox ( " incorreto . A resposta correta é " & respostas (i)) nIncorrect + = 1ElseMsgBox ( "Correto !") nCorrect + = 1End Se
5

Escrever declarações Dim declarando todas as variáveis ​​usadas em seu programa . Por exemplo, você pode escrever estas declarações Dim :

Dim perguntas (1) Como respostas StringDim (1) Como StringDim userAnswer Como StringDim nIncorrect Como IntegerDim nCorrect Como IntegerDim i As Integer
6

Execute o programa com a tecla " F5 ". Aqui está o programa completo para sua conveniência.

Sub Form1_Load privada (sender System.Object , ByVal e As System.EventArgs ) Handles MyBase.LoadDim perguntas (1) Como respostas StringDim (1) Como StringDim userAnswer Como StringDim nIncorrect Como IntegerDim nCorrect Como IntegerDim i Como Integerquestions (0) = "Quem foi o último nome do primeiro presidente dos EUA ? " perguntas (1) = "O que é o produto de 3 e 17 ? "respostas (0) = " Washington "respostas (1) = " 51 " For i = 0 To UBound (questões ) userAnswer = InputBox ( perguntas (i)) Se userAnswer < > respostas ( i) ThenMsgBox ( " incorreto . A resposta correta é " & respostas (i)) nIncorrect + = 1ElseMsgBox ( "Correto !") nCorrect + = 1End IfNext iMsgBox ( " sua pontuação é" ; " . perguntas " & nCorrect e " corrigir de " & UBound ( perguntas ) + 1 & ) End Sub