I need to average the numbers in the array and display and also detemine the letter grade and display. I've managed to average the numbers but I am unable to display the lettergrade, (won't compile) I think it has to do with "Average Grade" being a constant string
This is the error I get "Conversion from string "Average grade: " to type 'Double' is not valid."
Please Help! Thank You.
Public Class Form1 Dim grades(0 To 4) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim prompt, title As String Dim i As Short prompt = "Enter the grade" For i = 0 To UBound(grades) title = "Grade " & (i + 1) grades(i) = InputBox(prompt, title) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim letterGrade As String Dim result As String Dim i As Short Dim total As Single = 0 result = "High temperatures for the week:" & vbCrLf & vbCrLf For i = 0 To UBound(grades) result = result & "Day " & (i + 1) & vbTab & _ grades(i) & vbCrLf total = total + grades(i) Next result = result & vbCrLf & _ "Average grade: " & Format(total / 5, "0.0") If "Average grade: " >= 90 Then letterGrade = "A" ElseIf "Average grade: " >= 80 Then letterGrade = "B" ElseIf "Average grade: " >= 70 Then letterGrade = "C" ElseIf "Average grade: " >= 60 Then letterGrade = "D" Else letterGrade = "F" End If result = result & vbCrLf & _ "Letter Grade: " & Format(letterGrade) TextBox1.Text = result End Sub