Private Sub Command1_Click()

Dim not1 As Integer
Dim not2 As Integer
Dim not3 As Integer

isim = InputBox("İSMİNİZİ GİRİNİZ")

not1 = InputBox("NOT1 GİRİNİZ")
If not1 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

not1 = InputBox("NOT1 GİRİNİZ")

End If
not2 = InputBox("NOT2 GİRİNİZ")
If not2 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

End If
not3 = InputBox("NOT3 GİRİNİZ")
If not3 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

End If

sonuc = not1 + not2 + not3

sonuc = sonuc / 3

If sonuc > 44 Then

MsgBox isim & " FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ BAŞARILI BULUYOR"

MsgBox "BASARININ DEVAMINI DİLİYORUM " & isim & " NOT ORTALAMAN " & sonuc

End If

If sonuc < 45 Then

MsgBox isim & " FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ ZAYIF BULUYOR"

MsgBox "DAHA COK CALISMAN LAZIM SANA HAYATINDA BASARILAR DİLİYORUM " & isim & " NOT ORTALAMAN " & sonuc


End If

End Sub

Private Sub Command2_Click()
Dim not1 As Integer
Dim not2 As Integer


isim = InputBox("İSMİNİZİ GİRİNİZ")

not1 = InputBox("NOT1 GİRİNİZ")
If not1 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

not1 = InputBox("NOT1 GİRİNİZ")

End If
not2 = InputBox("NOT2 GİRİNİZ")
If not2 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

End If

sonuc = not1 + not2

sonuc = sonuc / 2

If sonuc > 44 Then

MsgBox isim & " FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ BAŞARILI BULUYOR"

MsgBox "BASARININ DEVAMINI DİLİYORUM " & isim & " NOT ORTALAMAN " & sonuc

End If

If sonuc < 45 Then

MsgBox isim & " FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ ZAYIF BULUYOR"

MsgBox "DAHA COK CALISMAN LAZIM SANA HAYATINDA BASARILAR DİLİYORUM " & isim & " NOT ORTALAMAN " & sonuc


End If

End Sub