vb大小写转换的问题

来源：百度知道 编辑：UC知道 时间：2024/07/07 09:01:59
不是单独转成大写也不是单独转成小写，要求是混合转换，比如“hfgJUYGjHU”转换成"HFGjuygJhu"

拆散，逐个转换，然后组合。
Private Sub Command1_Click()
s = "hfgJUYGjHU"
Print s
s1 = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
s1 = s1 + UCase(ch)
ElseIf ch >= "A" And ch <= "Z" Then
s1 = s1 + LCase(ch)
End If
Next i
Print s1
End Sub