Ingeniería económica en VB .Net

Module Module1
'Autor: CARRARO 2011
Sub Main()
Dim valor As Double
Dim tasa As Double
Dim periodo As Integer
Dim n As Integer
Dim resultado As Double
Dim opc As Integer
valor = 0 : tasa = 0 : periodo = 0 : n = 0
resultado = 0 : opc = 0
Console.WriteLine("*** Ingeniería económica ****")
'-----------------------------------------------------------
valor = Val(InputBox("Valor: ", "Ingeniería económica", ""))
tasa = Val(InputBox("Tasa: ", "Ingeniería económica", ""))
periodo = Val(InputBox("Periodo: ", "Ingeniería económica", ""))
'-----------------------------------------------------------
Console.WriteLine("1. Valor futuro 2. Valor presente 3. Salir")
Console.WriteLine("Tu opción: ")
opc = Val(InputBox("Tu opción es ", "Ingeniería económica", ""))
Select Case opc
Case 1
MsgBox("Valor futuro", MsgBoxStyle.Information, "Tu opción es")
For n = 0 To periodo
resultado = valor * (1 + tasa) ^ n
Console.WriteLine("Cantidad generada: " + CStr(resultado) + " no. " + CStr(n))
Next n
Case 2
MsgBox("Valor presente", MsgBoxStyle.Information, "Tu opción es")
For n = 0 To periodo
resultado = valor / (1 + tasa) ^ n
Console.WriteLine("Cantidad generada: " + CStr(resultado) + " no. " + CStr(n))
Next n
Case 3
MsgBox("¡Haz terminado la aplicación!")
Case Else
MsgBox("¡Error, opción no válida!", MsgBoxStyle.Critical, "Aviso del programa")
End Select

End Sub

End Module

Costo de recuperación en VB .Net

Module Module1
'Autor: CARRARO 2011
Sub Main()
Dim costo As Double, depreciacion As Double
Dim valor_recuperacion As Double, valor_actual As Double
Dim acumulado As Double
Dim anyo As Integer, vida_util As Integer

Console.WriteLine("*** [Costo de recuperación] ***")
Console.WriteLine("Introduce costo, valor de recuperación y vida útil")
costo = Val(InputBox("Costo: ", "[Costo de recuperación]", ""))
valor_recuperacion = Val(InputBox("Valor de recuperación : ", "[Costo de recuperación]", ""))
vida_util = Val(InputBox("Vida útil: ", "[Costo de recuperación]", ""))
Console.WriteLine("Introduce año actual")
anyo = Val(InputBox("Año actual: ", "[Costo de recuperación]", ""))
Console.WriteLine("Costo: " + CStr(costo) + " Valor de recuperación: " + CStr(valor_recuperacion))
Console.WriteLine("Vida útil: " + CStr(vida_util))
valor_actual = costo
depreciacion = (costo - valor_recuperacion) / vida_util
acumulado = 0
Console.WriteLine("Año: " + CStr(anyo) + " Depreciación: " + CStr(depreciacion))
While (anyo < vida_util)
acumulado += depreciacion
valor_actual -= depreciacion
Console.WriteLine("Año: " + CStr(anyo) + " Depreciación: " + CStr(depreciacion))
Console.WriteLine("Acumulado: " + CStr(acumulado))
anyo += 1
End While

MsgBox("Ha finalizado el programa", MsgBoxStyle.Exclamation, "Aviso del programa")


End Sub