Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como fazer um Quiz em Visual Basic
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

Anterior :

Próximo : No
  Os artigos relacionados
·Biblioteca de criptografia para VBA 
·Como ler os elementos de um arquivo em um array 
·Como ativar a API janela para mostrar em VB6 
·Como instalar um Tamanho Form Grande com VB6 
·Programação VB.NET Server Client 
·Como excluir seleções de DataGridViewComboBox 
·VB Código inteiro para conversão de Cordas 
·Visual Basic XY Position velocidade Tutorial 
·Como criar grandes strings em VB 6.0 
·Como fazer um Bot Booter 
  Artigos em destaque
·Como colocar caracteres especiais em uma variável em P…
·Como Incorporar Sprite Flex 
·Como instalar o ASP.NET 
·Get_headers Vs . Velocidade cURL em PHP 
·Como remover espaço em branco em Perl Regex 
·Como copiar a partir do ListBox para o Multiline TextBo…
·Como converter um formato de data em PHP 
·Como chamar um método que retorna uma String em Java 
·Como usar WM_DROPFILES em VBA 
·Como declarar um campo 3D em MATLAB 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados