I am having an error displaying wether the grade is above, equal or below.
When using a Sub I get this error: "Expression does not produce a value", and when using a Function, I get this error: "Operator '<' is not defined for type 'Integer()' and type 'Integer'".
Any help would be greatly appreciated.
Here is my code:
Module Module1
Sub Main()
Dim Student() As String = {"Fred", "Jack", "Chris", "Ali", "Harry", "Bill", "Zak", "Phil"}
Dim Mark() As Integer = {"67", "25", "92", "49", "38", "72", "99", "54"}
Dim Average As Integer = (Mark(0) + Mark(1) + Mark(2) + Mark(3) + Mark(4) + Mark(5) + Mark(6) + Mark(7)) / 8
AverageCalc(Average, Mark)
For x = 0 To 7
Console.WriteLine(Student(x) & " " & Mark(x) & " - " & AverageCalc(Average, Mark))
Next
Console.ReadLine()
'Dim Average As Integer = (Mark(0) + Mark(1) + Mark(2) + Mark(3) + Mark(4) + Mark(5) + Mark(6) + Mark(7)) / 8
Console.WriteLine(Average)
End Sub
Sub AverageCalc(Average, Mark)
Do
If Mark < Average Then
Console.WriteLine("Lower than average")
If Mark = Average Then
Console.WriteLine("Same as average")
If Mark > Average Then
Console.WriteLine("Higher than average")
End If
End If
End If
Loop
End Sub
End Module

New Topic/Question
Reply




MultiQuote




|