Çarpım Tablosunu Oluşturan Program

    Sub Main()

        Dim i As Byte
        Dim x As Byte
        Dim y As Byte

        For i = 1 To 100
            x = ((i - 1) \ 10) + 1
            y = (i - 1) Mod 10 + 1
            System.Console.Write((x * y).ToString("000") & " ")
            If (i Mod 10) = 0 Then
                System.Console.WriteLine()
            End If
        Next
        System.Console.Read()
    End Sub