Question

vb 大小写互相转换

我想单击按钮时，把text1里的内容大小写互换，即原来大写的转换为小写，原来小写的转换为大写。如何编写程序？

Answer 1

如果你的text1的内容里不是只有大小写英文，你可以用下面的代码
Dim s As String
Dim Result As String
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
If Asc(s) >= Asc("A") And Asc(s) <= Asc("Z") Then
s = Chr(Asc(s) + 32)
ElseIf Asc(s) >= Asc("a") And Asc(s) <= Asc("z") Then
s = Chr(Asc(s) - 32)
End If
Result = Result + s
Next
Text1.Text = Result

Answer 2

dim a1&,a2&,a3&,a4$
a1=len(text1.text)
for a2=1 to a1
a3=asc(mid(text1.text,a2,1))
if a3>64 and a3<91 then
a4=a4 & chr(a3 + 32)
end if
else

a4=a4 & chr(a3-32)
end if
exit sub
text1.text=a4

如果你的text1的内容里只有大小写英文，以上就可以。

Answer 3

p=Split(text1,"")
For i=0 to Ubound(p)
b$=b$ & m_Str(p(i))
Next i
text1=b$

写一个自定义函数m_Str(Str)判断和转化大小写：
Function m_Str(Byval Str As String)As String
if Ucase（Str）=Str Then’如果本身为大写
m_Str=Lcase（Str)'转为小写
Else
m_Str=Ucase（Str）'转为小写
End If
End Function

Answer 4

可以逐个检查字符的ASCII码,如果范围在小写字母之列的将它减32再转回字符,反之加32.

Answer 5

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
ss = Asc(Mid(Text1.Text, i, 1))
If ss > 96 And ss < 123 Then
ss = ss - 32
ElseIf ss > 65 And ss < 93 Then ss = ss + 32

End If
a = a & Chr(ss)
Next i
Text1.Text = a
End Sub