by Spenser Newton (7 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 12th April 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This code can be used by many students because it averages the 2 quater grades in a semester plus the exam grade to give you your final grade.
VBcoders
Dim q1 As Single, q2 As Single, E As Single, final As Single
q1 = Val(txtq1)
q2 = Val(txtq2)
E = Val(txte)
final = ((q1 * 2) + (q2 * 2) + (E)) / 5
lblf = final
Printer.Print "Name, test average problem"
Printer.Print "Quater 1 grade was/is "; txtq1
Printer.Print "Quater 2 grade was/is "; txtq2
Printer.Print "The Exam grade was/is "; txte
Printer.Print "The average of the Grades was/is "; lblf
Printer.Print ""
End Sub
Private Sub cmdEnd_Click()
End
End Sub
No comments have been posted about This code can be used by many students because it averages the 2 quater grades in a semester plus t. Why not be the first to post a comment about This code can be used by many students because it averages the 2 quater grades in a semester plus t.