Skip to main content
etiquetas editadas
Enlace
Mariano
  • 24.5k
  • 20
  • 76
  • 105
formato de código
Origen Enlace
Mariano
  • 24.5k
  • 20
  • 76
  • 105

Funciones y procedimientos en Visual Basic Recibir como parámetro un número entre imprimir esa cantidad de caracteres

estoyEstoy intentando hacer un programa con una función que pide mediante inputbox un número impar del 5 al 10, y que repita el mensaje si no cumple las condiciones y por. Por otro lado, que un procedimiento reciba como parámetro dicho número para crear una TT con **, con esas dimensiones en la ventana de inmediato*.*inmediato .

Al ejecutarlo me da error de compilación en el Public sub ejercicio1 ()Public sub ejercicio1 (), donde pongo dibujarT num.

Seguro que es una tontería, pero no sé cuál. Por favor, ayuda, me urge para MAÑANAdibujarT num.

Public Sub ejercicio1()
    
    Dim num As Integer
    num = pedirnum()
    dibujarT num

End Sub

Public Function pedirnum() As Integer

    Dim num As Integer
    
    Do
        num = InputBox("Introducir un número entre el 5 y el 10: ")
    Loop While num < 5 Or num > 10 Or num Mod 2 = 0
    
End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    For i = 1 To num
        For j = 1 To num
            If i = 1 Or j = (num \ 2) + 1 Then
                Debug.Print "*";
            Else
                Debug.Print
            End If
        Next j
    Next i


End Sub
Public Sub ejercicio1()
    
    Dim num As Integer
    num = pedirnum()
    dibujarT num

End Sub

Public Function pedirnum() As Integer

    Dim num As Integer
    
    Do
        num = InputBox("Introducir un número entre el 5 y el 10: ")
    Loop While num < 5 Or num > 10 Or num Mod 2 = 0
    
End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    For i = 1 To num
        For j = 1 To num
            If i = 1 Or j = (num \ 2) + 1 Then
                Debug.Print "*";
            Else
                Debug.Print
            End If
        Next j
    Next i


End Sub

Funciones y procedimientos en Visual Basic

estoy intentando hacer un programa con una función que pide mediante inputbox un impar del 5 al 10 y que repita el mensaje si no cumple las condiciones y por otro lado que un procedimiento reciba como parámetro dicho número para crear una T con * con esas dimensiones en la ventana de inmediato*.*

Al ejecutarlo me da error de compilación en el Public sub ejercicio1 () donde pongo dibujarT num.

Seguro que es una tontería, pero no sé cuál. Por favor, ayuda, me urge para MAÑANA.

Public Sub ejercicio1()
    
    Dim num As Integer
    num = pedirnum()
    dibujarT num

End Sub

Public Function pedirnum() As Integer

    Dim num As Integer
    
    Do
        num = InputBox("Introducir un número entre el 5 y el 10: ")
    Loop While num < 5 Or num > 10 Or num Mod 2 = 0
    
End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    For i = 1 To num
        For j = 1 To num
            If i = 1 Or j = (num \ 2) + 1 Then
                Debug.Print "*";
            Else
                Debug.Print
            End If
        Next j
    Next i


End Sub

Recibir como parámetro un número entre imprimir esa cantidad de caracteres

Estoy intentando hacer un programa con una función que pide mediante inputbox un número impar del 5 al 10, y que repita el mensaje si no cumple las condiciones. Por otro lado, que un procedimiento reciba como parámetro dicho número para crear una T con *, con esas dimensiones en la ventana de inmediato .

Al ejecutarlo me da error de compilación en el Public sub ejercicio1 (), donde pongo dibujarT num.

Public Sub ejercicio1()
    
    Dim num As Integer
    num = pedirnum()
    dibujarT num

End Sub

Public Function pedirnum() As Integer

    Dim num As Integer
    
    Do
        num = InputBox("Introducir un número entre el 5 y el 10: ")
    Loop While num < 5 Or num > 10 Or num Mod 2 = 0
    
End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    For i = 1 To num
        For j = 1 To num
            If i = 1 Or j = (num \ 2) + 1 Then
                Debug.Print "*";
            Else
                Debug.Print
            End If
        Next j
    Next i


End Sub

estoy intentando hacer un programa con una función que pide mediante inputbox un nº impar del 5 al 10 y que repita el mensaje si no cumple las condiciones y por otro lado que un procedimiento reciba como parámetro dicho número para crear una T con * con esas dimensiones en la ventana de inmediato*.*

Al ejecutarlo me da error de compilación en el Public sub ejercicio1 () donde pongo dibujarT num.

Seguro que es una tontería, pero no sé cuál. Por favor, ayuda, me urge para MAÑANA.

Public Sub ejercicio1()

Public Sub ejercicio1()
    
    Dim num As Integer
    num = pedirnum()
    dibujarT num

End Sub

Public Function pedirnum() As Integer


End Sub

Public Function pedirnum() As Integer

    Dim num As Integer
    
    Do
        num = InputBox("Introducir un número entre el 5 y el 10: ")
    Loop While num < 5 Or num > 10 Or num Mod 2 = 0

End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    
End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    For i = 1 To num
        For j = 1 To num
            If i = 1 Or j = (num \ 2) + 1 Then
                Debug.Print "*";
            Else
                Debug.Print
            End If
        Next j
    Next i


End Sub

End Sub

estoy intentando hacer un programa con una función que pide mediante inputbox un nº impar del 5 al 10 y que repita el mensaje si no cumple las condiciones y por otro lado que un procedimiento reciba como parámetro dicho número para crear una T con * con esas dimensiones en la ventana de inmediato*.*

Al ejecutarlo me da error de compilación en el Public sub ejercicio1 () donde pongo dibujarT num.

Seguro que es una tontería, pero no sé cuál. Por favor, ayuda, me urge para MAÑANA.

Public Sub ejercicio1()

Dim num As Integer
num = pedirnum()
dibujarT num

End Sub

Public Function pedirnum() As Integer

Dim num As Integer

Do
    num = InputBox("Introducir un número entre el 5 y el 10: ")
Loop While num < 5 Or num > 10 Or num Mod 2 = 0

End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

For i = 1 To num
    For j = 1 To num
        If i = 1 Or j = (num \ 2) + 1 Then
            Debug.Print "*";
        Else
            Debug.Print
        End If
    Next j
Next i

End Sub

estoy intentando hacer un programa con una función que pide mediante inputbox un nº impar del 5 al 10 y que repita el mensaje si no cumple las condiciones y por otro lado que un procedimiento reciba como parámetro dicho número para crear una T con * con esas dimensiones en la ventana de inmediato*.*

Al ejecutarlo me da error de compilación en el Public sub ejercicio1 () donde pongo dibujarT num.

Seguro que es una tontería, pero no sé cuál. Por favor, ayuda, me urge para MAÑANA.

Public Sub ejercicio1()
    
    Dim num As Integer
    num = pedirnum()
    dibujarT num

End Sub

Public Function pedirnum() As Integer

    Dim num As Integer
    
    Do
        num = InputBox("Introducir un número entre el 5 y el 10: ")
    Loop While num < 5 Or num > 10 Or num Mod 2 = 0
    
End Function

Public Sub dibujarT(num As Integer, i As Integer, j As Integer)

    For i = 1 To num
        For j = 1 To num
            If i = 1 Or j = (num \ 2) + 1 Then
                Debug.Print "*";
            Else
                Debug.Print
            End If
        Next j
    Next i


End Sub
Origen Enlace
And
  • 11
  • 1
Loading