Imports System

Public Module Module1

    Public Sub Main()

        'Declare variables:

        Dim Events(13), UserResponse  as String

        Dim Dates(13) as Integer

        'Populate arrays:

        Dates(1) =  1933

        Dates(2) =  1934

        Dates(3) =  1935

        Dates(4) =  1936

        Dates(5) =  1936

        Dates(6) =  1937

        Dates(7) =  1938

        Dates(8) =  1938

        Dates(9) =  1938

        Dates(10) = 1939

        Dates(11) = 1939

        Dates(12) = 1939

        Dates(13) = 1941

        Events(1) = "Germany leave the League of Nations and start rearming."

        Events(2) = "Hitler attempts Anschluss with Austria and is blocked by Mussolini."

        Events(3) = "The Saar Plebiscite."

        Events(4) = "The Rhineland is remilitarised and conscription is reintroduced."

        Events(5) = "Anti-Comitern pact and Axis alliance."

        Events(6) = "Germany creates the Luftwaffe and starts bombing Guernica."

        Events(7) = "Hitler initiates Anschluss with Austria"

        Events(8) = "Germany occupies the Sudetenland."

        Events(9) = "Hitler signs the Munich Agreement"

        Events(10) = "Germany occupies the rest of Czechoslovakia."

        Events(11) = "Germany and the USSR sign the Nazi-Soviet pact."

        Events(12) = "Germany invades Poland and WW2 starts."

        Events(13) = "Germany invades the USSR and war begins on the Eastern Front"

        'Loop through the elements array to ask the 13 questions:

        For i = 1 to 13

        Console.Writeline(i & ". What date did " & Events(i) & "  ? ")

        UserResponse = Console.Readline()

        If UserResponse = Dates(i) Then

           Console.Writeline("Well done!")

        Else

            Console.Writeline("Wrong!The correct answer is " & Dates(i) )

        End If

        Next

    End Sub

End Module

​

​

​