Quiz Program | C# Online Compiler

Quiz Program by Cameron Brethauer

Imports System

Public Module Module1

	Public Sub Main()
		Dim ans1 as String
		Dim ans2 as String
		Dim ans3 as String
		Dim ans4 as String
		Dim ans5 as String
		Dim ans6 as String
		Dim ans7 as String
		Dim ans8 as String
		Dim ans9 as String
		Dim ans10 as String
		Dim wrong1 as String
		Dim wrong2 as String
		Dim wrong3 as String
		Dim wrong4 as String
		Dim wrong5 as String
		Dim wrong6 as String
		Dim wrong7 as String
		Dim wrong8 as String
		Dim wrong9 as String
		Dim wrong10 as String
		Console.WriteLine("History Quiz")
		Console.WriteLine()
		Console.WriteLine("Question #1")
		'First Question
		'd is the Right Answer 
		Console.WriteLine("Which of the Following is NOT one of the Orignal 13 Colonies?")
		Console.WriteLine("a)Pennsylvania")
		Console.WriteLine("b)Virginia")
		Console.WriteLine("c)Delaware")
		Console.WriteLine("d)Vermont")
		ans1 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #2")
		'Second Question
		'c is the Right Answer 
		Console.WriteLine("What is the Capital of the United States?")
		Console.WriteLine("a)Moscow")
		Console.WriteLine("b)Ankara")
		Console.WriteLine("c)Washinton D.C.")
		Console.WriteLine("d)Phoenix")
		ans2 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #3")
		'3rd Question
		'b is the Right Answer 
		Console.WriteLine("When was the Declaration of Independence Signed?")
		Console.WriteLine("a)1755")
		Console.WriteLine("b)1776")
		Console.WriteLine("c)1878")
		Console.WriteLine("d)1947")
		ans3 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #4")
		'4th Question
		'c is the Right Answer 
		Console.WriteLine("What was the MAIN Cause of the Civil War?")
		Console.WriteLine("a)Economy")
		Console.WriteLine("b)Fear of Central Government")
		Console.WriteLine("c)Slave Trade")
		Console.WriteLine("d)Because They Were Mad")
		ans4 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #5")
		'5th Question
		'a is the Right Answer 
		Console.WriteLine("Who was the First President of the US?")
		Console.WriteLine("a)George Washington")
		Console.WriteLine("b)Abe Lincoln")
		Console.WriteLine("c)Alexander Hamilton")
		Console.WriteLine("d)Ben Franklin")
		ans5 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #6")
		'6th Question
		'c is the Right Answer 
		Console.WriteLine("Who Invented the Lightbulb?")
		Console.WriteLine("a)Nathan Ames")
		Console.WriteLine("b)Alessandro Volta")
		Console.WriteLine("c)Thomas Edison")
		Console.WriteLine("d)Ben Franklin")
		ans6 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #7")
		'7th Question
		'c is the Right Answer 
		Console.WriteLine("Where is Mount Rushmnore Located?")
		Console.WriteLine("a)Canada")
		Console.WriteLine("b)North Dakota")
		Console.WriteLine("c)South Dakota")
		Console.WriteLine("d)Washington D.C.")
		ans7 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #8")
		'8th Question
		'a is the Right Answer 
		Console.WriteLine("Who is NOT on Mount Rushmore?")
		Console.WriteLine("a)Alexander Hamilton")
		Console.WriteLine("b)George Washington")
		Console.WriteLine("c)Theodore Roosevelt")
		Console.WriteLine("d)Thomas Jefferson")
		ans8 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #9")
		'9th Question
		'd is the Right Answer 
		Console.WriteLine("Who did the Colonists GAIN Independence From?")
		Console.WriteLine("a)Russia")
		Console.WriteLine("b)Mexico")
		Console.WriteLine("c)Canada")
		Console.WriteLine("d)Great Britain")
		ans9 = Console.ReadLine()
		Console.WriteLine()
		Console.WriteLine("Question #10")
		'10th Question
		'b is the Right Answer 
		Console.WriteLine("When Did the Colonists Win the Revolutionary War?")
		Console.WriteLine("a)1787")
		Console.WriteLine("b)1781")
		Console.WriteLine("c)1848")
		Console.WriteLine("d)1707")
		ans10 = Console.ReadLine()
		Console.WriteLine()
		'If Right or Wrong
		Dim p1 as Integer
		Dim p2 as Integer
		Dim p3 as Integer
		Dim p4 as Integer
		Dim p5 as Integer
		Dim p6 as Integer
		Dim p7 as Integer
		Dim p8 as Integer
		Dim p9 as Integer
		Dim p10 as Integer
		'First Question	
		if ans1 = "a" then
			wrong1 = "One"
			p1 = -1 + 1
		else if ans1 = "b" then
			wrong1 = "One"
			p1 = -1 + 1
		else if ans1 = "c" then
			wrong1 = "One"
			p1 = -1 + 1
		else if ans1 = "d" then
			p1 = 1
		end if

		'Second Question																											
		if ans2 = "a" then
			wrong2 = "Two"
			p2 = -1 + 1
		else if ans2 = "b" then
			wrong2 = "Two"
			p2 = -1 + 1
		else if ans2 = "c" then
			p2 = 1
		else if ans2 = "d" then
			wrong2 = "Two"
			p2 = -1 + 1
		end if

		'Third Question																											
		if ans3 = "a" then
			wrong3 = "Three"
			p3 = -1 + 1
		else if ans3 = "b" then
			p3 = 1
		else if ans3 = "c" then
			wrong3 = "Three"
			p3 = -1 + 1
		else if ans3 = "d" then
			wrong3 = "Three"
			p3 = -1 + 1
		end if

		'4th Question																											
		if ans4 = "a" then
			wrong4 = "Four"
			p4 = -1 + 1
		else if ans4 = "b" then
			wrong4 = "Four"
			p4 = -1 + 1
		else if ans4 = "c" then
			p4 = 1
		else if ans4 = "d" then
			wrong4 = "Four"
			p4 = -1 + 1
		end if

		'5th Question																														
		if ans5 = "a" then
			p5 = 1
		else if ans5 = "b" then
			wrong5 = "Five"
			p5 = -1 + 1
		else if ans5 = "c" then
			wrong5 = "Five"
			p5 = -1 + 1
		else if ans5 = "d" then
			wrong5 = "Five"
			p5 = -1 + 1
		end if

		'6th Question																											
		if ans6 = "a" then
			wrong6 = "Six"
			p6 = -1 + 1
		else if ans6 = "b" then
			wrong6 = "Six"
			p6 = -1 + 1
		else if ans6 = "c" then
			p6 = 1
		else if ans6 = "d" then
			wrong6 = "Six"
			p6 = -1 + 1
		end if

		'7th Question																														
		if ans7 = "a" then
			wrong7 = "Seven"
			p7 = -1 + 1
		else if ans7 = "b" then
			wrong7 = "Seven"
			p7 = -1 + 1
		else if ans7 = "c" then
			p7 = 1
		else if ans7 = "d" then
			wrong7 = "Seven"
			p7 = -1 + 1
		end if

		'8th Question																														
		if ans8 = "a" then
			p8 = 1
		else if ans8 = "b" then
			wrong8 = "Eight"
			p8 = -1 + 1
		else if ans8 = "c" then
			wrong8 = "Eight"
			p8 = -1 + 1
		else if ans8 = "d" then
			wrong8 = "Eight"
			p8 = -1 + 1
		end if

		'9th Question																														
		if ans9 = "a" then
			wrong9 = "Nine"
			p9 = -1 + 1
		else if ans9 = "b" then
			wrong9 = "Nine"
			p9 = -1 + 1
		else if ans9 = "c" then
			wrong9 = "Nine"
			p9 = -1 + 1
		else if ans9 = "d" then
			p9 = 1
		end if

		'10th Question																														
		if ans10 = "a" then
			wrong10 = "Ten"
			p10 = -1 + 1
		else if ans10 = "b" then
			p10 = 1
		else if ans10 = "c" then
			wrong10 = "Ten"
			p10 = -1 + 1
		else if ans10 = "d" then
			wrong10 = "Ten"
			p10 = -1 + 1
		end if

		'Total Points You Can Get
		Dim total as Integer
		total = 10
		'Final Score 																														
		Console.WriteLine("You Scored a {0} of {1}", p1 + p2 + p3 + p4 + p5 + p6 + p7 + p8 + p9 + p10, total)
		Console.WriteLine()
		'Whats Wrong
		if wrong1 = "One" then
			Console.WriteLine("You Missed Question Number {0}", wrong1)
			Console.WriteLine()
		end if

		if wrong2 = "Two" then
			Console.WriteLine("You Missed Question Number {0}", wrong2)
			Console.WriteLine()
		end if

		if wrong3 = "Three" then
			Console.WriteLine("You Missed Question Number {0}", wrong3)
			Console.WriteLine()
		end if

		if wrong4 = "Four" then
			Console.WriteLine("You Missed Question Number {0}", wrong4)
			Console.WriteLine()
		end if

		if wrong5 = "Five" then
			Console.WriteLine("You Missed Question Number {0}", wrong5)
			Console.WriteLine()
		end if

		if wrong6 = "Six" then
			Console.WriteLine("You Missed Question Number {0}", wrong6)
			Console.WriteLine()
		end if

		if wrong7 = "Seven" then
			Console.WriteLine("You Missed Question Number {0}", wrong7)
			Console.WriteLine()
		end if

		if wrong8 = "Eight" then
			Console.WriteLine("You Missed Question Number {0}", wrong8)
			Console.WriteLine()
		end if

		if wrong9 = "Nine" then
			Console.WriteLine("You Missed Question Number {0}", wrong9)
			Console.WriteLine()
		end if

		if wrong10 = "Ten" then
			Console.WriteLine("You Missed Question Number {0}", wrong10)
			Console.WriteLine()
		end if
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        Dim ans1 as String
        Dim ans2 as String
        Dim ans3 as String
        Dim ans4 as String
        Dim ans5 as String
        Dim ans6 as String
        Dim ans7 as String
        Dim ans8 as String
        Dim ans9 as String
        Dim ans10 as String
        Dim wrong1 as String
        Dim wrong2 as String
        Dim wrong3 as String
        Dim wrong4 as String
        Dim wrong5 as String
        Dim wrong6 as String
        Dim wrong7 as String
        Dim wrong8 as String
        Dim wrong9 as String
        Dim wrong10 as String
        Console.WriteLine("History Quiz")
        Console.WriteLine()
        Console.WriteLine("Question #1")
        'First Question
        'd is the Right Answer 
        Console.WriteLine("Which of the Following is NOT one of the Orignal 13 Colonies?")
        Console.WriteLine("a)Pennsylvania")
        Console.WriteLine("b)Virginia")
        Console.WriteLine("c)Delaware")
        Console.WriteLine("d)Vermont")
        ans1 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #2")
        'Second Question
        'c is the Right Answer 
        Console.WriteLine("What is the Capital of the United States?")
        Console.WriteLine("a)Moscow")
        Console.WriteLine("b)Ankara")
        Console.WriteLine("c)Washinton D.C.")
        Console.WriteLine("d)Phoenix")
        ans2 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #3")
        '3rd Question
        'b is the Right Answer 
        Console.WriteLine("When was the Declaration of Independence Signed?")
        Console.WriteLine("a)1755")
        Console.WriteLine("b)1776")
        Console.WriteLine("c)1878")
        Console.WriteLine("d)1947")
        ans3 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #4")
        '4th Question
        'c is the Right Answer 
        Console.WriteLine("What was the MAIN Cause of the Civil War?")
        Console.WriteLine("a)Economy")
        Console.WriteLine("b)Fear of Central Government")
        Console.WriteLine("c)Slave Trade")
        Console.WriteLine("d)Because They Were Mad")
        ans4 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #5")
        '5th Question
        'a is the Right Answer 
        Console.WriteLine("Who was the First President of the US?")
        Console.WriteLine("a)George Washington")
        Console.WriteLine("b)Abe Lincoln")
        Console.WriteLine("c)Alexander Hamilton")
        Console.WriteLine("d)Ben Franklin")
        ans5 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #6")
        '6th Question
        'c is the Right Answer 
        Console.WriteLine("Who Invented the Lightbulb?")
        Console.WriteLine("a)Nathan Ames")
        Console.WriteLine("b)Alessandro Volta")
        Console.WriteLine("c)Thomas Edison")
        Console.WriteLine("d)Ben Franklin")
        ans6 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #7")
        '7th Question
        'c is the Right Answer 
        Console.WriteLine("Where is Mount Rushmnore Located?")
        Console.WriteLine("a)Canada")
        Console.WriteLine("b)North Dakota")
        Console.WriteLine("c)South Dakota")
        Console.WriteLine("d)Washington D.C.")
        ans7 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #8")
        '8th Question
        'a is the Right Answer 
        Console.WriteLine("Who is NOT on Mount Rushmore?")
        Console.WriteLine("a)Alexander Hamilton")
        Console.WriteLine("b)George Washington")
        Console.WriteLine("c)Theodore Roosevelt")
        Console.WriteLine("d)Thomas Jefferson")
        ans8 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #9")
        '9th Question
        'd is the Right Answer 
        Console.WriteLine("Who did the Colonists GAIN Independence From?")
        Console.WriteLine("a)Russia")
        Console.WriteLine("b)Mexico")
        Console.WriteLine("c)Canada")
        Console.WriteLine("d)Great Britain")
        ans9 = Console.ReadLine()
        Console.WriteLine()
        Console.WriteLine("Question #10")
        '10th Question
        'b is the Right Answer 
        Console.WriteLine("When Did the Colonists Win the Revolutionary War?")
        Console.WriteLine("a)1787")
        Console.WriteLine("b)1781")
        Console.WriteLine("c)1848")
        Console.WriteLine("d)1707")
        ans10 = Console.ReadLine()
        Console.WriteLine()
        'If Right or Wrong
        Dim p1 as Integer
        Dim p2 as Integer
        Dim p3 as Integer
        Dim p4 as Integer
        Dim p5 as Integer
        Dim p6 as Integer
        Dim p7 as Integer
        Dim p8 as Integer
        Dim p9 as Integer
        Dim p10 as Integer
        'First Question 
        if ans1 = "a" then
            wrong1 = "One"
            p1 = -1 + 1
        else if ans1 = "b" then
            wrong1 = "One"
            p1 = -1 + 1
        else if ans1 = "c" then
            wrong1 = "One"
            p1 = -1 + 1
        else if ans1 = "d" then
            p1 = 1
        end if
