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