Imports System

imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

        task1_1()

    end sub

    public sub task1_1()

​

        dim s1 as string = "First name: Abdul, Second name: Sharif"

        dim s2 as string

        console.writeline(s1.Substring(12,5) & " " & s1.substring(32,6))

        console.writeline(s1.substring(12,1) & " " & s1.substring(32,6))

        console.writeline(s1.substring(32,6) & ","  & s1.substring(12,5))

        s2 = Ucase(s1.substring(8,1))

        console.writeline(s2)

        end sub

End Module