Subproblemas

Sub Programas (Funciones)

Declaración de una función:

Function nombre de la función (Lista de parámetros) As tipo de dato de la función

1. Declaración de variables locales

2.Calculo de un valor

3. Retorno del valor calculado al procedimiento principal

End Function

Ejemplo: Hallar el factorial de “n” numeros

'declarar variables locales
Dim n As Integer'validar n
Do
n = Val(InputBox("Ingrese valor de n"))
If Not (n >= 0) Then
MessageBox.Show("Error")
End If
Loop Until n>= 0
'llevar a la funcion y mostrar respuesta
lstmostrar.Items.Add("El factorial de " & n & " es: " & Factorial(n))

End Sub

Function Factorial(ByVal x As Integer) AsDouble
'declarar variables locales
Dim i As Integer
Dim fact As Double
'calculo del factorial
'inicializar
Fact = 1
'para cada i desde 1hasta x
For i = 1 To x
fact = fact * i
Next
'retornar fact al programa principal
Return fact
End Function

Ejemplo 2: Hallar el factorial de 1hasta 10

'declarar variables locales
Dim i As Integer
'para cada i desde 1 hasta 10
For i = 1 To 10
'llamar a la funcion y mostrar factoriallstmostrar.Items.Add("El factorial de " & i & " es: " & Factorial(i))
Next
End Sub

Problemas (Guía 5)

Problema 2: Un numero entero positivo se dice perfecto si es igual a la suma detodos sus divisores excepto el mismo. Escribir un programa que pida el ingreso de un numero entero mayor que cero y mediante una función llamada esPerfecto que recibe como parámetro este numero retornetrue si el numero es perfecto y false si no lo es.

Function esperfecto(ByVal x As Integer) As Boolean
'declarar variables locales
Dim i, s As Integer
Dim resultado As...