Imports System

Public Module Module1

    Public Sub Main()

        'String class program     Kiki N    5/12/2021

        dim strA as string 

        dim strstring as string 

        dim strB as string 

        console.WriteLine("Please choose a string funtion: C = compare, CT = concat, E = equals, IO = index of, I = insert, R = remove, RP = replace, L = ToLower, U = ToUpper, T = trim, TE = TrimEnd, TS = TrimStart")

        strstring = console.ReadLine()

        if strstring = "IO" then 

            console.WriteLine("Please enter your first word:")

            strA = console.ReadLine()

            console.WriteLine("Please enter a letter in the word above and find out it's index number")

            strB = console.ReadLine()

            dim intIndex as integer 

            intIndex = strA.IndexOf(strB) 'intIndex = 1

            console.WriteLine("the index number of " & strB & " is " & intIndex)

        elseif strstring = "C" then 

            console.WriteLine("enter your first word here: ")

            strA = console.ReadLine()

            console.WriteLine("enter your second word here: ")

            strB = console.ReadLine()

            if String.Compare(strA, strB) = 0 then 

                console.WriteLine(strA & " is equal to " & strB)

            elseif string.Compare(strA, strB) < 0 then 

                console.WriteLine(strA & " comes before " & strB)

            elseif string.Compare(strA, strB) > 0 then 

                console.WriteLine(strA & " comes after " & strB)

            end if 

        else if strstring = "CT" then 

                console.WriteLine("enter your first word here:")

                strA = console.ReadLine()

                console.WriteLine("enter your second word here:")

                strB = console.ReadLine()

                console.WriteLine(string.Concat(strA, strB))

            else if strstring = "E" then 

                console.WriteLine("enter your first word here:")

                strA = console.ReadLine()

                console.WriteLine("enter your second word here:")

                strB = console.ReadLine()

                    if strA.Equals(strB) then 

                        console.WriteLine("the strings are the same.")

                    else console.WriteLine("the strings are different.")

                    end if 

                else if strstring = "I" then 'insert

                console.WriteLine("enter your first word here:")

                strA = console.ReadLine() 

                        dim strinsert as string

                        dim intinsert as integer ' index place 

                        console.WriteLine("enter the letter you want to insert:")

                        strinsert = console.ReadLine()

                        console.WriteLine("enter the index place:")

                        intinsert = console.ReadLine()

                        console.WriteLine(strA.Insert(intinsert, strinsert))

                    else if strstring = "R"

        end if 

​

    End Sub

End Module