INTEGRATED PROJECT | C# Online Compiler

INTEGRATED PROJECT by MerryDominique

Imports System
				
Public Module Module1
	Public Sub Main()

		Dim score1 as integer 
		Dim score2 as integer
		Dim score3 as integer
		Dim score4 as integer
		Dim score5 as integer
		Dim score6 as integer
		Dim score7 as integer
		Dim score8 as integer
		Dim score9 as integer
		Dim score10 as integer
		Dim total as integer = score10
		
		'answers
		Dim answer1 as string
		Dim answer2 as string
		Dim answer3 as string
		Dim answer4 as string
		Dim answer5 as string
		Dim answer6 as string
		Dim answer7 as string
		Dim answer8 as string
		Dim answer9 as string
		Dim answer10 as string
		
		'personal information'
		Dim name as string
		Dim year as string
		Dim Subject as integer
		'introduction'
		Console.Writeline ("Welcome to IGCSE Quiz Central. You will be provided with 10 questions from IGCSE Past Papers!")
		
		'personal information about the student'
		Console.Writeline ("But before we get started please write your personal information")
		Console.Write ("Name:") 
		Name = Console.Readline ()
		Console.Write ("Class:")
		Year = console.readline()
		Console.Writeline ("----------------------------------------------------")
		
		'choose the quiz of your choice'
		Console.Writeline ("Hello " & Name & "! Please choose a subject of your choice by writing its corresponding code.")
		Console.WriteLine("0580 - Math")
		Console.Writeline ("6202 - Computer Science")
		Console.Writeline ("6304 - Science")
		Console.Writeline ("2007 - Humanities")
		Console.Write("Code:")
		Subject = Console.Readline ()
		Console.Writeline ("----------------------------------------------------")
		
		'start of the quiz'
		Select Case Subject
		Case "0580" 
			Console.Writeline ("The subject that you've chosen is Math")
			Console.Writeline ("You will be placed with 10 Objective Questions")
			
			Console.Writeline ("Note: ANSWERS SHOULD BE IN CAPSLOCK OR ELSE IT WILL NOT BE ACCEPTED")
			Console.Writeline ("----------------------------------------------------")
			
			'QUESTIONS'
			
			'multiple choice
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 1•")
			Console.Writeline ("----------------------------------------------------")
			
			'QUESTION 1'
			Console.Writeline ("1.Convert 0.68 into a fraction in its lowest terms.")
			Console.Writeline ("a. 12/65")
			Console.Writeline ("b. 17/25")
			Console.Writeline ("c. 68/100")
			Console.Write("Answer:")
				Answer1 = console.ReadLine()
			If Answer1 = "B"
				Console.Writeline ("CORRECT ANSWER!")
				score1= +1
				Console.Writeline ("Score:" & score1)
			Else 
				Score1 = 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is B")
				Console.Writeline ("Score:" & score1)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 2'
			Console.Writeline ("2. Hassan says that l = 88.2. Round this to the nearest whole number.")
			Console.Writeline ("a. 80.0")
			Console.Writeline ("b. 89.0")
			Console.Writeline ("c. 88.0")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "C"
				Console.Writeline ("CORRECT ANSWER!")
				score2= score1 +1
				Console.Writeline ("Score:" & score2)
			Else 
				Score2 = score1 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is C")
				Console.Writeline ("Score:" & score2)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Fill in the blanks'
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 2•")
			Console.Writeline ("----------------------------------------------------")
			
			'Question 3
			Console.Writeline ("3. ______ is a diagram showing the relation between variable quantities")
			Console.Write("Answer:")
				Answer3 = console.ReadLine()
			If Answer3 = "GRAPH"
				Console.Writeline ("CORRECT ANSWER!")
				score3= score2 +1
				Console.Writeline ("Score:" & score3)
			Else 
				Score3 = score2 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is GRAPH")
				Console.Writeline ("Score:" & score3)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 4
			Console.Writeline ("4. ______  is a fundamental relation in Euclidean geometry among the three sides of a right triangle")
			Console.Write("Answer:")
				Answer4 = console.ReadLine()
			If Answer4 = "PYTHAGOREAN THEOREM"
				Console.Writeline ("CORRECT ANSWER!")
				score4= score3 +1
				Console.Writeline ("Score:" & score4)
			Else 
				Score4 = score3 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is PYTHAGOREAN THEOREM")
				Console.Writeline ("Score:" & score4)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Short Word Problems'
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 3•")
			Console.Writeline ("----------------------------------------------------")
			
			'QUESTION 5'
			Console.Writeline ("5.Calculate the total cost of 197 tickets at $10 each and 95 tickets at $16 each.")
			Console.Write("Answer:")
				Answer5 = console.ReadLine()
			If Answer5 = "3490"
				Console.Writeline ("CORRECT ANSWER!")
				score5= score4 +1
				Console.Writeline ("Score:" & score5)
			Else 
				Score5 = score4 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is 3490")
				Console.Writeline ("Score:" & score5)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 6
			Console.Writeline ("6.A car traveled 281 miles in 4 hours 41 minutes. What was the average speed of the car in miles per hour?")
			Console.Write("Answer:")
				Answer6 = console.ReadLine()
			If Answer6 = "60"
				Console.Writeline ("CORRECT ANSWER!")
				score6= score5 +1
				Console.Writeline ("Score:" & score6)
			Else 
				Score6 = score5 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is 60")
				Console.Writeline ("Score:" & score6)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'TRUE OR FALSE'
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 4•")
			Console.Writeline ("----------------------------------------------------")
			
			
			'QUESTION 7'
			Console.WriteLine("WRITE WHETHER IT'S TRUE OR FALSE")
			Console.Writeline ("7.  ((2^2)3^6) = 25 ")
			Console.Write("Answer:")
				Answer7 = console.ReadLine()
			If Answer7 = "FALSE"
				Console.Writeline ("CORRECT ANSWER!")
				score7= score6 +1
				Console.Writeline ("Score:" & score7)
			Else 
				Score7 = score6 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is FALSE")
				Console.Writeline ("Score:" & score7)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 8
			Console.Writeline ("8. x is at most equal to 9 is written mathematically as x < 9")
			Console.Write("Answer:")
				Answer8 = console.ReadLine()
			If Answer8 = "FALSE"
				Console.Writeline ("CORRECT ANSWER!")
				score8= score7 +1
				Console.Writeline ("Score:" & score8)
			Else 
				Score8 = score7 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is FALSE")
				Console.Writeline ("Score:" & score8)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'FIND THE VALUE OF X'
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 5•")
			Console.Writeline ("----------------------------------------------------")
			
			
			'QUESTION 9'
			Console.Writeline ("FIND THE VALUE OF X")
			Console.Writeline ("9.	5 ( x - 3 )	=	35")
			Console.Write("Answer:")
				Answer9 = console.ReadLine()
			If Answer9 = "10"
				Console.Writeline ("CORRECT ANSWER!")
				score9= score8 +1
				Console.Writeline ("Score:" & score9)
			Else 
				Score9 = score8 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is 10")
				Console.Writeline ("Score:" & score9)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 10
			Console.Writeline ("10.	5 ( 2x + 4 ) =	41")
			Console.Write("Answer:")
				Answer10 = console.ReadLine()
			If Answer10 = "2.1"
				Console.Writeline ("CORRECT ANSWER!")
				score10= score9 +1
				Console.Writeline ("Score:" & score10)
			Else 
				Score10 = score9 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is 2.1")
				Console.Writeline ("Score:" & score9)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
		
			
			'SCIENCE'
			
		Case "6304"
			Console.Writeline ("The subject that you've chosen is Science")
			Console.Writeline ("You will be placed with 10 Objective Questions")
			
			Console.Writeline ("Note: ANSWERS SHOULD BE IN CAPSLOCK OR ELSE IT WILL NOT BE ACCEPTED")
			Console.Writeline ("----------------------------------------------------")
			
			'QUESTIONS'
			
			'multiple choice
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 1•")
			Console.Writeline ("----------------------------------------------------")
			'QUESTION 1'
			Console.Writeline ("1.Which statement is correct?")
			Console.Writeline ("a. Mass is a force, measured in kilograms.")
			Console.Writeline ("b. Weight is a force, measured in newtons.")
			Console.Writeline ("c. Weight is a force, measured in kilograms.")
			Console.Write("Answer:")
				Answer1 = console.ReadLine()
			If Answer1 = "B"
				Console.Writeline ("CORRECT ANSWER!")
				score1= +1
				Console.Writeline ("Score:" & score1)
			Else 
				Score1 = 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is B")
				Console.Writeline ("Score:" & score1)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 2'
			Console.Writeline ("2. Some chemical compounds are purified by recrystallisation. What can be used to test the purity of the crystals?")
			Console.Writeline ("a. melting point")
			Console.Writeline ("b. colour of crystals")
			Console.Writeline ("c. size of crystals")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "A"
				Console.Writeline ("CORRECT ANSWER!")
				score2= score1 +1
				Console.Writeline ("Score:" & score2)
			Else 
				Score2 = score1 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is A")
				Console.Writeline ("Score:" & score2)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 3'
			Console.Writeline ("3. Which of the following lists contains only arthropods?")
			Console.Writeline ("a. annelids, insects, myriapods")
			Console.Writeline ("b. arachnids, crustaceans, myriapods")
			Console.Writeline ("c. crustaceans, insects, molluscs")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "B"
				Console.Writeline ("CORRECT ANSWER!")
				score3= score2 +1
				Console.Writeline ("Score:" & score3)
			Else 
				Score3 = score2 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is B")
				Console.Writeline ("Score:" & score3)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			
			'Paper 3
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 2•")
			Console.Writeline ("----------------------------------------------------")
			
			'Question 4
			Console.Writeline ("4. What is the valency of boron?")
			Console.Write ("Answer:")
			Answer4 = Console.Readline()
			
			If Answer4 = "3"
				Console.Writeline ("CORRECT ANSWER!")
				score4= score3 +1
				Console.Writeline ("Score:" & score4)
			Else 
				Score4 = score3 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is 3")
				Console.Writeline ("Score:" & score4)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 5
			Console.Writeline ("5. Another box of weight 1500 N is raised vertically by 3.0 m.Calculate the work done on the box.")
			Console.Write ("Answer:")
			Answer5 = Console.Readline()
			
			If Answer5 = "4500"
				Console.Writeline ("CORRECT ANSWER!")
				score5= score4 +1
				Console.Writeline ("Score:" & score5)
			Else 
				Score5 = score4 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is 4500")
				Console.Writeline ("Score:" & score5)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 6
			Console.Writeline ("6. Name the organ responsible for forming urine;.")
			Console.Write ("Answer:")
			Answer6 = Console.Readline()
			
			If Answer6 = "KIDNEY"
				Console.Writeline ("CORRECT ANSWER!")
				score6= score5 +1
				Console.Writeline ("Score:" & score6)
			Else 
				Score6 = score5 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is KIDNEY")
				Console.Writeline ("Score:" & score6)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Paper 6
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 3•")
			Console.Writeline ("----------------------------------------------------")
			
			
			'Question 7
		
			Console.Writeline ("7. ______ is a fluid produced by the skin in order to regulate body temperature.")
			Console.Write ("Answer:")
			Answer7 = Console.Readline()
			
			If Answer7 = "SWEAT"
				Console.Writeline ("CORRECT ANSWER!")
				score7= score6 +1
				Console.Writeline ("Score:" & score7)
			Else 
				Score7 = score6 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is SWEAT")
				Console.Writeline ("Score:" & score7)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 8
			Console.Writeline ("8. ______ is the chemical element of atomic number 3, a soft silver-white metal. It is the lightest of the alkali metals.")
			Console.Write ("Answer:")
			Answer8 = Console.Readline()
			
			If Answer8 = "LITHIUM"
				Console.Writeline ("CORRECT ANSWER!")
				score8= score7 +1
				Console.Writeline ("Score:" & score8)
			Else 
				Score8 = score7 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is LITHIUM")
				Console.Writeline ("Score:" & score8)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 9
			Console.Writeline ("9. The average speed of an object is defined as the distance traveled divided by the time elapsed.")
			Console.Write ("Answer:")
			Answer9 = Console.Readline()
			
			If Answer9 = "VELOCITY"
				Console.Writeline ("CORRECT ANSWER!")
				score9= score8 +1
				Console.Writeline ("Score:" & score9)
			Else 
				Score9 = score8 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is VELOCITY")
				Console.Writeline ("Score:" & score9)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 10
			Console.Writeline ("10. A vector quantity has both magnitude and ___ while a scalar has only magnitude..")
			Console.Write ("Answer:")
			Answer10 = Console.Readline()
			
			If Answer10 = "DIRECTION"
				Console.Writeline ("CORRECT ANSWER!")
				score10= score9 +1
				Console.Writeline ("Score:" & score10)
			Else 
				Score10 = score9 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is DIRECTION")
				Console.Writeline ("Score:" & score10)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
		Case "6202"
			'QUESTIONS COMPUTER SCIENCE
			
			'multiple choice
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 1•")
			Console.Writeline ("----------------------------------------------------")
			
			'QUESTION 1'
			Console.Writeline ("1.What is the term used for describing the judgmental or commonsense part of problem solving?")
			Console.Writeline ("a. Heuristic")
			Console.Writeline ("b. Critical")
			Console.Writeline ("c. Value based")
			Console.Write("Answer:")
				Answer1 = console.ReadLine()
			If Answer1 = "A"
				Console.Writeline ("CORRECT ANSWER!")
				score1= +1
				Console.Writeline ("Score:" & score1)
			Else 
				Score1 = 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is A")
				Console.Writeline ("Score:" & score1)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 2'
			Console.Writeline ("2.Which kind of planning consists of successive representations of different levels of a plan?")
			Console.Writeline ("a. hierarchical planning")
			Console.Writeline ("b. non-hierarchical planning")
			Console.Writeline ("c. All of the above")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "A"
				Console.Writeline ("CORRECT ANSWER!")
				score2= score1 +1
				Console.Writeline ("Score:" & score2)
			Else 
				Score2 = score1 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is A")
				Console.Writeline ("Score:" & score2)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 3'
			Console.Writeline ("3. The part of machine level instruction, which tells the central processor what has to be done, is")
			Console.Writeline ("a. Address")
			Console.Writeline ("b. Operation code")
			Console.Writeline ("c. Flip-Flop")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "B"
				Console.Writeline ("CORRECT ANSWER!")
				score3= score2 +1
				Console.Writeline ("Score:" & score3)
			Else 
				Score3 = score2 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is B")
				Console.Writeline ("Score:" & score3)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'TRUE OR FALSE
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 2•")
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("STATE WHETHER THE GIVEN STATEMENT IS TRUE OR FALSE")
			'Question 4
			Console.Writeline ("4.It takes two memory locations (16 bits each) to store an address in the 8085 system.")
			Console.Write ("Answer:")
			Answer4 = Console.Readline()
			
			If Answer4 = "FALSE"
				Console.Writeline ("CORRECT ANSWER!")
				score4= score3 +1
				Console.Writeline ("Score:" & score4)
			Else 
				Score4 = score3 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is FALSE")
				Console.Writeline ("Score:" & score4)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 5
			Console.Writeline ("5. A compiler is a translation program that converts high-level instructions into a set of binary instructions (machine code) for execution.")
			Console.Write ("Answer:")
			Answer5 = Console.Readline()
			
			If Answer5 = "TRUE"
				Console.Writeline ("CORRECT ANSWER!")
				score5= score4 +1
				Console.Writeline ("Score:" & score5)
			Else 
				Score5 = score4 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is TRUE")
				Console.Writeline ("Score:" & score5)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 6
			Console.Writeline ("6. An address bus is also called a unidirectional bus.")
			Console.Write ("Answer:")
			Answer6 = Console.Readline()
			
			If Answer6 = "TRUE"
				Console.Writeline ("CORRECT ANSWER!")
				score6= score5 +1
				Console.Writeline ("Score:" & score6)
			Else 
				Score6 = score5 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is TRUE")
				Console.Writeline ("Score:" & score6)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'FILL IN THE BLANKS
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 3•")
			Console.Writeline ("----------------------------------------------------")
			
			
			'Question 7
		
			Console.Writeline ("7. Used to perform complex, dedicated tasks, the __________ is the fastest and most expensive computer.")
			Console.Write ("Answer:")
			Answer7 = Console.Readline()
			
			If Answer7 = "SUPERCOMPUTER"
				Console.Writeline ("CORRECT ANSWER!")
				score7= score6 +1
				Console.Writeline ("Score:" & score7)
			Else 
				Score7 = score6 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is SUPERCOMPUTER")
				Console.Writeline ("Score:" & score7)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 8
			Console.Writeline ("8.Personal digital assistants (PDAs) are also known as __________ computers.")
			Console.Write ("Answer:")
			Answer8 = Console.Readline()
			
			If Answer8 = "HANDHELD"
				Console.Writeline ("CORRECT ANSWER!")
				score8= score7 +1
				Console.Writeline ("Score:" & score8)
			Else 
				Score8 = score7 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is HANDHELD")
				Console.Writeline ("Score:" & score8)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 9
			Console.Writeline ("9. __________ is data that has been processed and presented in an organized format.")
			Console.Write ("Answer:")
			Answer9 = Console.Readline()
			
			If Answer9 = "INFORMATION"
				Console.Writeline ("CORRECT ANSWER!")
				score9= score8 +1
				Console.Writeline ("Score:" & score9)
			Else 
				Score9 = score8 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is INFORMATION")
				Console.Writeline ("Score:" & score9)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 10
			Console.Writeline ("10. _________ measures how quickly the CPU processes data.")
			Console.Write ("Answer:")
			Answer10 = Console.Readline()
			
			If Answer10 = "CLOCK SPEED"
				Console.Writeline ("CORRECT ANSWER!")
				score10= score9 +1
				Console.Writeline ("Score:" & score10)
			Else 
				Score10 = score9 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is CLOCK SPEED")
				Console.Writeline ("Score:" & score10)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTIONS HUMANITIES
			
			'multiple choice
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 1•")
			Console.Writeline ("----------------------------------------------------")
			
			'QUESTION 1'
			Console.Writeline ("1.What is the term used for describing the judgmental or commonsense part of problem solving?")
			Console.Writeline ("a. Heuristic")
			Console.Writeline ("b. Critical")
			Console.Writeline ("c. Value based")
			Console.Write("Answer:")
				Answer1 = console.ReadLine()
			If Answer1 = "A"
				Console.Writeline ("CORRECT ANSWER!")
				score1= +1
				Console.Writeline ("Score:" & score1)
			Else 
				Score1 = 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is A")
				Console.Writeline ("Score:" & score1)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 2'
			Console.Writeline ("2.Which kind of planning consists of successive representations of different levels of a plan?")
			Console.Writeline ("a. hierarchical planning")
			Console.Writeline ("b. non-hierarchical planning")
			Console.Writeline ("c. All of the above")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "A"
				Console.Writeline ("CORRECT ANSWER!")
				score2= score1 +1
				Console.Writeline ("Score:" & score2)
			Else 
				Score2 = score1 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is A")
				Console.Writeline ("Score:" & score2)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'QUESTION 3'
			Console.Writeline ("3. The part of machine level instruction, which tells the central processor what has to be done, is")
			Console.Writeline ("a. Address")
			Console.Writeline ("b. Operation code")
			Console.Writeline ("c. Flip-Flop")
			Console.Write("Answer:")
				Answer2 = console.ReadLine()
			If Answer2 = "B"
				Console.Writeline ("CORRECT ANSWER!")
				score3= score2 +1
				Console.Writeline ("Score:" & score3)
			Else 
				Score3 = score2 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is B")
				Console.Writeline ("Score:" & score3)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'TRUE OR FALSE
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 2•")
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("STATE WHETHER THE GIVEN STATEMENT IS TRUE OR FALSE")
			'Question 4
			Console.Writeline ("4.It takes two memory locations (16 bits each) to store an address in the 8085 system.")
			Console.Write ("Answer:")
			Answer4 = Console.Readline()
			
			If Answer4 = "FALSE"
				Console.Writeline ("CORRECT ANSWER!")
				score4= score3 +1
				Console.Writeline ("Score:" & score4)
			Else 
				Score4 = score3 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is FALSE")
				Console.Writeline ("Score:" & score4)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 5
			Console.Writeline ("5. A compiler is a translation program that converts high-level instructions into a set of binary instructions (machine code) for execution.")
			Console.Write ("Answer:")
			Answer5 = Console.Readline()
			
			If Answer5 = "TRUE"
				Console.Writeline ("CORRECT ANSWER!")
				score5= score4 +1
				Console.Writeline ("Score:" & score5)
			Else 
				Score5 = score4 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is TRUE")
				Console.Writeline ("Score:" & score5)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 6
			Console.Writeline ("6. An address bus is also called a unidirectional bus.")
			Console.Write ("Answer:")
			Answer6 = Console.Readline()
			
			If Answer6 = "TRUE"
				Console.Writeline ("CORRECT ANSWER!")
				score6= score5 +1
				Console.Writeline ("Score:" & score6)
			Else 
				Score6 = score5 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is TRUE")
				Console.Writeline ("Score:" & score6)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'FILL IN THE BLANKS
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•LEVEL 3•")
			Console.Writeline ("----------------------------------------------------")
			
			
			'Question 7
		
			Console.Writeline ("7. Used to perform complex, dedicated tasks, the __________ is the fastest and most expensive computer.")
			Console.Write ("Answer:")
			Answer7 = Console.Readline()
			
			If Answer7 = "SUPERCOMPUTER"
				Console.Writeline ("CORRECT ANSWER!")
				score7= score6 +1
				Console.Writeline ("Score:" & score7)
			Else 
				Score7 = score6 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is SUPERCOMPUTER")
				Console.Writeline ("Score:" & score7)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 8
			Console.Writeline ("8.Personal digital assistants (PDAs) are also known as __________ computers.")
			Console.Write ("Answer:")
			Answer8 = Console.Readline()
			
			If Answer8 = "HANDHELD"
				Console.Writeline ("CORRECT ANSWER!")
				score8= score7 +1
				Console.Writeline ("Score:" & score8)
			Else 
				Score8 = score7 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is HANDHELD")
				Console.Writeline ("Score:" & score8)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 9
			Console.Writeline ("9. __________ is data that has been processed and presented in an organized format.")
			Console.Write ("Answer:")
			Answer9 = Console.Readline()
			
			If Answer9 = "INFORMATION"
				Console.Writeline ("CORRECT ANSWER!")
				score9= score8 +1
				Console.Writeline ("Score:" & score9)
			Else 
				Score9 = score8 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is INFORMATION")
				Console.Writeline ("Score:" & score9)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			'Question 10
			Console.Writeline ("10. _________ measures how quickly the CPU processes data.")
			Console.Write ("Answer:")
			Answer10 = Console.Readline()
			
			If Answer10 = "CLOCK SPEED"
				Console.Writeline ("CORRECT ANSWER!")
				score10= score9 +1
				Console.Writeline ("Score:" & score10)
			Else 
				Score10 = score9 + 0
				Console.Writeline ("WRONG")
				Console.Writeline ("Correct answer is CLOCK SPEED")
				Console.Writeline ("Score:" & score10)
				Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
			End if
			
			
		End Select
			'RESULTS'
			Console.Writeline ("----------------------------------------------------")
			Console.Writeline ("•RESULTS•")
			Console.Writeline ("----------------------------------------------------")
			
			total = score10
			Select case total 
			case "10"
				Console.Writeline ("Total Average: 100%")
				Console.Writeline ("You had an amazing performance in this quiz!")
			Case "9"
				Console.Writeline ("Total Average: 90%")
				Console.Writeline ("You had an amazing performance in this quiz!")
			Case "8"
				Console.Writeline ("Total Average: 80%")
				Console.Writeline ("Almost there!")
			Case "7"
				Console.Writeline ("Total Average: 70%")
				Console.Writeline ("Almost there!")
			Case "6"
				Console.Writeline ("Total Average: 60%")
				Console.Writeline ("Try to practice more!")
			Case "5"
				Console.Writeline ("Total Average: 50%")
				Console.Writeline ("Try to practice more")
			Case "4"
				Console.Writeline ("Total Average: 40%")
				Console.Writeline ("You have to work more")
			Case "3"
				Console.Writeline ("Total Average: 30%")
				Console.Writeline ("You have to work more")
			Case "2"
				Console.Writeline ("Total Average: 20%")
			Console.Writeline ("You do not know  the facts well!")
			Case "1"
				Console.Writeline ("Total Average: 10%")
			Console.Writeline ("You do not know the facts well!")
			End select

		
	End Sub
