Imports System

Public Module Module1

    Public Sub Main()

Dim answer As String

Dim score As Integer

Do

Console.WriteLine(“Q1 – Which of these is an example of trolling? ”)

Console.WriteLine(“A. The act of winding somebody online. B. A fake email. C. Bullying someone online. ”)

answer= Console.Readline ()

If answer = “A” or answer = “a” Then

Console.WriteLine(“Correct!”)

score = score + 1   

ElseIf answer = "B" Or answer = "b" Or answer = "C" Or answer = " c" Then

Console.WriteLine(“Incorrect.”)

Else

Console.WriteLine(“Invalid answer.”)

End If 

Loop Until answer = “A” or answer = “B” or answer = “C” Or  answer = “a” Or  answer = “b” Or  answer = “c”

Console.WriteLine(“Your score is: ” & score)

Do

Console.WriteLine(“Q2 – Example question... ”) 

Console.WriteLine(“A. Option 1. B. Option 2. C. Option 3. ”) 

answer = Console.ReadLine()

If answer = “C” or answer = “c” then

Console.WriteLine(“Correct!”)

score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “A” or answer = “a” then

Console.WriteLine(“Incorrect.”) 

            Else

Console.WriteLine(“Invalid answer.”)

            End If

Loop Until answer = “A” Or answer = " a" or answer = “B” or answer = "b" or answer = “C” or answer = " C"

​

Console.WriteLine(“Q1 – Which of these is an example of trolling? ”)

Console.WriteLine(“A. The act of winding somebody online. B. A fake email. C. Bullying someone online. ”)

answer= Console.Readline ()

If answer = “A” or answer = “a” Then

Console.WriteLine(“Correct!”)

score = score + 1   

ElseIf answer = "B" Or answer = "b" Or answer = "C" Or answer = " c" Then

Console.WriteLine(“Incorrect.”)

Else

Console.WriteLine(“Invalid answer.”)

End If 

Loop Until answer = “A” or answer = “B” or answer = “C” Or  answer = “a” Or  answer = “b” Or  answer = “c”

Console.WriteLine(“Your score is: ” & score)        

Do

Console.WriteLine(“Q2 – Example question... ”) 

Console.WriteLine(“A. Option 1. B. Option 2. C. Option 3. ”) 

answer = Console.ReadLine()

If answer = “C” or answer = “c” then

Console.WriteLine(“Correct!”)

score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “A” or answer = “a” then

Console.WriteLine(“Incorrect.”) 

            Else

Console.WriteLine(“Invalid answer.”)

            End If

Loop Until answer = “A” Or answer = "a"

    Console.WriteLine(“Q2 – Example question... ”) 

Console.WriteLine(“A. Option 1. B. Option 2. C. Option 3. ”) 

answer = Console.ReadLine()

If answer = “C” or answer = “c” then

Console.WriteLine(“Correct!”)

score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “A” or answer = “a” then

Console.WriteLine(“Incorrect.”) 

            Else

Console.WriteLine(“Invalid answer.”)

            End If

Loop Until answer = “A” Or answer = "a" 

    End Sub

End Module