none
Arbolito de Navidad en VB RRS feed

  • 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

     

    miércoles, 16 de mayo de 2012 18:14

Todas las respuestas

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

    saludos!

    Pablo D.

    miércoles, 16 de mayo de 2012 19:17
  • 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



    miércoles, 16 de mayo de 2012 19:30
  • asi deberia salir

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

    miércoles, 16 de mayo de 2012 19:35
  • 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!

    miércoles, 16 de mayo de 2012 20:26