[VB-Consola] Sacar Promedio de 3 Notas

Ver el tema anterior Ver el tema siguiente Ir abajo

[VB-Consola] Sacar Promedio de 3 Notas

Mensaje por Koleshy el Vie Nov 22, 2013 8:59 pm



El Codigo (Source)

Código:
Imports System.Console
Module Module1

    Sub Main()
        'Aqui estamos creando un total de 4 variables tipo Integer (Numero Entero)
        Dim n1, n2, n3, r As Integer
        'Aqui abajo estamos escribiendo en la consola el texto "Ingrese nota 1"
        'de lado se coloca se permite colocar un valor
        Write("Ingrese nota 1: ")
        'que hacemos aqui abajo? n1 = leer valor ingresado, con esto guardamos el valor que
        'nosotros ingresamos.
        '[Lo mismo hacemos con las otras 2 notas, claro con sus variables correspondientes]
        n1 = ReadLine()
        Write("Ingrese nota 2: ")
        n2 = ReadLine()
        Write("Ingrese nota 3: ")
        n3 = ReadLine()
        'para que creamos la variable r? para adquirir el valor que necesitamos y utilizarlo
        'con mas facilidad...
        'r = sumamos los 3 valores y luego lo dividimos entre 3 para sacar su promedio...
        'porque esta en parentecis? para que se ejecute primero la suma enves del a division
        'ya que matematicamente se ejecutaria primero la division si no colocamos los parentecis
        r = (n1 + n2 + n3) / 3
        'luego aqui debajo estamos enviando un cuadro de mensaje mostrando el valor que
        'adquirio "r"
        MsgBox("Su promedio es: " & r)
    End Sub

End Module
avatar
Koleshy
Pendejo
Pendejo

Mensajes : 37
Fecha de inscripción : 21/11/2013
Edad : 21
Localización : Lima, Perú

Ver perfil de usuario http://koleshyengine.foroactivo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.