플로이드의 삼각형

Imports System.Console

Module Program

    Sub Main()
        Dim rows As Integer

        ' 유효성 검사를 입력한다.
        Do Until Integer.TryParse(ReadLine("얼마나 많은 행을 표시할 것인지에 대한 값을 입력하시오: "), rows) AndAlso rows >= 1
            WriteLine("허용된 범위는 1과 {0}이다", Integer.MaxValue)
        Loop

        ' 플로이드의 삼각형의 출력
        Dim current = 1

        For row = 1 To rows
            For column = 1 To row
                Write("{0,-2} ", current)
                current += 1
            Next

            WriteLine()
        Next
    End Sub

    ''' <요약>
    ''' 프롬프트 문자열이 사용하는 Console.ReadLine 및 버전을 보호한다.
    ''' </요약>
    Function ReadLine(Optional prompt As String = Nothing) As String
        If prompt IsNot Nothing Then
            Write(prompt)
        End If

        Return Console.ReadLine()
    End Function

End Module