عرض التقديرات بمجرد كتابة الدرجة

[أسماء]

:jester:
كود للإظهار التقديرات
Private Sub Text5_Change()
If Val(Text5.Text) > 100 Or Val(Text5.Text) < 0 Then
MsgBox "خطأ فى النتيجة"
Text3.Text = 0
Text4.Text = 0
Text3.SetFocus
Else
g! = Val(Text5.Text)
If g! >= 0 And g! < 50 Then
Text7.Text = "ضعيف"
End If
If g! >= 50 And g! < 65 Then
Text7.Text = " مقبول "
End If
If g! >= 65 And g! < 75 Then
Text7.Text = "جيد "
End If
If g! >= 75 And g! < 85 Then
Text7.Text = "جيدجدا"
End If
If g! >= 85 And g! <= 100 Then
Text7.Text = "&atilde;&atilde;&Ecirc;&Ccedil;&Ograve;"
End If
End If
End Sub