Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VBA, ingrese cinco números y genere el valor máximo

Programación VBA, ingrese cinco números y genere el valor máximo

Sub prueba()

Dim Num As Long, Arr(1 a 5)

Para n = 1 a UBound(Arr)

Num = Application.InputBox("Ingrese el número:" & n & "número:", "Ventana de entrada de números", Tipo:=1)

Si Num = False, salga de Sub

Arr(n) = Num

Para i = 1 a UBound(Arr) - 1

Si Arr(i) < Arr(i + 1) Entonces

JG = Arr(i + 1)

Si no

JG = Arr(i)

End If

MsgBox "El número más grande entre los 5 números es:" & JG

End Sub