* SELECT CASE Örnek;

* SELECT CASE Örnek;


Private Sub Command1_Click()

puan = InputBox("Notunuzu Giriniz")

Select Case puan

Case 100

MsgBox ("Bravo 100 almışsınız. Ödül kazandınız")

Case 90 To 99

MsgBox ("Pekiyi ile geçtiniz")

Case 80 To 89

MsgBox ("iyi ile geçtiniz")

Case 70 To 79

MsgBox ("orta ile geçtiniz")

Case 60 To 69

MsgBox ("Geçerle geçtiniz")

Case Is < 60

MsgBox ("kaldınız")

Case Else

MsgBox ("yanlış sayı girdiniz")

End Select

End Sub