Subject: "An easier code"
Date: Sep 04 2011 at 9:50 am
In my country
is four
bimonthly
periods, notes
from the four
two-month
periods are
added together
and divided by
two, and that
is the final
grade. But I
wrote too with
the notes of A,
B, C, D and F.
Its
translated
Code:
Private Sub
Command1_Click(
)
Text5 =
(Val(Text1) +
Val(Text2) +
Val(Text3) +
Val(Text4)) /
4
If Text5 <=
20 Then
Text6 =
"A"
End If
If Text5 <=
15 Then
Text6 =
"B"
End If
If Text5 <=
11 Then
Text6 =
"C"
End If
If Text5 <=
5 Then
Text6 =
"D"
End If
If Text5 <=
0 Then
Text6 =
"F"
End If
End Sub