Promedio / Media de tres notas VB 2008

Programa hecho en Visual Basic 2008 Express Edition que al insertar 3 notas calculara el promedio de estas. Recuerde que Promedio = x /N. Este programa tambien mostrara un mensaje en un label denominado lblcalificacion que dira como se califica el promedio de las notas insertadas.

Para hacer este programa necesitaras insertar en un formulario los siguientes objetos:

-6 Labels
-4 TextBoxs
-3 Bottons
-1 Shape en forma de rectangulo

Luego de insertar estos objetos escribir los siguientes codigos:


Public Class Form1
    Dim prom As Integer
    Dim promfinal As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        prom = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)

        promfinal = prom / 3
        Me.TextBox4.Text = promfinal

        If promfinal >= 0 And promfinal < 70 Then
            lblclasificacion.Text = "Promedio insuficiente"
        Else
            If promfinal > 69 And promfinal < 80 Then
                lblclasificacion.Text = "Promedio suficiente"
            Else
                If promfinal > 79 And promfinal < 90 Then
                    lblclasificacion.Text = "Buen promedio"
                Else
                    If promfinal > 89 And promfinal <= 100 Then
                        lblclasificacion.Text = "Promedio excelente"
                    End If
                End If
            End If
        End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        lblclasificacion.Text = ""
        TextBox1.Select()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

*En este programa se declararon dos variables (prom y promfinal) como Integer para que el resultado me de un numero entero.
*Botton1 = Boton Calcular
*Botton2 = Boton Limpiar
*Botton3 = Boton Cerrar

5 comentarios

Me gusto, pero necesito una que calcule 6 notas.

Reply

Para calcular el promedio de 6 notas hacer el mismo procedimiento, pero en vez de 3 textbox insertar 6 y el promedio final sera igual a la suma de los 6 textbox entre 6 (promfinal = prom / 6). Gracias por comentar :)

Reply

¡¡Muchas Gracias!!
Me habia estancado en un ejercicio similar.
Esta es lo hora y no doy porque no pme sale en le metodo que hacia.

El metodo que no me funciono era este:
dim resultado as integer
dim total as integer
convert.todouble(textbox1.text)
convert.todouble(textbox2.text)
convert.todouble(textbox3.text)
resultado= (textbox1.text)+(textbox2.text)+(textbox3.text)
total = resultado/3

if total >=3.5 then
texbox4.text " has aprobado"

else

textbox4.text = " has reprobado"

siempre me salia reprobado.
prbe colocando antes de los textbox cdbl, cint.
Y no me funcionaba lol

¡Gracias!

Reply

Pero si quiero solo nortas mayores q 0 y menores q 20 como hago

Reply

Publicar un comentario