Final ve Vize Notlarını Hesaplanması.

Private Sub Command2_Click()


Dim V, y, f


V = InputBox("Lütfen Vize Notunuzu Giriniz", "vize notunuz", "0")


f = InputBox("Lütfen Final Notunuzu Giriniz", "final notunuz", "0")


y = (V * 0.3) + (f * 0.7)


MsgBox y


Select Case y


Case 0: MsgBox (" Hiç birşey bilmiyorsun")


Case 1 To 24: MsgBox (" Kötü")


Case 25 To 44: MsgBox ("Çok iyi Değil")


Case 45 To 54: MsgBox (" Geçer")


Case 55 To 69: MsgBox ("Fena Değil")


Case 70 To 84: MsgBox (" İyi")


Case 85 To 100: MsgBox ("Çok iyisin")


Case Else: MsgBox ("Yanlış veya geçersiz not girdiniz")


End Select


End Sub