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
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
