Imports System
Imports System.Text
Public Class Test
Public Shared Function flip_characters(s As String) As String
Dim len As Integer = s.Length
Dim sb As StringBuilder = new StringBuilder(s)
For i As Integer = 0 To len - 1
If (s(i) >= "A" And s(i) <= "Z") Then
sb(i) = Char.ToLower(s(i))
ElseIf (s(i) >= "a" And s(i) <= "z") Then
sb(i) = Char.ToUpper(sb(i))
End If
Next
return sb.ToString()
End Function
Public Shared Sub Main()
Dim s As String = "vB.Net pRograMMinG"
s = flip_characters(s)
Console.Write(s)
End Sub
End Class
' run:
'
' Vb.nET PrOGRAmmINg