estoyEstoy intentando hacer un programa con una función que pide mediante inputbox un nº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