Kullanımı Kalıbı

'select case  değişken

' case

' case

'end select

ÖRNEK 1

Klavyede 0 - 5 arasında bir rakam girilecek ve ne girildiğini msgbox la bize göstersin

'birinci bölüm

Dim a As Integer

a = InputBox("1 - 5 arasında bir sayı giriniz")

Select Case a

    Case 1

    MsgBox ("girilen sayı 1'dir")

    Case 2

    MsgBox ("girilen sayı 2'dir")

    Case 3

    MsgBox ("girilen sayı 3'dür")

    Case 4

    MsgBox ("girilen sayı 4'dür")

    Case 5

    MsgBox ("girilen sayı 5'dir")

'ikinci bölüm

'mesala 8 rakamini girin

        Case Else

        MsgBox ("boyle bir sayi girilemez")

'üçüncü bölüm

'5-100 arasındaki tüm sayılar için

         Case 5 To 100

'yazılır

End Select

ÖRNEK 2

Dim a As Integer ,b As Integer, c As Integer, d As Double, e As Double, f As Double, but As Double

a = InputBox("Birinci vize notu giriniz")

b = InputBox("ikinci vize notu giriniz")

c = InputBox("Final notunu giriniz")

d = ((a + b) / 2) * 0.4

e = (c * 0.6) + d

Select Case e

    'Case e >= 0, e <= 100: (: case in bittiğini anlatır.)

    'case e="ali",e="mehmet": (kullanılabilir.)

    Case 0 To 49

    MsgBox ("kaldınız")

    Case 50 To 59

    MsgBox ("geçer not aldınız")

    Case 60 To 84

    MsgBox ("sıralamaya girmek üzeresiniz")

    Case 85 To 94

    MsgBox ("az kaldı")

    Case 95 To 100

    MsgBox ("iste bu")    

    'case else  kullanılabilir.

    Case Is < 0 > 100    

    MsgBox ("girdiğin not yalnıştır lütfen kontrol ediniz.")

End Select

Print e

ÖRNEK 3

Private Sub Command13_Click()

Dim a

Dim b

Dim c

a = InputBox("bir harfe basınız")

Select Case a

    Case "A" To "G"

    c = "A ile G arasında bir harfe bastınınz"

    Case "H" To "K"

    c = "H ile K arasında bir harfe bastınınz"

    Case "L" To "Z"

    c = "L ile G arasında bir harfe bastınınz"

    Case Else

    c = "yanlış bir tuşa bastınız"

End Select

MsgBox c

End Sub