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