Well, I think I can give you an idea of where to start.
I made this GPA program. It takes the average of grades. It also keeps track of if the grade was male or female.(Not that the gender would help you in this program.)
Note: It will make an average of grades not just limited to GPA standards.
CODE
Public Class MainForm
Dim GPA As Decimal
Dim MaleTotal As Decimal
Dim FemaleTotal As Decimal
Dim Total As Decimal
Dim TotalAvg As Decimal
Dim MaleAvg As Decimal
Dim FemaleAvg As Decimal
Dim Male As Integer
Dim Female As Integer
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
'declare
GPA = CDec(Val(Me.txtGPA.Text))
If Me.radMale.Checked = True Then
'Add GPA to Male Total
MaleTotal = (MaleTotal + GPA)
Total = (Total + GPA)
Male = (Male + 1)
'Calculate Averages
TotalAvg = (Total / (Male + Female))
MaleAvg = (MaleTotal / Male)
Else
If Me.radFemale.Checked = True Then
'Add GPA to Female Total
FemaleTotal = (FemaleTotal + GPA)
Total = (Total + GPA)
Female = (Female + 1)
'Calculate Averages
TotalAvg = (Total / (Male + Female))
FemaleAvg = (FemaleTotal / Female)
End If
End If
'Display GPA
Me.lblTotalAverage.Text = TotalAvg.ToString
Me.lblTotalMale.Text = MaleAvg.ToString
Me.lblTotalFemale.Text = FemaleAvg.ToString
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
This might get you headed in the right track.
| 