• Home
 · 
• Math/Dates
 · 
• This code can be used by many students because it averages the 2 quater grades in a semester plus t

This code can be used by many students because it averages the 2 quater grades in a semester plus t

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.

Rate This code can be used by many students because it averages the 2 quater grades in a semester plus t

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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