Imports System

Public Module Module1

    Public Sub Main()

        question15()

    End Sub

    Sub question10()

        Dim time as integer

        Console.writeline("Input an hour of the day here. (24hour clock)")

        time=console.ReadLine()

        If (time>18 and time<20)

            console.writeline("time for dinner!")

        End if

    End sub

    Sub question11()

        For counter = 50 to 65

            Console.Writeline(counter)

        Next Counter

    End Sub

​

    Sub question12()

    Dim counter as integer

    For counter = 1 to 15

        If counter= 1 or counter = 10 then

            Console.Writeline("I love this number")

        Else

        Console.Writeline(counter)

        End if

    Next counter

    End Sub

​

    Sub question13()

        Dim age as integer

​

        Do

            Console.Writeline("Enter your age.")

            age=console.readline

        Loop Until age = 100

    End Sub

​

    Sub question14()

        Dim CD as integer

        Dim TV as integer

        Dim Xboxone as integer

        Dim hairdrier as integer

        Console.Writeline("Enter power rating of CD player here.")

        CD=console.Readline()

        Console.Writeline("Enter power rating of TV here.")

        TV=console.Readline()

        Console.Writeline("Enter power rating of Xbox One here.")

        xboxone=console.Readline()

        Console.Writeline("Enter power rating of hair drier here.")

        hairdrier=console.Readline()

​

        If CD+TV+xboxone+hairdrier>2000

            Console.Writeline("WARNING! The total power of devices you plugged into your adapter exceeds the maximum limit of 2000 Watts!")

        End If

    End Sub

​

    Sub question15()

        Dim winner as string

        Dim countforA as integer

        Dim countforB as integer

        countforA=0

        countforB=0

        Do 

            Console.Writeline("Enter the winner here.(A or B)")

            winner=console.readline()

        Loop Until winner = "X"   

        If winner="A"

            countforA= countforA +1

        ElseIf winner="B"

            countforB=countforB+1

        End if

        If winner ="X"then

        If countforA > countforB then

            console.Writeline("Congradulations player A! You won the game!")

        ElseIf countforB>countforA then

            console.Writeline("Congradulations player B! You won the game!")

        End If

        End if

    End Sub 

​

​

​

​

​

​

End Module