visual basic ejercicios

Filuc


'Variables de entrada
Dim editorial, representante, titulo_libro As String
Dim genero As Char
Dim anho, cantidad As Integer
Dim precio As Single'Variables de salida
Dim porc_aceptados As Single
Dim libro_maxcosto, edit_maxcosto As String
Dim cant_editoriales As Integer

'Variables de procesoDim bandera As Boolean 'Auxiliar para cálculo del libro mas costoso
Dim cent As Integer 'Variable para controlar el ciclo interno
Dim cont_t, cont_p As Integer 'Contador delibros totales y permisibles a la venta para calculo del porcentaje
Dim precio_max As Single 'Variable para realizar comparaciones y determinar el libro mas costoso

'Apertura dearchivos
FileOpen(1, "filuc2008.txt", OpenMode.Input)
'Inicializacion de acumuladores y contadores
bandera = True

While Not EOF(1)
Input(1,editorial)
Input(1, representante)

'Inicializacion de contadores para cada editorial
cont_p = 0
cont_t = 0

Do
Input(1,titulo_libro)
Input(1, genero)
Input(1, anho)
Input(1, cantidad)
Input(1, precio)
Input(1, cent)cont_t = cont_t + 1

'Impresiones por cada libro
Console.Write("Titulo del libro: " & titulo_libro & " editorial: " & editorial & ". ")

If anho 75Then
cant_editoriales = cant_editoriales + 1
End If
End While
Console.WriteLine("____________________________________")Console.WriteLine("Libro mas costoso: " & libro_maxcosto)
Console.WriteLine("Editorial " & edit_maxcosto)
Console.WriteLine("Cantidad de editoriales cuyo porcentaje de libros aceptados sea superior a...