Menggunakan Operator Logika Pada Seleksi IF

Dari kasus sebelumnya (Menggunakan Seleksi IF Jamak pada Visual Basic.Net 2008 ) bisa juga diselesaikan dengan mengkombinasikan terhadap operator logika (And, Or, Not).

Lihat bentuk penulisan operator logika di bawah ini

IF kondisi1 and kondisi2 then 
   pernyataan1
ELSE IF Kondisi3 and kondisi4 then
   pernyataan2
ELSE IF Kondisi5 and kondisi6 then
   ....
END IF

Modifikasi program pada Menggunakan Seleksi IF Jamak pada Visual Basic.Net 2008dengan perintah berikut ini :

Public Class Form1
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress        Dim tombol As Integer = Asc(e.KeyChar)
        Dim nilai As Integer
        If tombol = 13 Then

            nilai = TextBox1.Text

            If nilai >= 0 And nilai < 50 Then
                TextBox2.Text = "E"
            ElseIf nilai >= 50 And nilai < 60 Then
                TextBox2.Text = "D"
            ElseIf nilai >= 60 And nilai < 70 Then
                TextBox2.Text = "C"
            ElseIf nilai >= 70 And nilai < 80 Then
                TextBox2.Text = "B"
            ElseIf nilai >= 80 And nilai <= 100 Then
                TextBox2.Text = "A"
            Else
                TextBox2.Text = ""
            End If
           End If
          End Sub

End Class

Selamat mencoba :)

SUMBER