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
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *