Imports System

Public Module Module1

    Public Sub Main()

        dim s as string = "ThinkDeeper.AimHigher!"

        console.Write("original string : " & s)

        console.WriteLine()

        console.WriteLine()

        console.WriteLine(s.length())

        console.WriteLine(s.toUpper())

        console.WriteLine(s.toLower())

        console.WriteLine(s(0) & s(1) & s(2) & s(3) & s(4))

        console.WriteLine(s(5) & s(6) & s(7) & s(8) & s(9) & s(10))

        console.WriteLine(s(12) & s(13) & s(14))

        console.WriteLine(s(15) & s(16) & s(17) & s(18) & s(19) & s(20))

        console.WriteLine(s.IndexOf(".") + 1)

        console.WriteLine(s.Replace("."," - "))

        dim snew as string

        for i = s.length - 1 to 0 step -1

            snew = snew + s(i)

        next

        console.WriteLine(snew)

    dim tnv as string   

    dim vowelList as string = "bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ"

    dim sOrig as string = s

    dim sRes as string

    for each c as Char In sOrig

    if vowelList.Contains(c)then

        sRes = sRes & c

    end if

next

tnv = sRes

console.writeline(tnv)  

    End Sub

End Module

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​