​

​

           Imports System

Public Module Module1

    Public Sub Main()

print("THERE ARE FOUR TASKS WHICH TASK YOU WANT TO DO.. CHOOSE THE NUMBER BETWEEN 1 TO 5")

​

            Dim task As Integer = Console.ReadLine()

​

​

​

            Select Case task

​

                Case 1 'task 1'

​

                    Dim days As String() = {"Monday", "tuesday", "wednesday", "thursday", "friday", "saturday", "sunday"}

​

​

                    Console.WriteLine("Input an integer between 1 to 7")

                    Dim input As Integer '= console.readline()

                    input = Console.ReadLine

                    If input = 0 Then

                        Try

                            print("enter number from 1 to 7")

                            input = Console.ReadLine

                        Catch

                        End Try

                    End If

                    print(days(input - 1))

                    print("End of task 1")

​

                Case 2 'task 2'

                    Dim element(12) As Integer

                    Dim i As Integer

                    For i = 0 To 12

                        'for i as integer = 0 to element.length()

                        element(i) = i + 1

                        print(element(i))

                    Next

                Case 3 ' task 3

                    Dim n1, n2 As Integer

                    print("INPUT FIRST POSTIVE INTEGERS")

                    n1 = Console.ReadLine

                    print("INPUT THE SECOND POSTIVE INTEGER")

                    n2 = Console.ReadLine

                    Dim input2 As Integer

                    Dim f As Integer

​

                    For f = n1 To n2

                        input2 = f + 1

                        print(f)

                    Next

                Case 4

                    Dim input As String = Console.ReadLine()

                    Dim nextchar As String

                    input = (input - 1)

                    nextchar = (input - 1)

                    print(nextchar)

​

​

                Case 5

                 Dim h As Boolean = False

                Dim registration As String

                Do

                    print("INPUT CHARACTER WHICH IS ATLEAST SIX OR NINE CHARACTERS LONG")

                    registration = Console.ReadLine

​

                    If registration.Length >= 6  and registration.Length <= 9 and registration = UCase(Left(registration, 3)) Then 

​

                        print("THAT'S VALID")

                          h = false

                    ElseIf Not registration.Length >= 6 And registration.Length <= 9 and not registration = UCase(Left(registration, 3))Then

​

                        print("Invalid")

                        h = false

                    End If

                Loop Until h = True

​

​

​

​

            End Select

​

​

​

​

​

        End Sub

        Sub print(p)

            Console.WriteLine(p)

        End Sub

End Module

​