Proyecto

Dim ss, s, ci, c1, csd, ca, cr, bandera, d, ad, ada As Integer
Dim p1, p2, p3, pa, psd, pr, dpa, dp, por1, por2, por3 As Single
Dim mayord, mayorci As Integer
Dim n, mayornAs String

FileOpen(1, "C:\Users\Johnder\Documents\Visual Studio 2008\calificaciones.txt", OpenMode.Input)
FileOpen(2, "C:\Users\Johnder\Documents\Visual Studio2008\aprobados.txt", OpenMode.Output)
FileOpen(3, "C:\Users\Johnder\Documents\Visual Studio 2008\sd.txt", OpenMode.Output)
FileOpen(4, "C:\Users\Johnder\Documents\Visual Studio 2008\recuperativo.txt",OpenMode.Output)
Console.WriteLine("cual es la seccion:")
ss = Console.ReadLine
Console.WriteLine("cual es el porcentaje 1:")
por1 = Console.ReadLineConsole.WriteLine("cual es el porcentaje 2:")
por2 = Console.ReadLine
Console.WriteLine("cual es el porcentaje 3:")
por3 = Console.ReadLine
c1 = 0
ca = 0cr = 0
csd = 0
ad = 0
ada = 0
bandera = 0
While Not EOF(1)
Input(1, s)
Input(1, ci)
Input(1, n)Input(1, p1)
Input(1, p2)
Input(1, p3)
d = Math.Round(((por1 / 100) * p1) + ((por2 / 100) * p2) + ((por3 / 100) * p3))
ad = ad + d
If s =ss Then
c1 = c1 + 1

If d >= 10 Then
PrintLine(2, "{0},{1},{2}", ci, n, d)
ca = ca + 1List_ca.items.add(ca)
ada = ada + d

Else
If d < 5 Then
PrintLine(3, "{0},{1},{2}", ci, n, d)
csd = csd +1

List_csd.Items.Add(csd)
Else
If (d >= 5) And (d < 10) Then
PrintLine(3, "{0},{1},{2}", ci, n,...