برنامج التقدير

[/color][/b]

[b][color=red]Private Sub Button1_Click()
Dim m As Double
m = 100 * (Val(TextBox1.Text)) \ (Val(TextBox2.Text))
If m < 30 And m >= 0 Then
Label3.Caption
= "verybad"
ElseIf m >= 30 And m < 50 Then
Label3.Caption
= "bad"
ElseIf m >= 50 And m < 65 Then
Label3.Caption
= "pass"
ElseIf m >= 60 And m < 75 Then
Label3.Caption
= "good"
ElseIf m >= 75 And m < 85 Then
Label3.Caption
= "verygood"
ElseIf m >= 85 And m <= 100 Then
Label3.Caption
= "exillent"[/color][/b]
[b][color=red]End If
End Sub[/color][/b]
[b][color=red]Private Sub TextBox1_KeyPress()
If keyascii >= 48 And keyascii <= 57 Or keyascii = vbkeyback Then
Exit Sub
keyascii = 0
Beep
End If[/color][/b]
[b][color=red]End Sub