2d Array problem

[ksk]

Hi!

Ich habe ein kleines Problem. Ich wöllte ein Rechtwinkeligen Dreieck auf Kopf gestellt schreiben, aber es will einfach nicht.

h = InputBox("Geben Sie die Höhe ein!", "")
        
ReDim arrArray(h - 1, 2 * (h - 1))


'            For z = 0 To 2 * h
                For s = 0 To h - 1
                    arrArray(s, s) = True 'Von Links oben nach Rechts Mitte
                    arrArray(s, h - 1 - s) = True 'Ab der Mitte nach links unten
                    arrArray(0, s) = True 'untere Seite bis zur hälfte
                    arrArray(0, h - 1 + s) = True 'untere Seite zweite Hälgte
                Next
                
'                arrDreieck(z, h - 1) = True
'            Next
    
    
        'Beginn der Schleife für die Zeile
        For s = 0 To h - 1
            'Beginn der Zählschleife für die Spalte
            For z = 0 To 2 * (h - 1)
                
                If arrArray(s, z) = True Then
                    ausgabe = ausgabe & "O "
                Else
                    ausgabe = ausgabe & "  "
                End If
            
            Next
            Debug.Print ausgabe
            'Variable ausgabe leeren
            ausgabe = ""
            'Zeile geht nach jedem Durchlauf um eine Zeile weiter
        Next

Wie kann ich das so angeben das er nicht von Mitte nach links unten, sondern von rechts nach mitter unten. Ich habe auch eines, welches am Bauch liegt und nache möchte ich die beiden zusammen fügen um einen Karo darzustellen. Danke im vorraus

 

[Shakie]

Ich verstehe nur Bahnhof.
Bitte versuche doch, dein Problem genauer zu beschreiben und sag uns auch, was genau nicht will. Am besten mit korrekter Rechtschreibung.