' RepSent3 Example

' Enter sentence to repeat and number of times to repeat.
' Output sentence n times.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim sentence As String
        Dim n, i As Integer

        Write("Enter sentence to repeat: ")
        sentence = ReadLine()
        Write("Enter number of times to repeat: ")
        n = ReadLine()
        RepeatSentence(sentence, n)
        ReadLine()
    End Sub

    Private Sub RepeatSentence(ByVal s As String, _
        ByVal n As Integer)

        Dim i As Integer
        For i = 1 To n
            WriteLine(i & ": " & s)
        Next
    End Sub
End Module