vb中字母大小写转换的三种方法

《vb中字母大小写转换的三种方法》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB中字母大小写互换的三种方法方法一：用VB的函数LCase和UCase用三个TextBox来展现一下这两个函数的大小写转换功能[运行之前在TextBox1中输入几个大写字母，也可混合输入]：PrivateSubCommand1_Click()Text2.Text=LCase(Text1.Text)注释：将Text1的文本全换成小写Text3.Text=UCase(Text2.Text)注释：将Text1的文本全换成大写EndSub说明：LCase仅将是大写的转换为小写，UCase则仅将是小写的转换为大写，故当字符串中有其它不符合转换的内容时将对其忽略。可以在TextBox1中

2、输入汉字、阿拉伯数字等观察效果。方法二：用API函数user32提供两个用于大小写转换的API函数：Charlower[大写-小写]、Charupper[小写-大写]，其原形分别为：DeclareFunctionCharLowerLib"user32"Alias"CharLowerA"(ByVallpszAsString)AsLongDeclareFunctionCharUpperLib"user32"Alias"CharUpperA"(ByVallpszAsString)AsLong继续用三个文本框来观察效果：PrivateSubCommand1_Click()DimaAsS

3、tringa=Text1.Text注释：给变量赋初值CharUppera注释：变为大写Text2.Text=aCharLowera注释：变为小写Text3.Text=aEndSub说明：与方法一的效果完全一样。实际上，VB的LCase和UCase函数调用的也就是这两个API函数，是封装了这两个API函数的内部函数。方法三：用算法可以利用Ascii码对大小写字母字符代码的定义来强制输入的字母只能为大写的或者小写的，而不管CapsLock键是打开的还是关闭的。就象安装Windows时用户输入CD-KEY一样。请看：PrivateSubText1_KeyPress(KeyAsciiA

4、sInteger)注释：输入的字母通通为小写IfKeyAscii>64AndKeyAscii<91ThenKeyAscii=KeyAscii+32EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)注释：输入的字母通通为大写IfKeyAscii>96AndKeyAscii<123ThenKeyAscii=KeyAscii-32EndSub说明：在Ascii字符集里，大写A--Z对应于字符代码65--90，小写a--z对应于97--122。以A为例，小写a[95]与大写A[65]的字符代码相差32，其它字母也是如此。当然可以借此编制一

5、个函数来完成象方法一、二一样将字符串进行大小写互换，略显复杂些，也没什么必要。