Quiz | C# Online Compiler

Quiz by Dylan Stewart

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim Start as String
		Dim Quest1 as Integer
		Dim Quest2 as Integer
		Dim Quest3 as Integer
		Dim Quest4 as Integer
		Dim Quest5 as Integer
		Dim Quest6 as Integer
		Dim Quest7 as Integer
		Dim Quest8 as Integer
		Dim Quest9 as Integer
		Dim Quest10 as Integer
		Dim Total As Integer
		Total = 0
		Console.WriteLine("Welcome to the Quiz")
		Console.WriteLine("Are you Ready?(Y/N)")
		Start = Console.ReadLine.ToUpper
		If Start = "Y" Then
			Console.WriteLine("Nice")
		else Console.WriteLIne("That Sucks")
		End If
		Console.WriteLine("Question 1")
		Console.WriteLine("What is the Perimeter of a rectangle with a length of 5 and a width of 10?")
		Console.WriteLine("10")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest1 = "30" Then 
			Total = Total + 1
		Else Total = Total + 0
		End if
		Console.WriteLine("Question 2")
		Console.WriteLine("What is the area of a rectangle with a length of 5 and a width of 10?")
		Console.WriteLine("10")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest2 = "50" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 3")
		Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 6?")
		Console.WriteLine("10")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest3 = "30" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 4")
		Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 150?")
		Console.WriteLine("10")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest4 = "30" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 5")
		Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 50?")
		Console.WriteLine("10")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest5 = "10" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 6")
		Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 500?")
		Console.WriteLine("100")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest6 = "100" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 7")
		Console.WriteLine("What is the Area of a rectangle with a width of 5 and an area of 20?")
		Console.WriteLine("100")
		Console.WriteLine("30")
		Console.WriteLine("25")
		Console.WriteLine("50")
		Quest1 = Console.ReadLine.ToUpper
		If Quest7 = "100" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 8")
		Console.WriteLine("What is the Length of a rectangle with a width of 3 and a Diagonal of 15?")
		Console.WriteLine("100")
		Console.WriteLine("20")
		Console.WriteLine("5")
		Console.WriteLine("500")
		Quest1 = Console.ReadLine.ToUpper
		If Quest8 = "5" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 9")
		Console.WriteLine("What is the Length of a rectangle with a width of 3 and a perimeter of 10?")
		Console.WriteLine("20")
		Console.WriteLine("2")
		Console.WriteLine("10")
		Console.WriteLine("5")
		Quest1 = Console.ReadLine.ToUpper
		If Quest9 = "2" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("Question 10")
		Console.WriteLine("What is the Length of a rectangle with a width of 9 and a perimeter of 40?")
		Console.WriteLine("30")
		Console.WriteLine("22")
		Console.WriteLine("11")
		Console.WriteLine("6")
		Quest1 = Console.ReadLine.ToUpper
		If Quest10 = "11" Then 
			Total = Total + 1
		Else Total = Total + 0
		End If
		Console.WriteLine("You scored [0]/10", Total)
	End Sub
End Module

 
Imports System
                
Public Module Module1
    Public Sub Main()
        Dim Start as String
        Dim Quest1 as Integer
        Dim Quest2 as Integer
        Dim Quest3 as Integer
        Dim Quest4 as Integer
        Dim Quest5 as Integer
        Dim Quest6 as Integer
        Dim Quest7 as Integer
        Dim Quest8 as Integer
        Dim Quest9 as Integer
        Dim Quest10 as Integer
        Dim Total As Integer
        Total = 0
        Console.WriteLine("Welcome to the Quiz")
        Console.WriteLine("Are you Ready?(Y/N)")
        Start = Console.ReadLine.ToUpper
        If Start = "Y" Then
            Console.WriteLine("Nice")
        else Console.WriteLIne("That Sucks")
        End If
        Console.WriteLine("Question 1")
        Console.WriteLine("What is the Perimeter of a rectangle with a length of 5 and a width of 10?")
        Console.WriteLine("10")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest1 = "30" Then 
            Total = Total + 1
        Else Total = Total + 0
        End if
        Console.WriteLine("Question 2")
        Console.WriteLine("What is the area of a rectangle with a length of 5 and a width of 10?")
        Console.WriteLine("10")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest2 = "50" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 3")
        Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 6?")
        Console.WriteLine("10")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest3 = "30" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 4")
        Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 150?")
        Console.WriteLine("10")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest4 = "30" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 5")
        Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 50?")
        Console.WriteLine("10")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest5 = "10" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 6")
        Console.WriteLine("What is the Length of a rectangle with a width of 5 and an area of 500?")
        Console.WriteLine("100")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest6 = "100" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 7")
        Console.WriteLine("What is the Area of a rectangle with a width of 5 and an area of 20?")
        Console.WriteLine("100")
        Console.WriteLine("30")
        Console.WriteLine("25")
        Console.WriteLine("50")
        Quest1 = Console.ReadLine.ToUpper
        If Quest7 = "100" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 8")
        Console.WriteLine("What is the Length of a rectangle with a width of 3 and a Diagonal of 15?")
        Console.WriteLine("100")
        Console.WriteLine("20")
        Console.WriteLine("5")
        Console.WriteLine("500")
        Quest1 = Console.ReadLine.ToUpper
        If Quest8 = "5" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 9")
        Console.WriteLine("What is the Length of a rectangle with a width of 3 and a perimeter of 10?")
        Console.WriteLine("20")
        Console.WriteLine("2")
        Console.WriteLine("10")
        Console.WriteLine("5")
        Quest1 = Console.ReadLine.ToUpper
        If Quest9 = "2" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("Question 10")
        Console.WriteLine("What is the Length of a rectangle with a width of 9 and a perimeter of 40?")
        Console.WriteLine("30")
        Console.WriteLine("22")
        Console.WriteLine("11")
        Console.WriteLine("6")
        Quest1 = Console.ReadLine.ToUpper
        If Quest10 = "11" Then 
            Total = Total + 1
        Else Total = Total + 0
        End If
        Console.WriteLine("You scored [0]/10", Total)
    End Sub
End Module

View IL Code