by Muhammad Abubakar (6 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 22nd September 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Enter a sentence like "i am ready to chat online" and it'll change to "I Am ReAdY To cHaT OnLiNe" COOL !
Dim i As Integer, b As String
For i = 1 To Len(AnyStr)
Select Case i Mod 2
Case 0
AnyStr = Left(AnyStr, i - 1) + LCase(Mid(AnyStr, i, 1)) + Right(AnyStr, Len(AnyStr) - i)
Case 1
AnyStr = Left(AnyStr, i - 1) + UCase(Mid(AnyStr, i, 1)) + Right(AnyStr, Len(AnyStr) - i)
End Select
Next
UpDn = AnyStr
End Function
No comments have been posted about Enter a sentence like i am ready to chat online and it'll change to I Am ReAdY To cHaT OnLiNe C. Why not be the first to post a comment about Enter a sentence like i am ready to chat online and it'll change to I Am ReAdY To cHaT OnLiNe C.