Switch Case
Did you know that the capital letters are different from the small letters only by one bit? A = 01000001 while a = 01100000 the 3rd bit is the capitalization
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Private Sub Form_Load()
MsgBox SwitchCase("Sex") 'returns sEX
End Sub
Function SwitchCase(Text As String) As String
Dim i&, out$
For i = 1 To Len(Text)
out = out & Chr(Asc(Mid(Text, i, 1)) Xor 32)
Next
SwitchCase = out
End Function
Bình luận gốc (3)
Được khôi phục từ Wayback Machine