Module Tester
Sub Main()
Dim side As Integer
Dim row As Integer = 1
Dim column As Integer
side = 12
If side <= 20 Then
While row <= side
column = 1
While column <= side
Console.Write("* ")
column += 1
End While
Console.WriteLine()
row += 1
End While
Else
Console.WriteLine("Side too large")
End If
End Sub
End Module
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * *