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