Imports System.Console
Module Module1
    'eine Subroutine, der man eine natürliche Zahl als Anzahl und ein Zeichen 
    'übergibt 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()
 
        WriteLine(anzahl)
        WriteLine(erg)
 
 
        Warten()
    End Sub
 
    Sub rechnung(ByVal anzahl As Integer, ByVal zeichen As Char)
        Dim erg As String
        For zeichen As Char = 1 To anzahl
            erg = zeichen * anzahl
        Next
 
        Return erg
    End Sub
 
    Sub Warten()
        Write("Bitte EINGABE drücken: ")
        ReadLine()
    End Sub
 
 
End Module