Imports System

Public Module Module1

    Public Sub Main()

        Dim  name as string 

        Console.WriteLine("Whats your name? ")

        name = console.readline()

        console.WriteLine("hello " & name)

        console.writeline("are you good at your timestables?")

        dim answer as string

        answer = console.ReadLine()

        select case answer

        case is = "no"

            console.writeline("Lets practise then!")

        case= "yes"

            console.WriteLine("Show me how well you know them")

            end select

        console.WriteLine("What times table would you like to practise?")

        dim number2 as integer

        number2 = console.readline()

        dim ABC as integer

        dim correct as integer

        dim BCD as integer

        dim score as integer 

        score = 0

        For ABC = 1 To 12

        console.WriteLine(ABC & "X" & number2  & "= ???")

            BCD = console.ReadLine()

            correct = (ABC * number2)

            if BCD = correct

                console.WriteLine("well done" & name)

            score = (score+1) 

            else 

                console.WriteLine("That was incorrect the right answer is " & correct & " but good try " & name)

            end if 

        next

    console.WriteLine("you scored " & score & name)

    End Sub

End Module