Как да използваме Visual Basic за създаване на тест с множествен избор

Автор: Gregory Harris
Дата На Създаване: 16 Април 2021
Дата На Актуализиране: 4 Ноември 2024
Anonim
ПОДКЛЮЧЕНИЕ ODBC
Видео: ПОДКЛЮЧЕНИЕ ODBC

Съдържание

При тест с множествен избор всеки въпрос се състои от самия въпрос и различни отговори, от които само един е правилен. Можете да създадете тест с няколко избора в Visual Basic, като използвате етикети, за да покажете въпросите и радио бутоните за възможни отговори, както и бутони за навигация през различните проблеми. В кода използвайте масиви, за да запишете въпросите и отговорите, изпратени от потребителя, и запазете променлива за брояч, така че да знаете въпроса, в който се намира потребителят. В края на теста маркирайте отговорите на потребителя и покажете резултата във формуляра.


инструкции

Използвайте Visual Basic, за да създадете свое собствено Q & A шоу (Добре, не е добро изображение от ipal от Fotolia.com)
  1. Отворете нов проект на Visual Basic. Добавете два етикета, три радио бутона и два бутона за управление в формуляра. Плъзнете двете етикети нагоре, с Label1 върху Label2. Плъзнете RadioButton1, RadioButton2 и RadioButton3 и ги подравнете вертикално под етикетите. Плъзнете двата бутона под бутоните "радио" с Button1 отляво и Button2 отдясно.

  2. Натиснете F7, за да отворите прозореца с код. Въведете следния код на ниво клас:

    Дим въпроси (2, 4) Като низови отговори (2) като низове NumPerg As Integer

    Първият ред създава двуизмерен масив. Първото измерение се използва за всеки въпрос, а второто за самия въпрос, три избора на отговор и верния отговор. Вторият ред създава масив за съхраняване на потребителски отговори. Третият създава числова променлива, която дава на потребителя въпроса.


  3. Въведете следния код:

    Въпроси за частни субтитри () questions = New String (,) {{"Колко цвята имат дъгата?", "5", "6", "7", "7" {"Кой участва в Карибски пирати?", "Джони Деп", "Джон Малкович", "Джон Кюсак", "Джони Деп" {"Каква е столицата на Флорида?", "Маями", "Талахаси", "Джаксънвил", "Талахаси"

    Тази подпрограма просто вмъква трите въпроса и отговора в полето за въпроси. Можете да въведете повече въпроси или дори да ги импортирате от текстов файл, но не забравяйте да преоразмерите масивите с въпроси и отговори, за да посрещнете броя въпроси.

  4. Въведете следния код:

    Частно подвариантно тестване () Dim puntuacao As Integer = 0 За i = 0 до 2 Ако отговорите (i) = въпроси (i, 4) Тогава резултат = 1 Край Ако Следващ Label1.Text = "Тестът е приключил!" Label2.Text = "Вие натискате" & "& answers.Length & &" мрежа & "въпроси!" RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False Button1.Enabled = False Button2.Enabled = False End Sub


    Първият ред обявява подпрограма, която оценява теста. Той създава локална променлива, за да поддържа резултата и след това сканира въпросите в неговия масив и отговорите, изпратени от потребителя. За всеки отговор, който дава, резултатът се увеличава с 1. Накрая, той показва пунктуацията и деактивира останалите контроли.

  5. Отворете подпрограмата Form1_Load () и въведете следния код:

    Me.Text = "Моят тест за множествен избор!" GetPerFacts () NumPerg = 1 Label1.Text = "Въпрос" & quesNum & "of" & answers.Length Label2.Text = Въпроси (0, 0) Button1.Text = "Previous" Button2.Text = "Next" RadioButton1.Text = въпроси (0, 1) RadioButton2.Text = въпроси (0, 2) RadioButton3.Text = въпроси (0, 3)

    Първият ред определя текста в заглавната лента. Следващият извиква подпрограмата, за да получи Въпроси (). Третият инициализира брояча на въпросите. Четвъртият показва в кой въпрос е потребителят. Петата показва първия въпрос на етикета. Шестият и седмият променят текста за двата бутона. Последните три реда въвеждат трите избора като текст за трите радио бутона.

  6. Отворете подпрограмата Button1_Click () и въведете следния код

    Ако numPerg> 1 Тогава numPerg - = 1 Label1.Text = "Въпрос" & quesNum & "3" Label2.Text = Въпроси (numPerg - 1, 0) RadioButton1.Text = Въпроси (numPerg - 1, 1) RadioButton2.Text = въпроси (numPerg - 1, 2) RadioButton3.Text = въпроси (numPerg - 1, 3) Ако Button2.Text = "Изпрати" Тогава Button2.Text = "Next" Край Ако End

    Това е кодът за бутона "Предишен". Първо се проверява дали потребителят е натиснал бутона по време на първия въпрос. Ако не, той изважда брояча на въпроси от 1 и променя текста на етикетите и радио бутоните, за да покаже предишния въпрос. Ако потребителят е бил в последния въпрос, текстът в Button2 се променя от "Send" на "Next".

  7. Отворете подпрограмата Button2_Click () и въведете следния код:

    Ако RadioButton1.Checked = True Тогава отговаря (numPerg - 1) = RadioButton1.Text ElseIf RadioButton2.Checked = True Тогава отговаря (numPerg - 1) = RadioButton2.Text ElseIf RadioButton3.Checked = True Тогава отговаря (numPerg - 1) = RadioButton3. Край на текста Ако RadioButton1.Focus () Ако numPerg <3 Тогава numPerg + = 1 Label1.Text = "Въпрос" & quesNum & "of" & answers.Length2.Text = Въпроси (numPerg - 1, 0) RadioButton1.Text = (numPerg - 1, 1) RadioButton2.Text = въпроси (numPerg - 1, 2) RadioButton3.Text = въпроси (numPerg - 1, 3) Ако numPerg = 3 Тогава Button2.Text = "Submit" Край, ако Else EvaluateTest Край Ако

    Това е кодът за бутона "Следващ". Първите седем реда проверяват кой радио бутон е избрал потребителят и записват отговора в масива за отговор. Следващият ред променя фокуса на избора на RadioButton1. Следващият ред проверява дали потребителят не е в последния въпрос. Ако не е, подпрограмата увеличава стойността на променливата на брояча в единица и запълва радио етикетите и бутоните с информацията в следващия въпрос. Ако е така, той променя текста от бутона "Напред" на "Изпращане". Ако потребителят вече е в последния въпрос и е натиснал "Изпрати", програмата извиква подпрограмата Evaluate Test, за да получи резултат.

  8. Запазете вашата VisualBasic програма. Натиснете F5, за да го стартирате.