Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim number1 as integer

        dim number2 as integer

        dim Kelvin as integer

        dim Guess as integer

        dim AverageTempInAutumn as integer = 293

        console.writeline("please enter the temperature in celsius degree")

        number1 = console.ReadLine()

        number2 = number1 + 273

        Kelvin = number2

        console.WriteLine("degree of temperature in kelvin is " & Kelvin)

        Console.WriteLine("please guess the average temperature in Kelvin in Autumn in Suzhou")

        guess = console.readline

        Do until guess = 293

            if guess = AverageTempInAutumn then

                console.WriteLine("Congratulations! You've got the correct answer.")

            end if

             if guess > AverageTempInAutumn then

                    console.WriteLine("Sorry, but your answer is larger than the correct answer. Please try again.")

            else console.writeline("Sorry, but your answer is smaller than the correct answer. Please try again.")

            end if

        loop

    End Sub

End Module

​