Bueno, este es un ejercicio de un libro, y se los quise pasar.
El ejercicio consiste en crear un code que haga una pirámide de N filas.
(http://img29.imageshack.us/img29/4839/piramide.png)
Codigo De Fuente:
Necesitan 2 TextBox
1. TXT_Pir > Para Ver La pirámide > MultiLine = True > Locked = True
2. TXT_Filas > No De Filas
1 CommandButton > CMD_Run > Crear Pirámide
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