by mark ryan bergado (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 8th May 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
this code allows you to compute the average grade of a student
Dim grade As Integer
grade = txt1.Text / 5 + txt2.Text / 5 + txt3.Text / 5 + txt4.Text / 5 + txt5.Text / 5
lblgrade.Caption = grade
If grade >= 101 Then
MsgBox "AYAW NA LANG UG ESKWELA", vbInformation, "UG MU ESKWELA PA GANI KA ATIKON KA !!! hehehe"
lbltype.Caption = "atikon"
ElseIf grade = 100 Then
lbltype.Caption = "TSAMBA"
ElseIf grade >= 95 Then
lbltype.Caption = "EXCELLENT"
ElseIf grade < 95 >= 90 Then
lbltype.Caption = "VERYGOOD"
ElseIf grade >= 85 Then
lbltype.Caption = "GOOD"
ElseIf grade >= 75 Then
lbltype.Caption = "FAIR"
ElseIf grade < 75 Then
lbltype.Caption = "BAGSAK"
MsgBox "wa na kay pag-asa", vbCritical, "undang na lang"
End If
End Sub