• Home
 · 
• Miscellaneous
 · 
• average temperature

average temperature

average temperature

Rate average temperature

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim intNbrToEnter As Integer
Dim intX As Integer
Dim lngTotTemp As Long
Dim dblAvgTemp As Double
intNbrToEnter = Val(InputBox("Number of temperatures to be entered:"))
If intNbrToEnter = 0 Then Exit Sub
ReDim aintTemperatures(1 To intNbrToEnter)
For intX = 1 To intNbrToEnter
aintTemperatures(intX) = Val(InputBox("Temperature #" & intX & ":"))
Print "Temperature #" & intX & ": " & aintTemperatures(intX)
lngTotTemp = lngTotTemp + aintTemperatures(intX)
Next
dblAvgTemp = lngTotTemp / intNbrToEnter
Print "The average temperature entered is " & Format$(dblAvgTemp, [format]vb,
"Fixed")