Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim lo_temp as decimal = 36.0

        dim hi_temp as decimal = 37.5

        dim start_time(0 to 18) as decimal

        dim baby_temp(0 to 18) as decimal

        dim comment(0 to 18) as string

        dim medication(0 to 18) as string

        dim status(0 to 18) as string

        dim counter as integer

        for counter = 1 to 2

        console.Write("Enter Temperature") : console.WriteLine(counter)

            baby_temp(counter) = console.ReadLine()

            If baby_temp(counter) < lo_temp then

                status(counter) = "|Temperature is Low, "

                comment(counter) = "Call Doctor"

                medication(counter) = "give medication based on doctor's recommendation"

            else if baby_temp(counter) > hi_temp then

                status(counter) = "|Temperature is High, "

                comment(counter) = "Call Doctor, "

                medication(counter) = "give medication based on doctor's recommendation"

            else

                status(counter) = "|Temperature is Optimum,"

                comment(counter) = " No need to Call Doctor,"

            end if

        next

​

        for counter = 1 to 2

        console.write(baby_temp(counter)) : console.Write(status(counter)) : console.WriteLine(comment(counter))

        next

    End Sub

End Module

​