Visual Basic 2008 Not Öğrenme Programı Yapımı.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim notu As Byte

Try

notu = InputBox("Notu Girin", "Not Girişi")

If notu < 25 Then

MsgBox("Notunuz 0", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)

ElseIf notu < 45 Then

MsgBox("Notunuz 1", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)

ElseIf notu < 55 Then

MsgBox("Notunuz 2", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)

ElseIf notu < 70 Then

MsgBox("Notunuz 3", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)

ElseIf notu < 85 Then

MsgBox("Notunuz 4", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)

ElseIf notu <= 100 Then

MsgBox("Notunuz 5", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)

Else

MsgBox("Yanlış Not Girdiniz", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation)

End If

Catch

MsgBox("İzin Verilen Değerler Dışında Not Girdiniz", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation)

End Try

End Sub

End Class