no sé

CODIGO DE PROBLEMAS RESUELTOS EN CLASE
GUIA Nro. 05 - Funciones

Ejemplo 01
Public Class Form1

Private Sub BtnFactorial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFactorial.Click
'1. Definir variables
Dim Numero As Integer, Factorial As Double
'2. Digitar el número N
Do
Numero = Val(InputBox("Digitarel valor del Número", ">= 0"))
If Numero < 0 Then
MessageBox.Show("Error, debe ser >= 0")
End If
Loop Until Numero >= 0
'3. Calcular el factorial de N usando una Función
Factorial = CalculaFactorial(Numero)
'4. Mostrar el valor de N y Fact
MessageBox.Show("Número digitado: " & Numero & vbNewLine & _"Factorial del número: " & Factorial, "Resultado")
End Sub

'Función creada por el usuario
Function CalculaFactorial(ByVal Numero As Integer) As Double
Dim K As Integer
Dim Fact As Double
Fact = 1
For K = 1 To Numero
Fact = Fact * K
Next
Return Fact
End Function

Private SubBtnCombinaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCombinaciones.Click
'1. Definir variables
Dim CantidadNros, K, Diferencia, Combinaciones As Integer
Dim NFactorial, KFactorial, DiFactorial As Double
'2. Digitar los valores
'2.1 Valor de N > 0
Do
CantidadNros = Val(InputBox("Cantidad de elementos acombinar n >0 "))
If CantidadNros 0
'2.2 Valor de K > 0 y K < Nb
Do
K = Val(InputBox("Número de elementos por combinación", " k >0 y k 0 y < N")
End If
Loop Until K > 0 And K 0
Do
Numero = Val(InputBox("Digitar un número entero"))
If Numero 0
'3.2. Llamar a Función para verificar sies perfecto
NP = NumeroPerfecto(Numero, Divisores)
'3.3 Mostrar resultados
If NP = True Then
MessageBox.Show(Numero & " Es un número perfecto " & vbNewLine & "Divisores:" & Divisores)
Else
MessageBox.Show(Numero & " No es un número perfecto" & vbNewLine & "Divisores:" & Divisores)
End If
End Sub

FunctionNumeroPerfecto(ByVal N As Integer, ByRef Divisores As String) As Boolean
'La funcion contiene un parametro por valor y uno por referencia o dirección
'El parametro por referencia al ser modificado en la función se modifica tambien para el procedimiento principal
'Definir variables locales
Dim SumDivisores, I As Integer
Dim RS As Boolean
'Hallar sumade divisores
For I = 1 To (N - 1)
If (N Mod I) = 0 Then
SumDivisores = SumDivisores + I
Divisores = Divisores & I & ", "
End If
Next I
'Comparar suma con el número
If SumDivisores = N Then
RS = True
Else
RS = False
End If
Return RS
End FunctionPrivate Sub CmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSalir.Click
Me.Close()
End Sub
End Class

Problema 05
Public Class Form1

Private Sub BtnEjecutar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEjecutar.Click
'1. Definir variables
Dim N, K As Integer
Dim PR1,PR2, PR3, PR4, TA As Integer
Dim Nombre, Mensaje As String
'2. Digitar el valor de N
Do
N = Val(InputBox("El valor de N debe ser mayor que 0", "Valor de N"))
If N 0
'3. Proceso: Repetir desde 1 hasta N
For K = 1 To N
'3.1 Digitar datos
Nombre = InputBox("Digitar el nombre", "Alumno nro: " & K)...