End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
​
        Dim score1 as integer 
        Dim score2 as integer
        Dim score3 as integer
        Dim score4 as integer
        Dim score5 as integer
        Dim score6 as integer
        Dim score7 as integer
        Dim score8 as integer
        Dim score9 as integer
        Dim score10 as integer
        Dim total as integer = score10
        
        'answers
        Dim answer1 as string
        Dim answer2 as string
        Dim answer3 as string
        Dim answer4 as string
        Dim answer5 as string
        Dim answer6 as string
        Dim answer7 as string
        Dim answer8 as string
        Dim answer9 as string
        Dim answer10 as string
        
        'personal information'
        Dim name as string
        Dim year as string
        Dim Subject as integer
        'introduction'
        Console.Writeline ("Welcome to IGCSE Quiz Central. You will be provided with 10 questions from IGCSE Past Papers!")
        
        'personal information about the student'
        Console.Writeline ("But before we get started please write your personal information")
        Console.Write ("Name:") 
        Name = Console.Readline ()
        Console.Write ("Class:")
        Year = console.readline()
        Console.Writeline ("----------------------------------------------------")
        
        'choose the quiz of your choice'
        Console.Writeline ("Hello " & Name & "! Please choose a subject of your choice by writing its corresponding code.")
        Console.WriteLine("0580 - Math")
        Console.Writeline ("6202 - Computer Science")
        Console.Writeline ("6304 - Science")
        Console.Writeline ("2007 - Humanities")
        Console.Write("Code:")
        Subject = Console.Readline ()
        Console.Writeline ("----------------------------------------------------")
        
        'start of the quiz'
        Select Case Subject
        Case "0580" 
            Console.Writeline ("The subject that you've chosen is Math")
            Console.Writeline ("You will be placed with 10 Objective Questions")
            
            Console.Writeline ("Note: ANSWERS SHOULD BE IN CAPSLOCK OR ELSE IT WILL NOT BE ACCEPTED")
            Console.Writeline ("----------------------------------------------------")
            
            'QUESTIONS'
            
            'multiple choice
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 1•")
            Console.Writeline ("----------------------------------------------------")
            
            'QUESTION 1'
            Console.Writeline ("1.Convert 0.68 into a fraction in its lowest terms.")
            Console.Writeline ("a. 12/65")
            Console.Writeline ("b. 17/25")
            Console.Writeline ("c. 68/100")
            Console.Write("Answer:")
                Answer1 = console.ReadLine()
            If Answer1 = "B"
                Console.Writeline ("CORRECT ANSWER!")
                score1= +1
                Console.Writeline ("Score:" & score1)
            Else 
                Score1 = 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is B")
                Console.Writeline ("Score:" & score1)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 2'
            Console.Writeline ("2. Hassan says that l = 88.2. Round this to the nearest whole number.")
            Console.Writeline ("a. 80.0")
            Console.Writeline ("b. 89.0")
            Console.Writeline ("c. 88.0")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "C"
                Console.Writeline ("CORRECT ANSWER!")
                score2= score1 +1
                Console.Writeline ("Score:" & score2)
            Else 
                Score2 = score1 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is C")
                Console.Writeline ("Score:" & score2)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Fill in the blanks'
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 2•")
            Console.Writeline ("----------------------------------------------------")
            
            'Question 3
            Console.Writeline ("3. ______ is a diagram showing the relation between variable quantities")
            Console.Write("Answer:")
                Answer3 = console.ReadLine()
            If Answer3 = "GRAPH"
                Console.Writeline ("CORRECT ANSWER!")
                score3= score2 +1
                Console.Writeline ("Score:" & score3)
            Else 
                Score3 = score2 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is GRAPH")
                Console.Writeline ("Score:" & score3)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 4
            Console.Writeline ("4. ______  is a fundamental relation in Euclidean geometry among the three sides of a right triangle")
            Console.Write("Answer:")
                Answer4 = console.ReadLine()
            If Answer4 = "PYTHAGOREAN THEOREM"
                Console.Writeline ("CORRECT ANSWER!")
                score4= score3 +1
                Console.Writeline ("Score:" & score4)
            Else 
                Score4 = score3 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is PYTHAGOREAN THEOREM")
                Console.Writeline ("Score:" & score4)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Short Word Problems'
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 3•")
            Console.Writeline ("----------------------------------------------------")
            
            'QUESTION 5'
            Console.Writeline ("5.Calculate the total cost of 197 tickets at $10 each and 95 tickets at $16 each.")
            Console.Write("Answer:")
                Answer5 = console.ReadLine()
            If Answer5 = "3490"
                Console.Writeline ("CORRECT ANSWER!")
                score5= score4 +1
                Console.Writeline ("Score:" & score5)
            Else 
                Score5 = score4 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is 3490")
                Console.Writeline ("Score:" & score5)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 6
            Console.Writeline ("6.A car traveled 281 miles in 4 hours 41 minutes. What was the average speed of the car in miles per hour?")
            Console.Write("Answer:")
                Answer6 = console.ReadLine()
            If Answer6 = "60"
                Console.Writeline ("CORRECT ANSWER!")
                score6= score5 +1
                Console.Writeline ("Score:" & score6)
            Else 
                Score6 = score5 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is 60")
                Console.Writeline ("Score:" & score6)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'TRUE OR FALSE'
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 4•")
            Console.Writeline ("----------------------------------------------------")
            
            
            'QUESTION 7'
            Console.WriteLine("WRITE WHETHER IT'S TRUE OR FALSE")
            Console.Writeline ("7.  ((2^2)3^6) = 25 ")
            Console.Write("Answer:")
                Answer7 = console.ReadLine()
            If Answer7 = "FALSE"
                Console.Writeline ("CORRECT ANSWER!")
                score7= score6 +1
                Console.Writeline ("Score:" & score7)
            Else 
                Score7 = score6 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is FALSE")
                Console.Writeline ("Score:" & score7)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 8
            Console.Writeline ("8. x is at most equal to 9 is written mathematically as x < 9")
            Console.Write("Answer:")
                Answer8 = console.ReadLine()
            If Answer8 = "FALSE"
                Console.Writeline ("CORRECT ANSWER!")
                score8= score7 +1
                Console.Writeline ("Score:" & score8)
            Else 
                Score8 = score7 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is FALSE")
                Console.Writeline ("Score:" & score8)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'FIND THE VALUE OF X'
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 5•")
            Console.Writeline ("----------------------------------------------------")
            
            
            'QUESTION 9'
            Console.Writeline ("FIND THE VALUE OF X")
            Console.Writeline ("9.  5 ( x - 3 ) =   35")
            Console.Write("Answer:")
                Answer9 = console.ReadLine()
            If Answer9 = "10"
                Console.Writeline ("CORRECT ANSWER!")
                score9= score8 +1
                Console.Writeline ("Score:" & score9)
            Else 
                Score9 = score8 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is 10")
                Console.Writeline ("Score:" & score9)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 10
            Console.Writeline ("10. 5 ( 2x + 4 ) =  41")
            Console.Write("Answer:")
                Answer10 = console.ReadLine()
            If Answer10 = "2.1"
                Console.Writeline ("CORRECT ANSWER!")
                score10= score9 +1
                Console.Writeline ("Score:" & score10)
            Else 
                Score10 = score9 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is 2.1")
                Console.Writeline ("Score:" & score9)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
        
            
            'SCIENCE'
            
        Case "6304"
            Console.Writeline ("The subject that you've chosen is Science")
            Console.Writeline ("You will be placed with 10 Objective Questions")
            
            Console.Writeline ("Note: ANSWERS SHOULD BE IN CAPSLOCK OR ELSE IT WILL NOT BE ACCEPTED")
            Console.Writeline ("----------------------------------------------------")
            
            'QUESTIONS'
            
            'multiple choice
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 1•")
            Console.Writeline ("----------------------------------------------------")
            'QUESTION 1'
            Console.Writeline ("1.Which statement is correct?")
            Console.Writeline ("a. Mass is a force, measured in kilograms.")
            Console.Writeline ("b. Weight is a force, measured in newtons.")
            Console.Writeline ("c. Weight is a force, measured in kilograms.")
            Console.Write("Answer:")
                Answer1 = console.ReadLine()
            If Answer1 = "B"
                Console.Writeline ("CORRECT ANSWER!")
                score1= +1
                Console.Writeline ("Score:" & score1)
            Else 
                Score1 = 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is B")
                Console.Writeline ("Score:" & score1)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 2'
            Console.Writeline ("2. Some chemical compounds are purified by recrystallisation. What can be used to test the purity of the crystals?")
            Console.Writeline ("a. melting point")
            Console.Writeline ("b. colour of crystals")
            Console.Writeline ("c. size of crystals")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "A"
                Console.Writeline ("CORRECT ANSWER!")
                score2= score1 +1
                Console.Writeline ("Score:" & score2)
            Else 
                Score2 = score1 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is A")
                Console.Writeline ("Score:" & score2)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 3'
            Console.Writeline ("3. Which of the following lists contains only arthropods?")
            Console.Writeline ("a. annelids, insects, myriapods")
            Console.Writeline ("b. arachnids, crustaceans, myriapods")
            Console.Writeline ("c. crustaceans, insects, molluscs")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "B"
                Console.Writeline ("CORRECT ANSWER!")
                score3= score2 +1
                Console.Writeline ("Score:" & score3)
            Else 
                Score3 = score2 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is B")
                Console.Writeline ("Score:" & score3)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            
            'Paper 3
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 2•")
            Console.Writeline ("----------------------------------------------------")
            
            'Question 4
            Console.Writeline ("4. What is the valency of boron?")
            Console.Write ("Answer:")
            Answer4 = Console.Readline()
            
            If Answer4 = "3"
                Console.Writeline ("CORRECT ANSWER!")
                score4= score3 +1
                Console.Writeline ("Score:" & score4)
            Else 
                Score4 = score3 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is 3")
                Console.Writeline ("Score:" & score4)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 5
            Console.Writeline ("5. Another box of weight 1500 N is raised vertically by 3.0 m.Calculate the work done on the box.")
            Console.Write ("Answer:")
            Answer5 = Console.Readline()
            
            If Answer5 = "4500"
                Console.Writeline ("CORRECT ANSWER!")
                score5= score4 +1
                Console.Writeline ("Score:" & score5)
            Else 
                Score5 = score4 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is 4500")
                Console.Writeline ("Score:" & score5)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 6
            Console.Writeline ("6. Name the organ responsible for forming urine;.")
            Console.Write ("Answer:")
            Answer6 = Console.Readline()
            
            If Answer6 = "KIDNEY"
                Console.Writeline ("CORRECT ANSWER!")
                score6= score5 +1
                Console.Writeline ("Score:" & score6)
            Else 
                Score6 = score5 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is KIDNEY")
                Console.Writeline ("Score:" & score6)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Paper 6
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 3•")
            Console.Writeline ("----------------------------------------------------")
            
            
            'Question 7
        
            Console.Writeline ("7. ______ is a fluid produced by the skin in order to regulate body temperature.")
            Console.Write ("Answer:")
            Answer7 = Console.Readline()
            
            If Answer7 = "SWEAT"
                Console.Writeline ("CORRECT ANSWER!")
                score7= score6 +1
                Console.Writeline ("Score:" & score7)
            Else 
                Score7 = score6 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is SWEAT")
                Console.Writeline ("Score:" & score7)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 8
            Console.Writeline ("8. ______ is the chemical element of atomic number 3, a soft silver-white metal. It is the lightest of the alkali metals.")
            Console.Write ("Answer:")
            Answer8 = Console.Readline()
            
            If Answer8 = "LITHIUM"
                Console.Writeline ("CORRECT ANSWER!")
                score8= score7 +1
                Console.Writeline ("Score:" & score8)
            Else 
                Score8 = score7 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is LITHIUM")
                Console.Writeline ("Score:" & score8)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 9
            Console.Writeline ("9. The average speed of an object is defined as the distance traveled divided by the time elapsed.")
            Console.Write ("Answer:")
            Answer9 = Console.Readline()
            
            If Answer9 = "VELOCITY"
                Console.Writeline ("CORRECT ANSWER!")
                score9= score8 +1
                Console.Writeline ("Score:" & score9)
            Else 
                Score9 = score8 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is VELOCITY")
                Console.Writeline ("Score:" & score9)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 10
            Console.Writeline ("10. A vector quantity has both magnitude and ___ while a scalar has only magnitude..")
            Console.Write ("Answer:")
            Answer10 = Console.Readline()
            
            If Answer10 = "DIRECTION"
                Console.Writeline ("CORRECT ANSWER!")
                score10= score9 +1
                Console.Writeline ("Score:" & score10)
            Else 
                Score10 = score9 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is DIRECTION")
                Console.Writeline ("Score:" & score10)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
        Case "6202"
            'QUESTIONS COMPUTER SCIENCE
            
            'multiple choice
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 1•")
            Console.Writeline ("----------------------------------------------------")
            
            'QUESTION 1'
            Console.Writeline ("1.What is the term used for describing the judgmental or commonsense part of problem solving?")
            Console.Writeline ("a. Heuristic")
            Console.Writeline ("b. Critical")
            Console.Writeline ("c. Value based")
            Console.Write("Answer:")
                Answer1 = console.ReadLine()
            If Answer1 = "A"
                Console.Writeline ("CORRECT ANSWER!")
                score1= +1
                Console.Writeline ("Score:" & score1)
            Else 
                Score1 = 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is A")
                Console.Writeline ("Score:" & score1)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 2'
            Console.Writeline ("2.Which kind of planning consists of successive representations of different levels of a plan?")
            Console.Writeline ("a. hierarchical planning")
            Console.Writeline ("b. non-hierarchical planning")
            Console.Writeline ("c. All of the above")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "A"
                Console.Writeline ("CORRECT ANSWER!")
                score2= score1 +1
                Console.Writeline ("Score:" & score2)
            Else 
                Score2 = score1 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is A")
                Console.Writeline ("Score:" & score2)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 3'
            Console.Writeline ("3. The part of machine level instruction, which tells the central processor what has to be done, is")
            Console.Writeline ("a. Address")
            Console.Writeline ("b. Operation code")
            Console.Writeline ("c. Flip-Flop")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "B"
                Console.Writeline ("CORRECT ANSWER!")
                score3= score2 +1
                Console.Writeline ("Score:" & score3)
            Else 
                Score3 = score2 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is B")
                Console.Writeline ("Score:" & score3)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'TRUE OR FALSE
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 2•")
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("STATE WHETHER THE GIVEN STATEMENT IS TRUE OR FALSE")
            'Question 4
            Console.Writeline ("4.It takes two memory locations (16 bits each) to store an address in the 8085 system.")
            Console.Write ("Answer:")
            Answer4 = Console.Readline()
            
            If Answer4 = "FALSE"
                Console.Writeline ("CORRECT ANSWER!")
                score4= score3 +1
                Console.Writeline ("Score:" & score4)
            Else 
                Score4 = score3 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is FALSE")
                Console.Writeline ("Score:" & score4)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 5
            Console.Writeline ("5. A compiler is a translation program that converts high-level instructions into a set of binary instructions (machine code) for execution.")
            Console.Write ("Answer:")
            Answer5 = Console.Readline()
            
            If Answer5 = "TRUE"
                Console.Writeline ("CORRECT ANSWER!")
                score5= score4 +1
                Console.Writeline ("Score:" & score5)
            Else 
                Score5 = score4 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is TRUE")
                Console.Writeline ("Score:" & score5)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 6
            Console.Writeline ("6. An address bus is also called a unidirectional bus.")
            Console.Write ("Answer:")
            Answer6 = Console.Readline()
            
            If Answer6 = "TRUE"
                Console.Writeline ("CORRECT ANSWER!")
                score6= score5 +1
                Console.Writeline ("Score:" & score6)
            Else 
                Score6 = score5 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is TRUE")
                Console.Writeline ("Score:" & score6)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'FILL IN THE BLANKS
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 3•")
            Console.Writeline ("----------------------------------------------------")
            
            
            'Question 7
        
            Console.Writeline ("7. Used to perform complex, dedicated tasks, the __________ is the fastest and most expensive computer.")
            Console.Write ("Answer:")
            Answer7 = Console.Readline()
            
            If Answer7 = "SUPERCOMPUTER"
                Console.Writeline ("CORRECT ANSWER!")
                score7= score6 +1
                Console.Writeline ("Score:" & score7)
            Else 
                Score7 = score6 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is SUPERCOMPUTER")
                Console.Writeline ("Score:" & score7)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 8
            Console.Writeline ("8.Personal digital assistants (PDAs) are also known as __________ computers.")
            Console.Write ("Answer:")
            Answer8 = Console.Readline()
            
            If Answer8 = "HANDHELD"
                Console.Writeline ("CORRECT ANSWER!")
                score8= score7 +1
                Console.Writeline ("Score:" & score8)
            Else 
                Score8 = score7 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is HANDHELD")
                Console.Writeline ("Score:" & score8)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 9
            Console.Writeline ("9. __________ is data that has been processed and presented in an organized format.")
            Console.Write ("Answer:")
            Answer9 = Console.Readline()
            
            If Answer9 = "INFORMATION"
                Console.Writeline ("CORRECT ANSWER!")
                score9= score8 +1
                Console.Writeline ("Score:" & score9)
            Else 
                Score9 = score8 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is INFORMATION")
                Console.Writeline ("Score:" & score9)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 10
            Console.Writeline ("10. _________ measures how quickly the CPU processes data.")
            Console.Write ("Answer:")
            Answer10 = Console.Readline()
            
            If Answer10 = "CLOCK SPEED"
                Console.Writeline ("CORRECT ANSWER!")
                score10= score9 +1
                Console.Writeline ("Score:" & score10)
            Else 
                Score10 = score9 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is CLOCK SPEED")
                Console.Writeline ("Score:" & score10)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTIONS HUMANITIES
            
            'multiple choice
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 1•")
            Console.Writeline ("----------------------------------------------------")
            
            'QUESTION 1'
            Console.Writeline ("1.What is the term used for describing the judgmental or commonsense part of problem solving?")
            Console.Writeline ("a. Heuristic")
            Console.Writeline ("b. Critical")
            Console.Writeline ("c. Value based")
            Console.Write("Answer:")
                Answer1 = console.ReadLine()
            If Answer1 = "A"
                Console.Writeline ("CORRECT ANSWER!")
                score1= +1
                Console.Writeline ("Score:" & score1)
            Else 
                Score1 = 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is A")
                Console.Writeline ("Score:" & score1)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 2'
            Console.Writeline ("2.Which kind of planning consists of successive representations of different levels of a plan?")
            Console.Writeline ("a. hierarchical planning")
            Console.Writeline ("b. non-hierarchical planning")
            Console.Writeline ("c. All of the above")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "A"
                Console.Writeline ("CORRECT ANSWER!")
                score2= score1 +1
                Console.Writeline ("Score:" & score2)
            Else 
                Score2 = score1 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is A")
                Console.Writeline ("Score:" & score2)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'QUESTION 3'
            Console.Writeline ("3. The part of machine level instruction, which tells the central processor what has to be done, is")
            Console.Writeline ("a. Address")
            Console.Writeline ("b. Operation code")
            Console.Writeline ("c. Flip-Flop")
            Console.Write("Answer:")
                Answer2 = console.ReadLine()
            If Answer2 = "B"
                Console.Writeline ("CORRECT ANSWER!")
                score3= score2 +1
                Console.Writeline ("Score:" & score3)
            Else 
                Score3 = score2 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is B")
                Console.Writeline ("Score:" & score3)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'TRUE OR FALSE
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 2•")
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("STATE WHETHER THE GIVEN STATEMENT IS TRUE OR FALSE")
            'Question 4
            Console.Writeline ("4.It takes two memory locations (16 bits each) to store an address in the 8085 system.")
            Console.Write ("Answer:")
            Answer4 = Console.Readline()
            
            If Answer4 = "FALSE"
                Console.Writeline ("CORRECT ANSWER!")
                score4= score3 +1
                Console.Writeline ("Score:" & score4)
            Else 
                Score4 = score3 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is FALSE")
                Console.Writeline ("Score:" & score4)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 5
            Console.Writeline ("5. A compiler is a translation program that converts high-level instructions into a set of binary instructions (machine code) for execution.")
            Console.Write ("Answer:")
            Answer5 = Console.Readline()
            
            If Answer5 = "TRUE"
                Console.Writeline ("CORRECT ANSWER!")
                score5= score4 +1
                Console.Writeline ("Score:" & score5)
            Else 
                Score5 = score4 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is TRUE")
                Console.Writeline ("Score:" & score5)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 6
            Console.Writeline ("6. An address bus is also called a unidirectional bus.")
            Console.Write ("Answer:")
            Answer6 = Console.Readline()
            
            If Answer6 = "TRUE"
                Console.Writeline ("CORRECT ANSWER!")
                score6= score5 +1
                Console.Writeline ("Score:" & score6)
            Else 
                Score6 = score5 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is TRUE")
                Console.Writeline ("Score:" & score6)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'FILL IN THE BLANKS
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•LEVEL 3•")
            Console.Writeline ("----------------------------------------------------")
            
            
            'Question 7
        
            Console.Writeline ("7. Used to perform complex, dedicated tasks, the __________ is the fastest and most expensive computer.")
            Console.Write ("Answer:")
            Answer7 = Console.Readline()
            
            If Answer7 = "SUPERCOMPUTER"
                Console.Writeline ("CORRECT ANSWER!")
                score7= score6 +1
                Console.Writeline ("Score:" & score7)
            Else 
                Score7 = score6 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is SUPERCOMPUTER")
                Console.Writeline ("Score:" & score7)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 8
            Console.Writeline ("8.Personal digital assistants (PDAs) are also known as __________ computers.")
            Console.Write ("Answer:")
            Answer8 = Console.Readline()
            
            If Answer8 = "HANDHELD"
                Console.Writeline ("CORRECT ANSWER!")
                score8= score7 +1
                Console.Writeline ("Score:" & score8)
            Else 
                Score8 = score7 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is HANDHELD")
                Console.Writeline ("Score:" & score8)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 9
            Console.Writeline ("9. __________ is data that has been processed and presented in an organized format.")
            Console.Write ("Answer:")
            Answer9 = Console.Readline()
            
            If Answer9 = "INFORMATION"
                Console.Writeline ("CORRECT ANSWER!")
                score9= score8 +1
                Console.Writeline ("Score:" & score9)
            Else 
                Score9 = score8 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is INFORMATION")
                Console.Writeline ("Score:" & score9)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            'Question 10
            Console.Writeline ("10. _________ measures how quickly the CPU processes data.")
            Console.Write ("Answer:")
            Answer10 = Console.Readline()
            
            If Answer10 = "CLOCK SPEED"
                Console.Writeline ("CORRECT ANSWER!")
                score10= score9 +1
                Console.Writeline ("Score:" & score10)
            Else 
                Score10 = score9 + 0
                Console.Writeline ("WRONG")
                Console.Writeline ("Correct answer is CLOCK SPEED")
                Console.Writeline ("Score:" & score10)
                Console.Writeline ("Remember that all your answers should be in CAPSLOCK or else it will be classified as wrong")
            End if
            
            
        End Select
            'RESULTS'
            Console.Writeline ("----------------------------------------------------")
            Console.Writeline ("•RESULTS•")
            Console.Writeline ("----------------------------------------------------")
            
            total = score10
            Select case total 
            case "10"
                Console.Writeline ("Total Average: 100%")
                Console.Writeline ("You had an amazing performance in this quiz!")
            Case "9"
                Console.Writeline ("Total Average: 90%")
                Console.Writeline ("You had an amazing performance in this quiz!")
            Case "8"
                Console.Writeline ("Total Average: 80%")
                Console.Writeline ("Almost there!")
            Case "7"
                Console.Writeline ("Total Average: 70%")
                Console.Writeline ("Almost there!")
            Case "6"
                Console.Writeline ("Total Average: 60%")
                Console.Writeline ("Try to practice more!")
            Case "5"
                Console.Writeline ("Total Average: 50%")
                Console.Writeline ("Try to practice more")
            Case "4"
                Console.Writeline ("Total Average: 40%")
                Console.Writeline ("You have to work more")
            Case "3"
                Console.Writeline ("Total Average: 30%")
                Console.Writeline ("You have to work more")
            Case "2"
                Console.Writeline ("Total Average: 20%")
            Console.Writeline ("You do not know  the facts well!")
            Case "1"
                Console.Writeline ("Total Average: 10%")
            Console.Writeline ("You do not know the facts well!")
            End select
​
        
    End Sub
End Module

Last Run:	4:12:08 am
Compile:	0.174s
Execute:	0s
Memory:	0b
CPU:	0s

View IL Code