Usuario
Arbolito de Navidad en VB

Pregunta
-
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
Todas las respuestas
-
-
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
- Editado Alejandro Rosales Colon miércoles, 16 de mayo de 2012 19:31
-
-
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!