Imports System
Public Class Program
Public Shared Function swap(ByVal s As String, ByVal i As Integer, ByVal j As Integer) As String
Dim charArray As Char() = s.ToCharArray()
Dim temp As Char = charArray(i)
charArray(i) = charArray(j)
charArray(j) = temp
Return New String(charArray)
End Function
Public Shared Sub Main()
Dim s As String = "abcd"
s = swap(s, 0, 2)
Console.Write(s)
End Sub
End Class
' run:
'
' cbad
'