​
        'Second Question                                                                                                            
        if ans2 = "a" then
            wrong2 = "Two"
            p2 = -1 + 1
        else if ans2 = "b" then
            wrong2 = "Two"
            p2 = -1 + 1
        else if ans2 = "c" then
            p2 = 1
        else if ans2 = "d" then
            wrong2 = "Two"
            p2 = -1 + 1
        end if
​
        'Third Question                                                                                                         
        if ans3 = "a" then
            wrong3 = "Three"
            p3 = -1 + 1
        else if ans3 = "b" then
            p3 = 1
        else if ans3 = "c" then
            wrong3 = "Three"
            p3 = -1 + 1
        else if ans3 = "d" then
            wrong3 = "Three"
            p3 = -1 + 1
        end if
​
        '4th Question                                                                                                           
        if ans4 = "a" then
            wrong4 = "Four"
            p4 = -1 + 1
        else if ans4 = "b" then
            wrong4 = "Four"
            p4 = -1 + 1
        else if ans4 = "c" then
            p4 = 1
        else if ans4 = "d" then
            wrong4 = "Four"
            p4 = -1 + 1
        end if
​
        '5th Question                                                                                                                       
        if ans5 = "a" then
            p5 = 1
        else if ans5 = "b" then
            wrong5 = "Five"
            p5 = -1 + 1
        else if ans5 = "c" then
            wrong5 = "Five"
            p5 = -1 + 1
        else if ans5 = "d" then
            wrong5 = "Five"
            p5 = -1 + 1
        end if
