Imports System

Public Module Module1

    Public Sub Main()

        ' Program: weather    Kiana N     03/08/21

        dim i as integer 

        dim inttemp as integer 

        dim tottemp as integer 

        do 

            console.WriteLine("Enter the high temperature for today", "Daily Temperature")

            inttemp = console.ReadLine()

            i += 1 ' counter variable

            tottemp = tottemp + inttemp 'accumulator variable 

        loop while i<5

            console.WriteLine("the average temperature is " & tottemp/5)

    End Sub

End Module