Electronic

System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
System.Threading.Thread.CurrentThread.CurrentCulture.DateTimeFormat.ShortDatePattern ="dd/MM/yyyy"
System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.CurrencyDecimalSeparator = "."System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.CurrencyGroupSeparator = "."
System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberDecimalSeparator = ","System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberGroupSeparator = ","

Dim repetir, definitva1 As String
Dim quiz, participacion, trabajo, parcial, definitiva As Double
Dim i, estudiantes As Integer

DoConsole.BackgroundColor = ConsoleColor.White
Console.ForegroundColor = ConsoleColor.Black
Console.WriteLine("ingrese estuadiantes")
estudiantes =Console.ReadLine()
Console.Clear()

For i = 1 To estudiantes

Console.WriteLine("digite las notas del estuadiante N° {0}", i)Console.WriteLine(vbCrLf & "La nota de quiz", quiz)
quiz = Console.ReadLine()
Do While (quiz < 0) Or (quiz > 5)
quiz = 0Console.WriteLine("Nota no Valida")
Console.WriteLine("Digite otra vez")
quiz = Console.ReadLine()
LoopConsole.WriteLine(vbCrLf & "la nota de participaciones", participacion)
participacion = Console.ReadLine()
Do While (participacion < 0) Or (participacion > 5)participacion = 0
Console.WriteLine("nota no valida")
Console.WriteLine("digite otra vez")
participacion = Console.ReadLine()...