4.COMPARADOR IF-ELSE-ELSE

En este programa lo que se hizo fue comenzar a utilizar el comparador “If-Else-Else” y lo hicimos, haciendo un programa que mire las notas que pongas y te diga si perdió o paso. Sabiendo que de 0-29 “perdió” de 30-41 “Paso” y de 42-50 “Para Beca”.

A continuación se mostrara el código que se utilizó:

Public Class Form1

    Dim Nota_1, Nota_2, Nota_3, Def As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Nota_1 = 0

        Nota_2 = 0

        Nota_3 = 0

        Def = 0

        TextBox1.Text = Nota_1

        TextBox2.Text = Nota_2

        TextBox3.Text = Nota_3

        Label1.Text = Def

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Nota_1 = Val(TextBox1.Text)

        Nota_2 = Val(TextBox2.Text)

        Nota_3 = Val(TextBox3.Text)

        Def = (Nota_1 * 0.3) + (Nota_2 * 0.3) + (Nota_3 * 0.4)

        If Def >= 42 Then

            Label1.Text = Def

            MsgBox("Para Beca")

        Else

            If Def >= 30 Then

                Label1.Text = Def

                MsgBox("Paso")

            Else

                Label1.Text = Def

                MsgBox("Perdio")

            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Nota_1 = 0

        Nota_2 = 0

        Nota_3 = 0

        Label1.Text = 0

        TextBox1.Text = Nota_1

        TextBox2.Text = Nota_2

        TextBox3.Text = Nota_3

    End Sub

End Class

La parte gráfica de este programa se ve así:

COMPARADOR IF-ELSE-ELSE

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES: 

https://www.dropbox.com/s/41q24iksu5z1fn1/COMPARADOR%20IF-ELSE-ELSE.rar