Crear Una Pirámide De N Filas By Jhonjhon_123

Option Explicit

Private Sub CMD_Run_Click()
Dim D As Long
Dim N As Long

TXT_Pir.Text = ""

For D = Val(TXT_Filas.Text) To 1 Step -1
    N = D + (D - 1)
    Call Escribir(N, "*", TXT_Pir)
Next

End Sub


Function Escribir(Veces As Long, Char As String, TXT As TextBox)
Dim D As Long
For D = 1 To Veces
    TXT = TXT & Char
Next
TXT = TXT & vbCrLf
End Function

Private Sub Form_Load()
With TXT_Pir
    .Font = "OCR A Std"
    .FontBold = True
    .FontSize = 12
End With
End Sub