Arbolito de Navidad en VB

Question

Buenas tardes, por favor me podrian ayudar a resolver un ejercicio que me dejaron en la escuela, ya le busque y nada que doy con el error por favor ayundenme. gracias

Private Sub UserForm_Click()
Dim i As Integer, j As Integer
Dim num As Integer
num = InputBox("Tamaño del árbol", , 5)
For i = 1 To num
For j = num To i Step -1
Print "";
Next j
For j = 1 To 2 * i - 1
If (j Mod 2) = 0 Then Print "+"; Else Print "*";
Next j
Print
Next i
For i = 1 To num
Print "*";
Next i
For j = 1 To num / 2
Print "|";
Next j
End Sub

 

Answer 1

Hola Alejandro, que error te da?, Disculpa, pero no entiendo.

saludos!

Pablo D.

Answer 2

gracias Pablo

al momento de correrlo me da un error en la linea 7 y me dice error "El objeto no admite esta propiedad o metodo" y se supone deberia generar una imagen con Sentencia For para repetir , gracias

Answer 3

asi deberia salir

          *
        ***
     ******
   ********
 **********
***********
         |||

Answer 4

Alejandro, este codigo grafico tu arbolito:

Private Sub form_Click()
Dim i As Integer, j As Integer, num As Integer
num = InputBox("Tamaño del árbol", , 3)
For i = 1 To num
    For j = num To i Step -1
        Print " ";
    Next j
    
    For j = 1 To 2 * i
        If (j Mod 2) = 0 Then Print ""; Else Print "*";
    Next j
    
    Print

Next i

For j = 0 To i
    Print " ";
Next j
For j = 0 To num / 2
    Print "|";
Next j

End Sub

Saludos!