• Lenguaje

    Visual Basic .Net

  • Descripción

    Pida calificaciones y que pregunte si desea introducir otra calificación. Terminar cuando ya no se quiera otra calificación. Y decir cuantas calificaciones se introdujeron, calcular el promedio y mostrarlo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Module PromedioDeCalificaciones

    Sub Main()
        Dim calificaciones As Integer
        Dim calificacion, promedio As Double
        Dim tecla_repetir As Char
        calificaciones = 0
        promedio = 0
        Do
            Console.Clear()
            Console.Write("Ingresa el valor de calificacion: ")
            calificacion = Double.Parse(Console.ReadLine())
            calificaciones=calificaciones+1
            promedio=promedio+calificacion
            Console.WriteLine()
            Console.Write(ChrW(&HBF) & "Deseas repetir el proceso? (S/N): ")
            Do
                tecla_repetir = Console.ReadKey(True).KeyChar
            Loop While tecla_repetir <> "s" And tecla_repetir <> "n" And tecla_repetir <> "S" And tecla_repetir <> "N"
        Loop While tecla_repetir = "s" Or tecla_repetir = "S"
        If calificaciones = 0 Then
            promedio = 0
        Else
            promedio=promedio/calificaciones
        End IF
        Console.WriteLine("Valor de calificaciones: " & calificaciones)
        Console.WriteLine("Valor de promedio: " & promedio)
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module