Visual Lanjutan TEORI 2 Latihan 4 (Select-Case)

Public Class Form1

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

        Dim bil As Integer = TextBox1.Text

        Select Case bil

            Case 80 To 100

                TextBox2.Text = "A"

            Case 65 To 79

                TextBox2.Text = "B"

            Case 47 To 64

                TextBox2.Text = "C"

            Case 26 To 46

                TextBox2.Text = "D"

            Case Else

                TextBox2.Text = "E"



        End Select





    End Sub



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

        Dim pesan As String

        pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If





    End Sub

End Class