Autos.doc subida exitosa

Solo disponible en BuenasTareas
  • Páginas : 2 (314 palabras )
  • Descarga(s) : 0
  • Publicado : 27 de agosto de 2012
Leer documento completo
Vista previa del texto
mports System.Console
Module Module1

Dim cod_fact As Byte
Dim usuario As Char
Dim Mar_aut As Byte
Dim Pre_dia = 55
Dim num_dia As Integer
Dim subtotal As DoubleDim iva As Double
Dim tot_pag As Double
Dim tot_sed As Double
Dim tot_sta As Double
Dim tot_dep As Double
Dim tot_gen As Double

Sub Main()
Dim conta As Bytecod_fact = 0
Clear()

For conta = 1 To 5
cod_fact = cod_fact + 1
Console.WriteLine("Control de Alquiler de Autos")
WriteLine("Codigo deFactura: " & cod_fact)
REM cod_fact = Console.ReadLine
Console.WriteLine("Nombre del Usuario: ")
usuario = Console.ReadLineConsole.WriteLine("Marca de Auto: ")
Console.WriteLine("Tipo de Auto 1.- Sedan 2.-Station 3.- Deportivo")
Mar_aut = Console.ReadLine
If Mar_aut = 1 ThenWriteLine("Precio por Dia es de: " & Pre_dia)
Console.WriteLine("# de Dias por Alquilar: ")
num_dia = Console.ReadLine
subtotal = num_dia * Pre_diaiva = (subtotal * 12) / 100
WriteLine("Subtotal: " & subtotal)
WriteLine("IVA 12%: " & iva)
tot_pag = subtotal + ivaWriteLine("Total a Pagar: " & tot_pag)
tot_sed = tot_sed + tot_pag
ReadKey()
Else
If Mar_aut = 2 Then
WriteLine("Precio porDia es de: " & Pre_dia)
Console.WriteLine("# de Dias por Alquilar: ")
num_dia = Console.ReadLine
subtotal = num_dia * Pre_diaiva = (subtotal * 12) / 100
WriteLine("Subtotal: " & subtotal)
WriteLine("IVA 12%: " & iva)
tot_pag = subtotal + iva...
tracking img