Private Sub CommandButton1_Click() Dim p As Integer tekrar: p = InputBox("Lütfen Not Giriniz") If p < 0 Or p > 100 Then MsgBox "Geçersiz Not Girişi Yaptınız", , "Yeniden Deneyiniz" GoTo tekrar End If Select Case p Case 0 To 44 MsgBox "Başarısız--Kladı" GoTo tekrar
Private Sub CommandButton1_Click()
Dim p As Integer
tekrar:
p = InputBox("Lütfen Not Giriniz")
If p < 0 Or p > 100 Then
MsgBox "Geçersiz Not Girişi Yaptınız", , "Yeniden Deneyiniz"
GoTo tekrar
End If
Select Case p
Case 0 To 44
MsgBox "Başarısız--Kladı"
GoTo tekrar
Case 45 To 54
MsgBox "Geçer"
GoTo tekrar
Case 55 To 69
MsgBox "Orta"
GoTo tekrar
Case 70 To 84
MsgBox "İyi"
GoTo tekrar
Case Else
MsgBox "Pekİyi"
GoTo tekrar
End Select
End Sub