Imports System

Public Module Module1

    Public Sub Main()

        Dim Count as integer

        Dim Num as integer

        Dim Answer as integer

        Num = 8

        Console.WriteLine("_________________")

        Console.WriteLine("EIGHT TIMES TABLE")

        Console.WriteLine("*****************")

    For Count = 1 to 12

        Answer = Num*Count

        Console.WriteLine(Count & "x" & Num & "=" & Answer)

    Next 

    Count = Count - 1

    End Sub

End Module