India Quiz | C# Online Compiler

India Quiz by Fiddler101

Imports System
Public Module Module1
	Public Sub Main()
		
		Dim slt as integer
		Do
			Console.WriteLine("Press 1 for Play Quiz")
			Console.Writeline("Press 2 for Instructions")
			Console.Writeline("Press 3 for Quit")
			slt = Console.Readline()
			
			if slt = 1 then
				console.WriteLine("Play Quiz")
				console.WriteLine()
				
				Dim attempt as Integer = 0
				Dim guess as String
				Console.writeline("Welcome to my Quiz on India begin...")
				console.WriteLine()
				Do
					Console.Writeline("What is the National Bird of India")
					guess = Console.Readline()
					attempt = attempt + 1
				Loop Until attempt = 3 Or guess = "peacock"

				if guess.ToLower() = "peacock" Then
					Console.Writeline("Well done, your answer was right")
				else
					Console.writeline("Sadly,you ran out of attempts")
					Console.WriteLine("Should of been more carful!")
				end if

				Do
					console.WriteLine()
					Console.Writeline("What is the National Animal of India")
					guess = Console.Readline()
					attempt = attempt + 1
				Loop Until attempt = 3 Or guess = "tiger"

				if guess.ToLower() = "tiger" Then
					Console.Writeline("Well done, your answer was right")
				else
					Console.writeline("Sadly,you ran out of attempts")
					Console.WriteLine("Should of been more carful!")
				end if

				Do
					console.WriteLine()
					Console.Writeline("What is the National Sport of India")
					guess = Console.Readline()
					attempt = attempt + 1
				Loop Until attempt = 3 Or guess = "field hockey"

				if guess.ToLower() = "field hockey" Then
					Console.Writeline("Well done, your answer was right")
				else
					Console.writeline("Sadly,you ran out of attempts")
					Console.WriteLine("Should of been more carful!")
				end if

				Do
					console.WriteLine()
					Console.Writeline("What is the National Fruit of India")
					guess = Console.Readline()
					attempt = attempt + 1
				Loop Until attempt = 3 Or guess = "mango"

				if guess.ToLower() = "mango" Then
					Console.Writeline("Well done, your answer was right")
				else
					Console.writeline("Sadly,you ran out of attempts")
					Console.WriteLine("Should of been more carful!")
				end if

				Do
					console.WriteLine()
					Console.Writeline("What is the National Language of India")
					guess = Console.Readline()
					attempt = attempt + 1
				Loop Until attempt = 3 Or guess = "hindi"

				if guess.ToLower() = "hindi" Then
					Console.Writeline("Well done, your answer was right")
				else
					Console.writeline("Sadly,you ran out of attempts")
					Console.WriteLine("Should of been more carful!")
				end if
				
			elseif slt = 2 then
				console.writeline("When 1 is pressed the quiz will start  When 2 is pressed the instructions are displayed  When 3 is pressed you leave and quit the game")
				console.writeline()
				
			elseif slt = 3 then
				console.WriteLine("Thank you for playing my quiz, Have a good day:)")
			else
				console.WriteLine("I am sorry but you have put a incorrect input only 1-3")
				
			End if
		loop until slt = 3
	End Sub
End Module

​x
 
Imports System
Public Module Module1
    Public Sub Main()
        
        Dim slt as integer
        Do
            Console.WriteLine("Press 1 for Play Quiz")
            Console.Writeline("Press 2 for Instructions")
            Console.Writeline("Press 3 for Quit")
            slt = Console.Readline()
            
            if slt = 1 then
                console.WriteLine("Play Quiz")
                console.WriteLine()
                
                Dim attempt as Integer = 0
                Dim guess as String
                Console.writeline("Welcome to my Quiz on India begin...")
                console.WriteLine()
                Do
                    Console.Writeline("What is the National Bird of India")
                    guess = Console.Readline()
                    attempt = attempt + 1
                Loop Until attempt = 3 Or guess = "peacock"
​
                if guess.ToLower() = "peacock" Then
                    Console.Writeline("Well done, your answer was right")
                else
                    Console.writeline("Sadly,you ran out of attempts")
                    Console.WriteLine("Should of been more carful!")
                end if
​
                Do
                    console.WriteLine()
                    Console.Writeline("What is the National Animal of India")
                    guess = Console.Readline()
                    attempt = attempt + 1
                Loop Until attempt = 3 Or guess = "tiger"
​
                if guess.ToLower() = "tiger" Then
                    Console.Writeline("Well done, your answer was right")
                else
                    Console.writeline("Sadly,you ran out of attempts")
                    Console.WriteLine("Should of been more carful!")
                end if
​
                Do
                    console.WriteLine()
                    Console.Writeline("What is the National Sport of India")
                    guess = Console.Readline()
                    attempt = attempt + 1
                Loop Until attempt = 3 Or guess = "field hockey"
​
                if guess.ToLower() = "field hockey" Then
                    Console.Writeline("Well done, your answer was right")
                else
                    Console.writeline("Sadly,you ran out of attempts")
                    Console.WriteLine("Should of been more carful!")
                end if
​
                Do
                    console.WriteLine()
                    Console.Writeline("What is the National Fruit of India")
                    guess = Console.Readline()
                    attempt = attempt + 1
                Loop Until attempt = 3 Or guess = "mango"
​
                if guess.ToLower() = "mango" Then
                    Console.Writeline("Well done, your answer was right")
                else
                    Console.writeline("Sadly,you ran out of attempts")
                    Console.WriteLine("Should of been more carful!")
                end if
​
                Do
                    console.WriteLine()
                    Console.Writeline("What is the National Language of India")
                    guess = Console.Readline()
                    attempt = attempt + 1
                Loop Until attempt = 3 Or guess = "hindi"
​
                if guess.ToLower() = "hindi" Then
                    Console.Writeline("Well done, your answer was right")
                else
                    Console.writeline("Sadly,you ran out of attempts")
                    Console.WriteLine("Should of been more carful!")
                end if
                
            elseif slt = 2 then
                console.writeline("When 1 is pressed the quiz will start  When 2 is pressed the instructions are displayed  When 3 is pressed you leave and quit the game")
                console.writeline()
                
            elseif slt = 3 then
                console.WriteLine("Thank you for playing my quiz, Have a good day:)")
            else
                console.WriteLine("I am sorry but you have put a incorrect input only 1-3")
                
            End if
        loop until slt = 3
    End Sub
End Module
​

Dumping object(System.Collections.Generic.List`1[System.Collections.Generic.List`1[ValueTuple`2[Int32,Int32]]])
[
   {
[
       (0, 0)
       ,
       (0, 1)
       ,
       (0, 2)
       ,
       (0, 3)
]   },
   {
[
       (1, 0)
       ,
       (1, 1)
       ,
       (1, 2)
       ,
       (1, 3)
]   },
   {
[
       (2, 0)
       ,
       (2, 1)
       ,
       (2, 2)
       ,
       (2, 3)
]   },
   {
[
       (3, 0)
       ,
       (3, 1)
       ,
       (3, 2)
       ,
       (3, 3)
]   }
]
Dumping object(System.Linq.SelectManySingleSelectorIterator`2[System.Collections.Generic.List`1[ValueTuple`2[Int32,Int32]],ValueTuple`2[Int32,Int32]])
[
   (0, 0)
   ,
   (0, 1)
   ,
   (1, 0)
   ,
   (1, 1)
]

Cached Result
Last Run:	11:31:56 pm
Compile:	0.013s
Execute:	0.08s
Memory:	4.22Mb
CPU:	0.093s

View IL Code