Anonymous

Option Explicit
Dim fact As Double
Dim num As Double

Function calculofactorial(numero As Double) As Double
  Dim cont As Integer
  fact = 1
   For cont = 1 To numero
      fact = fact * cont
   Next cont
   calculofactorial = fact
End Function


Sub chequeo(var1 As Double)
If var1 > 1000 Then
    MsgBox "numero mayor a 1000"
Else
    MsgBox "numero menor a 1000"
End If
End Sub


Private Sub Command1_Click()

End Sub

Private Sub cmdfactorial_Click()
Dim aux As Double
  num = txtNumero.Text
If num < 0 Then
 MsgBox "el factorial de un numero negativo no puede calcularse"
Else
 aux = calculofactorial(num)
 MsgBox "el factorial del numero ingresado es:" & aux
 Call chequeo(aux)
End If

End Sub

Sub testwonumbers(n1 As Double, n2 As Double)
'procedimiento que recibe parametros
If n1 > n2 Then
   MsgBox "el numero 1:" & n1 & "es mayor que:" & n2
Else
If n1 < n2 Then
   MsgBox "el numero 2:" & n2 & "es mayor que:" & n1
  End If
End If

End Sub

Private Sub cmdproc_Click()
'definicion de variables tipo entero que seran entregados as procedimiento
Dim num1 As Double
Dim num2 As Double
Dim fact1 As Double
Dim fact2 As Double

'numeros que se van a comparar en el procedimiento
num1 = InputBox("ingrese numero 1")
num2 = InputBox("ingrese numero 2")
fact1 = calculofactorial(num1)
fact2 = calculofactorial(num2)

'llamado a procedimiento
Call testwonumbers(num1, num2)
Call testwonumbers(fact1, fact2)
End Sub