Programa Imports System.Console

Programa 7; Parte 1

Imports System.Console

Module Module1

Sub Main()

Dim cal1, cal2, cal3, prom As Decimal

cal1 = Pide_Calificacion()

cal2 = Pide_Calificacion()

cal3 = Pide_Calificacion()

prom = Calcula_Promedio(cal1, cal2, cal3)

Muestra(prom)

ReadLine()

End Sub

Function Pide_Calificacion() As Decimal

Dim cal As Decimal

WriteLine("Ingresa una calificación")

cal = ReadLine()

Return (cal)

End Function

Function Calcula_Promedio(cal1 As Decimal, cal2 As Decimal, cal3 As Decimal) As Decimal

Dim promedio As Integer

promedio = (cal1 + cal2 + cal3) / 3

Return (promedio)

End Function

Sub Muestra(prom As Decimal)

WriteLine("El promedio es de : " & prom)

End Sub

End Module

Programa 8; Parte 1

Imports System.Console

Module Module1

Sub Main()

Dim num1, resultado, potenciador As Integer

num1 = Pedir_Numero()

potenciador = potencia()

resultado = Operacion(num1, potenciador, resultado)

Muestra(resultado)

ReadLine()

End Sub

Function Pedir_Numero() As Integer

Dim N As Integer

WriteLine("Escribe un número")

N = ReadLine()

Return (N)

End Function

Function potencia() As Integer

Dim p As Integer

WriteLine("Escribe la potencia")

p = ReadLine()

Return (p)

End Function

Function Operacion(num1 As Integer, potenciador As Integer, resultado As Integer) As Integer

Dim R As Integer

R = num1 ^ potenciador

Return (R)

End Function

Sub Muestra(resultado As Integer)

WriteLine("El resultado es : " & resultado)

End Sub

End Module

...