• Home
 · 
• Custom Controls/Forms/Menus
 · 
• this code allows you to compute the average grade of a student

this code allows you to compute the average grade of a student

this code allows you to compute the average grade of a student

Rate this code allows you to compute the average grade of a student

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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