contoh soal if berganda

Public Class Form1

    Private Sub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged

    End Sub

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

        NPM.Items.Add(14110205)
        NPM.Items.Add(14110206)
        NPM.Items.Add(14110208)

        Jurusan.Items.Add("Teknik Informatika")
        Jurusan.Items.Add("Sitem Informasi")
        Jurusan.Items.Add("Manajemen Informatika")
        Jurusan.Items.Add("Komputer Akutansi")
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If NPM.Text = "14110205" Then
            NAMA.Text = "Bainun"
            Jurusan.Text = " Teknik informatika"
        ElseIf NPM.Text = "14110209" Then
            NAMA.Text = "WINDY"
            Jurusan.Text = " Sistem Informasi"
        ElseIf NPM.Text = "14110208" Then
            NAMA.Text = "Ega"
            Jurusan.Text = " Teknik komputer"
        Else
            NAMA.Text = "IKA"
            Jurusan.Text = "Manajemen informatika"
        End If
    End Sub

    Private Sub Nilai_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai.TextChanged
        If Nilai.Text >= 60 Then
            keteranga.Text = "LULUS"
        Else
            keteranga.Text = "GAGAL"
        End If
    End Sub


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