str="Capegemini"
strfinaltext=""
For i = 1 To len(str) Step 1
If i mod 2 <>0 Then
strfinaltext=strfinaltext+ ucase(mid(str,i,1))
Else
strfinaltext=strfinaltext+lcase(mid(str,i,1))
End If
Next
msgbox strfinaltext 'CaPeGeMiNi
strfinaltext=""
For i = 1 To len(str) Step 1
If i mod 2 <>0 Then
strfinaltext=strfinaltext+ ucase(mid(str,i,1))
Else
strfinaltext=strfinaltext+lcase(mid(str,i,1))
End If
Next
msgbox strfinaltext 'CaPeGeMiNi
No comments:
Post a Comment