I want to apply an array to my project.

[vargf]

Now I want to access all data via Array I inisialized the Array with all my grades for exemple:
'Declare variable Global here
'to add the txtInputScore with btnRadioInputExtraCredit
'all radio buttoms.
'I inisialized the array. now I want to put at th bottom of the
'if...Then statement go and check is with an asterisk*.
Dim txtListGrades() AsString = {"A+", "A", "B", "C", "D", "F"}
Dim eachGrade AsInteger
Dim addFinalGrade AsInteger
PrivateSub displayFormTestGrader_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
EndSub
PrivateSub btnClickComputeGrade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClickComputeGrade.Click
'eachGrade = txtOutPutFinalScore.Text
'Assign a variable to output the final score.
'The txtInputScore is NumericUpDown to get score 0 to 100 maximun.
addFinalGrade = txtInputScore.Text
'This is to put the cursor back on the numericupdown.
txtInputScore.Focus()
'This section is about the radionbuttons
'this radiobuttoms add or subtract points to the NumericUpdown
If btnRadioInputExtraCredit1.Checked = TrueThen
addFinalGrade += 0
EndIf
If btnRadioInputExtraCredit2.Checked = TrueThen
addFinalGrade += 3
EndIf
If btnRadioInputExtraCredit3.Checked = TrueThen
addFinalGrade += 5
EndIf
If btnRadioInputTimeLess4.Checked = TrueThen
addFinalGrade -= 0
EndIf
If btnRadioInputTimeLess5.Checked = TrueThen
addFinalGrade -= 3
EndIf
If btnRadioInputTimeLess6.Checked = TrueThen
addFinalGrade -= 5
EndIf
Here is the if...Then stament I want to do the array
txtListGrades(0) = "eachGrade"
*If addFinalGrade <= addFinalGrade And addFinalGrade >= addFinalGrade Then
txtOutPutFinalScore.Text = "eachGrade"
EndIf
I want to do the array because I want to avoid the following.
and just with a single statement and the array will be posible.


If addFinalGrade <= 105 And addFinalGrade >= 101 Then
txtOutPutFinalScore.Text = "A+"
Else
If addFinalGrade <= 100 And addFinalGrade >= 90 Then
txtOutPutFinalScore.Text = "A"
Else
If addFinalGrade <= 89 And addFinalGrade >= 80 Then
txtOutPutFinalScore.Text= "B"
Else
If addFinalGrade <= 79 And addFinalGrade >= 70 Then
txtOutPutFinalScore.Text= "C"
Else
If addFinalGrade<= 69 And addFinalGrade >= 60 Then
txtOutPutFinalScore.Text = "D"
Else
If addFinalGrade <= 59 And addFinalGrade >= 0 Then
txtOutPutFinalScore.Text = "F"
Else
txtOutPutFinalScore.Text = "I"
End If
End If
End If
End If
End If
End If
EndIf
EndSub
can any body help to me thanks.

 

[JohnH]

I can't see how any use of a grades array will simplify letter assignment for the grade range cases.
Wasn't this simple and easy enough solution?: http://www.vbdotnetforums.com/showthread.php?t=8169