Imports System
Public Module Module1
Public Sub Main()
Dim Skyfall, Count, Total As Integer
Dim Average As Decimal
Count = 0
Total = 0
Console.WriteLine("Enter rainfall or -1 to stop")
Skyfall = Console.ReadLine()
Do While Skyfall >= 0
Count = Count + 1
Total = Total + Skyfall
Loop
If Count > 0 Then
Average = Total / Count
Else
Average = 0
End If
Console.WriteLine("Average = " & Average)
End Sub
End Module
