SELECT - CASE YAPISI

               Program içerisinde bazı komutların gerçekleşmesi belli şartlara bağlıdır. Bizler bu şartlı yapıyı ya if yapısı kullanarak ya da select-case yapısı ile kolayca yapabiliriz. Ama if yapısı ile aynı koşul ile birden çok olayın gerçekleşmesi için yazılan kod parçacıkları çok uzayabilir. İşte bu arada Select - Case yapısını kullanabiliriz. Select - Case yapısında iki nesne arasındaki bir durumu belirteceksek "to" kullanılır.
              Kullanımından bahsedecek olursak;

Select Case Kontrol_Edilecek_Değişken
          Case ifade1
                   Komut
          Case ifade2
                   Komut
          .
          .
End Select

ÖRNEK

Public Class Form1

    Dim nott As Integer

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

        nott = TextBox1.Text

        Select Case nott

            Case 0 To 24

                MsgBox("Sıfır")

            Case 25 To 44

                MsgBox("Başarısız")

            Case 45 To 54

                MsgBox("Geçer")

            Case 55 To 69

                MsgBox("Orta")

            Case 70 To 84

                MsgBox("İyi")

            Case 85 To 99

                MsgBox("Pekiyi")

            Case 100

                MsgBox("Pekpekiyi")

        End Select

    End Sub

End Class