​
        '6th Question                                                                                                           
        if ans6 = "a" then
            wrong6 = "Six"
            p6 = -1 + 1
        else if ans6 = "b" then
            wrong6 = "Six"
            p6 = -1 + 1
        else if ans6 = "c" then
            p6 = 1
        else if ans6 = "d" then
            wrong6 = "Six"
            p6 = -1 + 1
        end if
​
        '7th Question                                                                                                                       
        if ans7 = "a" then
            wrong7 = "Seven"
            p7 = -1 + 1
        else if ans7 = "b" then
            wrong7 = "Seven"
            p7 = -1 + 1
        else if ans7 = "c" then
            p7 = 1
        else if ans7 = "d" then
            wrong7 = "Seven"
            p7 = -1 + 1
        end if
​
        '8th Question                                                                                                                       
        if ans8 = "a" then
            p8 = 1
        else if ans8 = "b" then
            wrong8 = "Eight"
            p8 = -1 + 1
        else if ans8 = "c" then
            wrong8 = "Eight"
            p8 = -1 + 1
        else if ans8 = "d" then
            wrong8 = "Eight"
            p8 = -1 + 1
        end if
​
        '9th Question                                                                                                                       
        if ans9 = "a" then
            wrong9 = "Nine"
            p9 = -1 + 1
        else if ans9 = "b" then
            wrong9 = "Nine"
            p9 = -1 + 1
        else if ans9 = "c" then
            wrong9 = "Nine"
            p9 = -1 + 1
        else if ans9 = "d" then
            p9 = 1
        end if
