' RepSent1 Example

' Repeat a sentence 100 times using a Do Loop.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim i As Integer = 1

        Do While i <= 100
            WriteLine("{0,3}: I will not talk in class.", i)
            i += 1
        Loop
        ReadLine()
    End Sub

End Module