TOP

Visual Basic Consola - Selección 07




07.  Se pide ingresar 3 notas y calcular el promedio de un alumno, mostrar el nivel del alumnos según su promedio:
0    – 10 à Malo, 11 – 13 àRegular, 14 -16 à Bueno y 17 – 20 à Muy bueno.


Imports System.Console
Module Module7
    Dim n1, n2, n3 As Integer
    Dim prom As Double
    Sub Main()
        Write("Ingrese Nota 01 : ")
        n1 = ReadLine()
        Write("Ingrese Nota 02 : ")
        n2 = ReadLine()
        Write("Ingrese Nota 03 : ")
        n3 = ReadLine()
        prom = (n1 + n2 + n3) / 3
        WriteLine()
        Select Case prom
            Case 0 To 10 : WriteLine("Malo")
            Case 11 To 13 : WriteLine("Regular")
            Case 14 To 16 : WriteLine("Bueno")
            Case 17 To 20 : WriteLine("Muy Bueno")
        End Select
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.