Imports System

Imports Microsoft.VisualBasic   

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        task2()

    End Sub

    Private Sub task1()

        Dim First As String

        Dim last As String

        Dim c As char

        Console.WriteLine("first name")

        First = Console.ReadLine()

        Console.WriteLine("last name")

        last = Console.ReadLine()

        c= Left(First, 1)

        Console.WriteLine("{0} {1}", First, last) 'Abdul Sharif

        Console.WriteLine(c & " " & last) 'A Sharif

        Console.WriteLine("{0} , {1}", last, First) 'Sharif, Abdul

        Console.WriteLine("Mr {0} {1}", c & last) 'Mr A Sharif

        Console.WriteLine("Dear Mr " & last) 'Dear Mr Sharif

        Console.WriteLine("First name: {0}, Second name: {1}", First, last) 'First name: Abdul, Second name: Sharif 

        Console.WriteLine("{0} {1}", First, last.ToUpper()) 'Abdul SHARIF

    End Sub

    'bisnumber = boolean

    's = string

    ' n= integer

    'try 

    'n=s

    'bisnumber = true

    'catch

    'nisnumber = false

    'end try    

    'bisANumber=Integer.ParseInt(s,n)

    Private Sub task2()

    'one upper case letter • two lower case letters • three numerals (digits)

'   Dim bisnumber As Boolean

    dim ID as string

    dim cha(5) as integer

    dim i as integer =0

    dim format as boolean = false

    console.WriteLine("Input ID")

    ID = console.ReadLine()

        cha(0) = Asc( left(ID , 1))  'upper case letter

        cha(1) = Asc( mid(ID ,1, 1)) 'lower case letters

        cha(2) = Asc( mid(ID ,2, 1)) 

        cha(3) = Asc( mid(ID ,3, 1)) 'numerals

        cha(4) = Asc( mid(ID ,4, 1)) 

        cha(5) = Asc( right(ID , 1)) 

    do while format = false

            If cha(0) > 65 and cha(0)< 90 then

                If cha(1) > 65 and cha(1)< 90 then

                    for i = 1 to 3

                next

                    If cha(3) > 65 and cha(3)< 90 then

                        format = true

                    else

                        console.WriteLine("incorrect Format")

                    end if

                else

                    console.WriteLine("incorrect Format")

                end if

            else

                console.WriteLine("incorrect Format")

            end if

        '   select case     

        '   end select

    loop

        console.WriteLine("Correct Format")

    End Sub

​

End Module