Imports System
Public Module Module1
Public Sub Main()
Dim rainfall, counter, total as integer
Dim averagerainfall as decimal
Do
Console.WriteLine("Please enter the rainfall")
rainfall = Console.ReadLine()
counter = counter + 1
total = total + rainfall
Loop until rainfall = -1
total = total + 1
counter = counter - 1
averagerainfall = total / counter
Console.WriteLine("The average rainfall is " & averagerainfall)
End Sub
End Module
'Pseudocode
'----------
'INTEGER: rainfall, counter, total
'REAL: averagerainfall
'REPEAT
'OUTPUT "Please enter the rainfall"
'INPUT rainfall
'counter <- counter + 1
'total <- total + rainfall
'UNTIL rainfall <- -1
'total <- total + 1
'counter <- counter - 1
'averagerainfall <- total / number
'OUPUT "The average rainfall is " , averagerainfall
