Imports System

Public Module Module1

    Public Sub Main()

        'Task1()

        'Task2()

        'Task3()

        'Task4()

    End Sub

    Public Sub Task1()

        Dim Day = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"}

        Dim num As Integer

        Console.WriteLine("Enter a number between 1 and 7 (inclusive) to find it's corresponding day!")

        num = Console.ReadLine() - 1

        For i = 0 To 6

            If num = i Then

                Console.WriteLine("Your day is: " & Day(i))

            End If

        Next

    End Sub

​

Public Sub Task2()

    Dim num1, num2 As Integer

        Console.WriteLine("Enter a number you want to count from")

        num1 = Console.ReadLine()

        Console.WriteLine("Enter a number you want to count to")

        num2 = Console.ReadLine()

        For x = num1 To num2

            Console.Write(x & ", ")

        Next

        Console.ReadLine()

End Sub

​

Public Sub Task3()

Dim array(9) As Integer

        For i = 0 To 9

            Console.WriteLine(array(i))

        Next

        Console.ReadLine()

End Sub

​

Public Sub Task4()

Dim array() = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}

        For i = 0 To 9

            Console.WriteLine(array(i))

        Next

        Console.ReadLine()

End Sub

End Module