Imports System

​

Public Module RainDetector

​

    Public Sub Main()

        Dim cat As Integer = 69

        Dim dog As String = 30

        Console.WriteLine("How wet is it today in cats?")

        cat = Console.ReadLine()

        Console.WriteLine("On a scale of 1 to 100 dogs, do you think today will rain?")

        dog = Console.ReadLine

        If dog >= 25 And cat > 69 Then

            For i = 1 to 50

​

                Console.WriteLine("It's raining cats and dog!")

            Next

        console.WriteLine("Furry rules")

​

        Else

        Console.WriteLine("It will not rain")

        End If

    End Sub

End Module

​

​