Visual Lanjutan TEORI 2 Latihan 3 (Percabangan IF)

Public Class Form1

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


        Dim hari As String

        Dim ke As String = ComboBox1.Text

        hari = IIf(ke = "1", "SENIN", IIf(ke = "2", "SELASA",

            IIf(ke = "3", "RABU", IIf(ke = "4", "KAMIS",

            IIf(ke = "5", "JUMAT", IIf(ke = "6", "SABTU", "MINGGU"))))))

        TextBox1.Text = hari

    End Sub

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

        Application.Exit()

    End Sub

End Class