主题：新手请教有关大小写字母互换的问题
luo1353167
[专家分：0] 发布于 2008-09-20 12:54:00
[color=00FF00][size=3][b] 本人是刚刚接触VB.net的学生，对于很多基础知识都不是很了解，如果问题很简单的话请不要笑话[em12]
这是一个又关字母大小写互换的问题，例如 我要讲AbCcdD换成aBcCDd,总之就是遇到大写换成小写的，遇到小写的换成大写的。
我在百度里找了好久都么找到又关这样的问题的解答，也许这是很基础的问题，请高手们赐教！！！[em1][/b][/size][/color]
回复列表 （共2个回复）
沙发
joforn [专家分：1460] 发布于 2008-09-20 13:17:00
'此代码是VB代码，VB.net自行参考修改
Option Explicit
Private Sub Form_Load()
Debug.Print RevSTR("AbcdEfGHZ0z1 q`1*&^%$#@!~_-+=|\")
End Sub
Private Function RevSTR(ByVal STR1 As String) As String
Dim ByteD() As Byte
Dim I As Long
On Error Resume Next
ByteD = StrConv(STR1, vbFromUnicode)
For I = 0 To UBound(ByteD)
Select Case ByteD(I)
Case &H41 To &H5A, &H61 To &H7A: ByteD(I) = ByteD(I) Xor &H20
End Select
Next I
RevSTR = StrConv(ByteD, vbUnicode)
End Function
板凳
一江秋水 [专家分：9680] 发布于 2008-09-20 17:22:00
也可以判断字符的ASCII码：
Private Sub Command1_Click()
Dim i As Integer, z As Integer, st As String
For i = 1 To Len(Text1)
z = Asc(Mid(Text1, i, 1))
Select Case z
Case 97 To 122: z = z - 32
Case 65 To 90: z = z + 32
End Select
st = st & Chr(z)
Next
Text1 = st
End Sub
我来回复
您所在位置：