[VB-Consola] Sacar Promedio de 3 Notas

por **Koleshy** 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