Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim choice as integer

        dim youranswern as integer

        dim correctanswern as integer

        Console.WriteLine("math quiz")

        console.WriteLine(1) "12*12"  ) 

        console.WriteLine(2) "15*12"  ) 

        console.WriteLine(3) "6*12"  ) 

        console.WriteLine(4) "10*12"  ) 

        console.WriteLine(5) "17*12"  ) 

        console.WriteLine(6) "20*12"  ) 

        console.WriteLine(7) "22*12"  ) 

        console.WriteLine(8) "25*12"  ) 

        console.WriteLine(9) "30*12"  ) 

        console.WriteLine(10) "32*12"  ) 

        choice = console.readline()

        select choice

             if 1 then case 1

                case 1 : youranswern = "144"

                    correctanswern = "144"

                case 2 : youranswern = "150"

                    correctanswern = "180"

                case 3 : youranswern = "72"

                    correctanswern = "72"

                case 4 : youranswern = "120"

                    correctanswern = "120"

                case 5 : youranswern = "194"

                    correctanswern = "204"

                case 6 : youranswern = "240"

                    correctanswern = "240"

                case 7 : youranswern = "264"

                    correctanswern = "264"

                case 8 : youranswern = "300"

                    correctanswern = "300"

                case 9 : youranswern = "360"

                    correctanswern = "360'

                case 10 : youranswern = " 374 "

                          correctanswern = " 384 "

​

Console.WriteLine(" you chose {0} the youranswern {1}.", correctanswern.)

console.writeline(" after a total of quiz ")

you score 7 out of 10 

you wrong 2

you wrong 5

you wrong 10

​

​

​

​

​

​

    End Sub

End Module