​
        '10th Question                                                                                                                      
        if ans10 = "a" then
            wrong10 = "Ten"
            p10 = -1 + 1
        else if ans10 = "b" then
            p10 = 1
        else if ans10 = "c" then
            wrong10 = "Ten"
            p10 = -1 + 1
        else if ans10 = "d" then
            wrong10 = "Ten"
            p10 = -1 + 1
        end if
​
        'Total Points You Can Get
        Dim total as Integer
        total = 10
        'Final Score                                                                                                                        
        Console.WriteLine("You Scored a {0} of {1}", p1 + p2 + p3 + p4 + p5 + p6 + p7 + p8 + p9 + p10, total)
        Console.WriteLine()
        'Whats Wrong
        if wrong1 = "One" then
            Console.WriteLine("You Missed Question Number {0}", wrong1)
            Console.WriteLine()
        end if
​
        if wrong2 = "Two" then
            Console.WriteLine("You Missed Question Number {0}", wrong2)
            Console.WriteLine()
        end if
​
        if wrong3 = "Three" then
            Console.WriteLine("You Missed Question Number {0}", wrong3)
            Console.WriteLine()
        end if
​
        if wrong4 = "Four" then
            Console.WriteLine("You Missed Question Number {0}", wrong4)
            Console.WriteLine()
        end if
​
        if wrong5 = "Five" then
            Console.WriteLine("You Missed Question Number {0}", wrong5)
            Console.WriteLine()
        end if
​
        if wrong6 = "Six" then
            Console.WriteLine("You Missed Question Number {0}", wrong6)
            Console.WriteLine()
        end if
​
        if wrong7 = "Seven" then
            Console.WriteLine("You Missed Question Number {0}", wrong7)
            Console.WriteLine()
        end if
​
        if wrong8 = "Eight" then
            Console.WriteLine("You Missed Question Number {0}", wrong8)
            Console.WriteLine()
        end if
​
        if wrong9 = "Nine" then
            Console.WriteLine("You Missed Question Number {0}", wrong9)
            Console.WriteLine()
        end if
​
        if wrong10 = "Ten" then
            Console.WriteLine("You Missed Question Number {0}", wrong10)
            Console.WriteLine()
        end if
    End Sub
End Module
​

n =

Cached Result
Last Run:	5:58:14 pm
Compile:	0.111s
Execute:	0.001s
Memory:	32kb
CPU:	0s

View IL Code