Imports System.Console
Module Module1
    'Schreiben Sie eine Sub, der Sie eine natürliche Zahl als Anzahl und ein 
    ' Zeichen 
    'übergeben und die das Zeichen Anzahl mal an den Bildschirm schreibt. 
    Public zahl, anzahl As Integer, zeichen As Char
    Dim erg As String
    Sub Main()
 
        Write("Bitte natürliche Zahl eingeben: ")
        zahl = ReadLine()
        Write("Bitte ein Zeichen eingeben: ")
        zeichen = ReadLine()
 
        Anzeigen(zahl, zeichen)
        Anzeigen(31, "-")
        Anzeigen(31, "-")
        Warten()
    End Sub
 
    Sub Anzeigen(ByVal anzahl, ByVal zeichen)
        For i As Integer = 0 To anzahl - 1
            Write(zeichen)
        Next
        WriteLine()
    End Sub
 
    Sub Warten()
        Write("Bitte EINGABE drücken: ")
        ReadLine()
    End Sub
 
End Module