Calificacion con inputbox

        [pic 1][pic 2]

PROGRAMACION 1

PRÁCTICA # 2

PROFESOR: Héctor Francisco Berrones

ALUMNO: Edson Luis Rocha Rdz

MATRICULA: 1863555

GRUPO: 3L1   SALON: 131

TURNO: Matutino

Monterrey, N.L, 18 de agosto de 2017

Practica 2. Elaborar un programa donde capture a través de un InputBox los datos de un alumno como lo son matricula. Nombre, grupo y el promedio de tres calificaciones , estos datos se mostraran en sus correspondientes Textbox, se deberá calcular el promedio y mediando un msgbox mostrar si el alumno aprobó o reprobó la unidad de aprendizaje

Interfaz gráfica.

[pic 3]

Codificación

Public Class frmprom

    Private Sub btnprom_Click(sender As Object, e As EventArgs) Handles btnprom.Click

        Dim cal1, cal2, cal3, prom As Integer

        txtmatricula.Text = InputBox("ingrese su matrícula")

        txtnombre.Text = InputBox("ingrese su nombre")

        txtgrupo.Text = InputBox("ingrese su grupo")

        txtcal1.Text = InputBox("ingrese su calificacion")

        txtcal2.Text = InputBox("ingrese su segunda calificacion")

        txtcal3.Text = InputBox("ingrese su tercera calificacion")

        cal1 = Val(txtcal1.Text)

        cal2 = Val(txtcal2.Text)

        cal3 = Val(txtcal3.Text)

        prom = (Val(txtcal1.Text) + Val(txtcal2.Text) + Val(txtcal3.Text)) / 3

        txtpromedio.Text = prom

        If prom > 70 Then

            MessageBox.Show("Aprobado","calificación",MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

        Else

            MessageBox.Show("Reprobado","calificación",MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

    End Sub

    Private Sub btnlimp_Click(sender As Object, e As EventArgs) Handles btnlimpiar.Click

        txtcal1.Clear()

        txtcal2.Clear()

        txtcal3.Clear()

        txtpromedio.Clear()

        txtmatricula.Clear()

        txtnombre.Clear()

        txtpromedio.Clear()

    End Sub

    Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click

        End

    End Sub

End Class

Tabla de propiedades

...