Having a problem. Wrote program originally as VB Console using Sub procedures, had to change it to Function. It worked as sub procedures, but now as function it won't calculate correctly, I actually have two that are doing the same thing because of the procedure switch! Grr! Any suggestions?
Sub Main() 'Declarations Dim dblMidTerm As Double = 0 Dim dblFinal As Double = 0 Dim dblAvgTotal As Double = 0 'Calculate Average dblAvgTotal CalculateTotalAverage(dblMidTerm, dblFinal) ‘Display Average displayTotalAverage(dblAvgTotal) terminateProgram() End Sub Private Sub getExamGrades(ByRef dblMidTerm As Double, ByVal dblFinal As Double) Console.Write("What was your midterm exam numerical grade? ") dblMidTerm = CDbl(Console.ReadLine()) Console.Write("What was your final exam numerical grade? ") dblFinal = CDbl(Console.ReadLíne()) End Sub Private Function CalculateTotalAverage(ByVal dblMidTerm AS Double, ByVal dblFinal As Double) As Double Dim dblAvgTotal As Double = 0 dblAvgTotal = CDbl((dblMidTerm + dblFinal) / 2) Return dblAvgTotal End Function Private Sub displayTotalAverage(ByVal dblAvgTotal As Double) Console.WriteLine("The average of your midterm and Final grades is " & dblAvgTotal) Console.WriteLine() End Sub Private Sub terminateProgram() Console.WriteLine("Press the enter key to terminate program. ") Console. Read() End Sub End Module
Edited by Reverend Jim: fixed formatting