Module Module5 Sub Main() Dim counter As Integer 'declaration Dim counterb As Integer 'A string variable to store the numbers as string values sop that they 'can be printed Dim strNumberRow As String counter = 0 counterb = 0 strNumberRow = " " 'Use for loop to count from 1 to 100 For counter = 1 To 100 'Use nextCounter variable to count from 1 to 10 counterb += 1 If (counter < 11) Then strNumberRow += Convert.ToString(counter) + " " Else strNumberRow += Convert.ToString(counter) + " " End If 'When nextCounter reaches 10 print out the line of numbers If counterb = 10 Then Console.WriteLine(strNumberRow) strNumberRow = " " counterb = 0 End If Next counter Console.WriteLine(vbCrLf + "Please Press any Key to Exit") System.Console.ReadKey() End Sub End Module