vb中字母大小写转换的三种方法
学会这几个函数，文本大小写字母自由转换！
学会这几个函数，文本大小写字母自由转换！
行云里讲堂（ID:xingyunli2022）
践行终身学习，专注个人提升。
整理编辑：枏北
01
小写字母转大写
UPPER函数是一种用来将文本中的带小写字母的字符串全部转换为大写字母的函数。
其语法为：UPPER（文本）。
参数文本表示：需要转换的带小写字母的字符串所在的文本。
备注：UPPER函数不改变文本中的非字母的字符，也不改变原本就是大写的字母。
02
大写字母转小写
LOWER函数是一种用来将文本中的带大写字母的字符串全部转换为小写字母的函数。
其语法为：LOWER（文本）。
参数文本表示：需要转换的带大写字母的字符串所在的文本。
备注：LOWER函数不改变文本中的非字母的字符，也不改变原本就是小写的字母。
03
首字母大写
PROPER函数是一种将文本字符串的首字母及任何非字母字符之后的首字母转换成大写，将其余的字母转换成小写的函数。
其语法为：PROPER（文本）。
参数文本表示：需要转换的带字母的字符串所在的文本。
备注：PROPER函数不改变文本中的非字母的字符。
以上。
vb常用字符串操作
1. ASC(X)，Chr(X)：转换字符字符码[格式]：P=Asc(X) 返回字符串X的第一个字符的字符码P=Chr(X) 返回字符码等于X的字符[范例]：(1)P=Chr(65)… 输出字符A,因为A的ASCII码等于65(2)P=Asc(“A”)… 输出652. Len(X)：计算字符串X的长度[格式]：P=Len(X)[说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。
[范例]：(1) 令X=”” (空字符串)Len(X) 输出结果为0(2) 令X=”abcd”Len(X) 输出结果为4(3) 令X=”VB教程”Len(X) 输出结果为43. Mid(X)函数：读取字符串X中间的字符[格式]：P=Mid(X,n)由X的第n个字符读起，读取后面的所有字符。
P=Mid(X,n,m)由X的第n个字符读起，读取后面的m个字符。
[范例]：(1) X=”abcdefg”P=Mid(X,5)结果为：P=”efg”(2) X=”abcdefg”P=Mid(X,2,4)结果为P=”bcde”4. Replace: 将字符串中的某些特定字符串替换为其他字符串[格式]：P=Replace(X,S,R)[说明]：将字符串X中的字符串S替换为字符串R，然后返回。
[范例]：X=”VB is very good”P=Replace(X,good,nice)输出结果为：P=”VB is very nice”5. StrReverse：反转字符串[格式]：P=StrReverse(X)[说明]：返回X参数反转后的字符串[范例]：（1）X=”abc”P=StrReverse(X)输出结果：P=”cba”6. Ucase(X)，Lcase(X)：转换英文字母的大小写[格式]：P=Lcase(X)… 将X字符串中的大写字母转换成小写P=Ucase(X)… 将X字符串中的小写字母转换成大写[说明]：除了英文字母外，其他字符或中文字都不会受到影响。
vb中数字变成大写
设a="Visual Basic"
Left(a,9) =>"Visual Ba"
注：所有的取值函数都要把空格计算上
返回Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
语法
InStr([start, ]string1, string2[, compare])
Dim MyDouble, MyInt
MyDouble = 2345.5678 ' MyDouble为Double类型。
MyInt =CInt(MyDouble) ' MyInt的值为2346。
"123.4"是字符串形式，有5个字节，val（）是一个把字符串转化为整形的函数，str（）又是一个把数字类型转化为字符串的函数，len（）也是一个函数，它返回字符串的长度。所以答案是：5
ByVal的含义是使用值传递，而不是地址传递
Function c(byval a as intger, b as intger)as intger
c= a + b
End Function
使用
print c(1,2)
回答者：bxworks-五级2007-6-23 19:50
ByVal按值传递(ByValue),意思是传入的形式参数改变了,但是不影响实际参数的数值
'从第一个字符开使，以二进制比较的方式找起。返回值为9（大写P）。
'小写p和大写P在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
'缺省的比对方式为二进制比较（最后一个参数可省略）。
vb大小写转换函数
vb大小写转换函数在VB语言中，可以使用内置的函数来实现大小写转换。
具体来说，有两个主要的函数可用于字符串的大小写转换：ToUpper和ToLower。
1. ToUpper函数将字符串转换为大写形式。
它的基本语法如下：```vbDim result As String = myString.ToUpper()```这将把myString字符串中的所有字符转换为大写形式，并将结果存储在result变量中。
示例：```vbDim myString As String = "Hello World!"Dim result As String = myString.ToUpper()Console.WriteLine(result)'输出: HELLO WORLD!```2. ToLower函数将字符串转换为小写形式。
它的基本语法如下：```vbDim result As String = myString.ToLower()```这将把myString字符串中的所有字符转换为小写形式，并将结果存储在result变量中。
示例：```vbDim myString As String = "Hello World!"Dim result As String = myString.ToLower()Console.WriteLine(result)'输出: hello world!```这两个函数对于将字符串转换为大写或小写形式非常方便。
他们可以用于处理用户输入、进行字符串比较以及其他一些需要不考虑大小写的字符串操作。
除了以上提到的函数，还可以使用一些字符串操作的技巧来进行大小写转换。
以下是一些常用的方法：1.使用Mid函数和ASC函数进行字符转换。
首先，使用Mid函数获取字符串中的每个字符，然后使用ASC函数获取字符的ASCII码。
如果ASCII码在65到90之间，则是大写字符；如果在97到122之间，则是小写字符。
VB录入字母大写自动转换成小写及小写自动转换成大写
VB录入字母大写自动转换成小写及小写自动转换成大写
要自动转换大小写，很多人首先想到的一定是 UCase$ 及 LCase$，但是要使用这二个函数，一定不可以在Key_Press 事件中使用，否则您若输入《abc》，结果却变成《CBA》，为什么呢？
因为当您输入 a 之后，UCase$ 会替您转换成 A，但是转换完后，滑鼠的游标会停在 A 的前面，您继续输入 b，变成了 bA，UCase$ 又替您转换成 BA，转换完后，滑鼠的游标又停在 BA 的前面，您继续输入c，变成了cBA，UCase$ 又替您转换成CBA！若您不相信，可以自己试试
在Key_Press 中正确的作法，是判断它的参数KeyAscii ！a 的Asc 值是 97，A 的 Asc 值是 65，所以要自动将小写转成大写，写法如下：
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then
KeyAscii = KeyAscii - 32
End If
相反的，自动将大写转换成小写：
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then
KeyAscii = KeyAscii + 32
End If。
VB第2章《Visual Basic编程语言》 总结
VB第2章《Visual Basic编程语言》总结(一)一、数据类型(1)字符串型：定长字符串：String*n变长字符串：String，一个字符2个字节，尾符$(2)数值型：整型：Integer，2字节，－32768～＋32767，尾符%长整型：Long，4字节，尾符&单精度型：Single，4字节，尾符！双精度型：Double，8字节，尾符#货币型：Currency，8字节，尾符@(3)字节型：Byte，1字节，0～255非负整数(4)变体型（可变型）：Variant，可存放任意类型，并随之改变类型(5)布尔型：Boolean，2字节，值为True或False(6)日期型：Date，8字节(7)对象型：Object，4字节，对对象（控件）的引用二、常量（名词解释）程序执行过程中，其值始终保持不变的量称为常量。
1、一般常量（简答）字符串常量数值常量布尔型常量日期型常量2、符号常量（名词解释）符号常量是在程序中用标识符表示的一些永远不变的常数或字符串。
分为系统内部定义的符号常量和用户定义的符号常量。
用户定义的符号常量可以用Const语句来声明，语法格式如下。
Const 常量名 [As 类型] = 常量表达式3、Print语句[对象名称.]Print [表达式] [,|;] [表达式] [,|;] …4、标识符命名规则（简答）标识符必须以字母开头。
最大长度为255。
标识符不能使用Vsiual Basic的保留字（关键字）。
不能包含在Vsiual Basic中有特殊含义的字符如：句号、空格、类型说明符、运算符等。
Vsiual Basic的标识符不区分大小写。
标识符在标识符的同一范围内必须是唯一的。
在Vsiual Basic中，符号常量名、变量名、过程名、记录类型名、元素名等名称都必须遵循上述命名规则。
三、变量1、变量（名词解释）程序执行过程中，其值可以改变的量。
变量声明语句：Dim 变量名 As 类型，……2、赋值语句[Let] 变量名 = 表达式3、注释语句Rem|' [注释文本]4、结束语句EndUnload <对象名称>5、语句书写格式（简答）不区分大小写；VB对关键字有自动转换大小写功能。
vb中各关键字用法及意义
（一）类型转换类函数1. CType(X)[格式]：P=CBool(X) ' 将X转换为“布尔”（Boolean）类型P=CByte(X) ' 将X转换为“字节”（Byte）类型P=CCur(X) ' 将X转换为“金额”（Currency）类型P=CDate(X) ' 将X转换为“日期”（Date）类型P=CDbl(X) ' 将X转换为“双精度”（Double）类型P=CInt(X) ' 将X转换为“整型”（Integer）类型P=CLng(X) ' 将X转换为“长整型”（Long）类型P=CSng(X) ' 将X转换为“单精度”（Single）类型P=CStr(X) ' 将X转换为“字符串”（String）类型P=Cvar(X) ' 将X转换为“变体型”（Variant）类型P=CVErr(X) ' 将X转换为Error值[ 范例]：(1). CStr(13)+CStr(23)' 数值转换成字符串后，用"+"号连接，结果：1323(2). CInt("12")+12' 字符串转换成整型后与12相加，结果：24(3). P=CInt(True)' 输出结果为-1' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0(4). CBool(-0.001)' 输出结果为True' 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) ' 取<=X的最大整数值P=Fix(X) ' 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6) ' 结果为-55，取<=-54.6的最大整数(2) Fix(54.6) ' 结果为54，取整数并直接去掉小数（二）常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N)] 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数' 说明：取正负号。
vb中将数字变成大写的
Print d
End Sub
灵活地应用以上的函数，可以大大地简化你的程序。例如想计算10000秒等于几小时几分几秒可写为：
Private Sub Form_Click()
Dim d As Date
d = TimeSerial(0, 0, 10000)
Print d
End Sub
结果为2:46:40。
vbTextCompare 1执行一个按照原文的比较。
vbDatabaseCompare 2仅适用于Microsoft Access，执行一个基于数据库中信息的比较。
返回值
如果InStr返回
string1为零长度0
string1为Null Null
string2为零长度Start
string2为Null Null
right和left函数正确的使用方法是：
Ritght(a,M)从右Fra bibliotek开始取值，取的位数为M位
举例：
设a="Visual Basic"
Ritght(a,3) =>"sic"
（它只有一个参数，Right（a,M，N）是一种错误的写法！）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Left（a,N）从左边开始取值，取得位数为N位
ByVal的含义是使用值传递，而不是地址传递
Function c(byval a as intger, b as intger)as intger
c= a + b
End Function
使用
print c(1,2)
回答者：bxworks-五级2007-6-23 19:50
VB中字母大小写转换的三种方法
VB中字母大小写转换的三种方法方法一：用VB的函数LCase和UCase用三个TextBox来展现一下这两个函数的大小写转换功能[运行之前在TextBox1中输入几个大写字母，也可混合输入]：PrivateSubCommand1_Click()Text2.Text=LCase(Text1.Text)'将Text1的文本全换成小写Text3.Text=UCase(Text2.Text)'将Text1的文本全换成大写EndSub说明：LCase仅将是大写的转换为小写，UCase则仅将是小写的转换为大写，故当字符串中有其它不符合转换的内容时将对其忽略。
可以在TextBox1中输入汉字、阿拉伯数字等观察效果。
方法二：用API函数user32提供两个用于大小写转换的API函数：Charlower[大写-小写]、Charupper[小写-大写]，其原形分别为：DeclareFunctionCharLowerLib"user32"Alias"CharLowerA"(ByVallpszAsString)AsLongDeclareFunctionCharUpperLib"user32"Alias"CharUpperA"(ByVallpszAsString)AsLong继续用三个文本框来观察效果：PrivateSubCommand1_Click()DimaAsStringa=Text1.Text'给变量赋初值CharUppera'变为大写Text2.Text=aCharLowera'变为小写Text3.Text=aEndSub说明：与方法一的效果完全一样。
实际上，VB的LCase和UCase函数调用的也就是这两个API函数，是封装了这两个API函数的内部函数。
方法三：用算法可以利用Ascii码对大小写字母字符代码的定义来强制输入的字母只能为大写的或者小写的，而不管CapsLock键是打开的还是关闭的。
VB6.0小写金额转大写金额
NumToStr = CCh(Mid(NumBer, Len(NumBer) - 2, 1)) & "佰" & NumToStr
End If
oldXX = nowXX
'千位
If Len(NumBer) < 4 = Mid(NumBer, Len(NumBer) - 3, 1)
VB6.0小写金额转大写金额
因票据打印的需要，在网上搜罗许久，找到的代码均不如意，于是干脆自己编写一个，并发布出来，也许对他人有点帮助。
一、控件：一个TextBox，三个CommandButten（转换、清屏、退出），一个ListBox
二、说明：之所以用ListBox来存储结果，是为了便于校验转换对错，用户根据需要改变。本程序不能处理位数大于千亿的数字。
Else
If InStr(NumToStr, "亿") > 0 Then
NumToStr = CCh(Mid(NumBer, Len(NumBer) - 10, 1)) & "佰" & NumToStr
Else
NumToStr = CCh(Mid(NumBer, Len(NumBer) - 10, 1)) & "佰亿" & NumToStr
If nowXX = "0" Then
If oldXX <> "0" Then NumToStr = "零" & NumToStr
Else
If InStr(NumToStr, "万") > 0 Then
NumToStr = CCh(Mid(NumBer, Len(NumBer) - 7, 1)) & "仟" & NumToStr
VB函数说明及使用方法
c、Lock Read:不允许其他进程读该文件。只在没有其他Read存取类型的进程访问该文件时，才允许这种锁定。
d、Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时，才允许这种锁定
10、Write #文件号，表达式表…：作用同Print
11、Input #文件号，变量表….：读顺序文件，进行与Print相反的操作
12、Line Input #文件号，字符串变量：从顺序文件中读入一行
13、Input$(n,#文件号)：从顺序文件读出n个字符的字符串
14、Put #文件号，[记录号]，变量：把除对象变量和数组变量外的任何变量（包括号含有单个数组元素的下标变量）的内容写入随机文件。
MsgBox(msg,[type]…)
跳出一个提示窗口
文本操作函数
1、Open文件名[For方式] [Access存取类型] [锁定] AS [#]文件号[Len=记录长度]
功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式
说明：
1)方式：指定文件的输入输出方式，可选,默认是Random,可以是以下值
5、FreeFile():取得一个未使用的文件号
6、Loc(文件号)：返回指定文件的当前读写位置
7、LOF（文件号）：返回文件长度
8、EOF（文件号）：用来测试文件是否结束，结束返回true
9、Print #文件号，变量1，变量2，…变量n:按顺序将各变量的值写入顺序文件
如果是print #文件号，则写入空行
a、Output:指定顺序输出方式，将覆盖原有内容
b、Input:指定顺序输入方式
VB6.0怎么设置字体格式？vb6.0设置字体大小的教程
VB6.0怎么设置字体格式？vb6.0设置字体⼤⼩的教程VB6.0代码编辑器想要设置字体的⼤⼩，该怎么设置呢？下⾯我们就来看看详细的教程。
Visual Basic 6.0 精简安装版
类型：编程⼯具
⼤⼩：5.86MB
语⾔：简体中⽂
时间：2014-08-25
查看详情
1、单击开始---->所有程序---->Microsoft Visual Basic 6.0 中⽂版，选择Microsoft Visual Basic 6.0 中⽂版，打开VB软件。
2、默认情况下的VB编辑器，字体⽐较⼩，很可能不符合个⼈的要求。
3、单击⼯具---->选项，如下图所⽰。
4、选项窗⼝中，选择编辑器格式选项卡。
5、字体选项中，可以更改编辑器的字体，本⼈保持默认的宋体。
6、⼤⼩选项中，可以更改编辑器⽂本的⼤⼩，本⼈设置为20号字体。
7、代码颜⾊区域中，可以选择各选项的颜⾊⽅案，选中⼀个选项后，在下⽅更改前景⾊、背景⾊和标识⾊。
8、单击确定后，可以看到编辑器的代码格式，按⾃⼰需要设置了。
以上就是vb6.0设置字体⼤⼩的教程，希望⼤家喜欢，请继续关注。
人民币大写转化函数（VB.NET版）
⼈民币⼤写转化函数（版）看了的⼤⼩写⾦额转换函数，⾃⼰也对照着写了个的，然后⽤类封装了⼀下。
原版C#版的，可以看。
Public Class CurrencyInherits ObjectPrivate Const CST_CAPSTR_TAIL As String = "整"Private Const CST_CAPSSTR_ZERO As String = "零"Private Const CST_CAPSSTR As String = CST_CAPSSTR_ZERO & "壹贰叁肆伍陆柒捌玖"Private Const CST_POSSTR_YUAN As String = "元"Private Const CST_POSSTR As String = "万仟佰拾亿仟佰拾万仟佰拾" & CST_POSSTR_YUAN & "⾓分"Private Const CST_CHNNUM_ZERO As String = CST_CAPSSTR_ZERO & CST_POSSTR_YUAN & CST_CAPSTR_TAILPrivate Shared ReadOnly CST_MAXLENGTH As Integer = CST_POSSTR.LengthPublic Shared Function ConvertToCapsString(ByVal dec As Decimal) As StringDim i, j, nZero As IntegerDim strDec, strPos, ch1, ch2 As StringDim chnNum, chnPos As StringDim strOnePosValue As StringDim intOnePosValue As Integer'将num取绝对值并四舍五⼊取2位⼩数dec = Math.Round(Math.Abs(dec), 2)'将num乘100并转换成字符串形式strDec = Convert.ToInt64(dec * 100).ToString'找出最⾼位j = strDec.LengthIf i > CST_MAXLENGTH ThenThrow New OverflowExceptionElseIf dec = 0Then'零元的时候，直接输出“零元整”chnNum = CST_CHNNUM_ZEROElse'取出对应位数的str2的值。
VB字符操作的基本用法(很全的)
例如：
Dim a(3) As String
a(0) = "坦"
a(1) = "坦然"
a(2) = "坦然面"
a(3) = "坦然面对"
b = Filter(a, "然")
则b(0) = "坦然"
trim(字符串) Byval返回去掉了前、后之后的[字符串]
例如trim("小欣无敌")则返回"小欣无敌"，中间的空格不受任何影响
string(个数,字符) Byval返回[个数]个[字符]
例如string(3,"小")则返回"小小小" ,而string(3,"小欣无敌")也返回"小"，只有首字符才有效
a = "TANRANMIANDUI"
a = Format("TaNrAnMiAnDuI", ">")
a = "tanranmiandui"
总之，Format功能很强大，可替代许多函数。
FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
a = Format(0.12358, "#%")
a = "12%"
a = Format(0.12358, "#.#0%")
字母的大小写转换
字母的大小写转换字母的大小写转换是计算机编程中常见的操作之一，通过改变字母的大小写形式，可以实现文本处理、字符串匹配、文本格式化等功能。
本文将介绍字母大小写转换的原理和常见的转换方法。
一、原理介绍计算机使用ASCII码来表示字符，其中大写字母与小写字母在ASCII码表中相差固定的数值。
大写字母的ASCII码值范围为65-90，小写字母的ASCII码值范围为97-122。
因此，通过加上或减去ASCII码表中的固定数值，可以实现字母的大小写转换。
二、大写转小写将大写字母转换为小写字母的常见方法是使用字符的ASCII码表进行转换。
具体而言，可以通过将大写字母的ASCII码值加上32来转换为对应的小写字母。
以下为示例代码：```pythondef uppercase_to_lowercase(char):if ord('A') <= ord(char) <= ord('Z'):return chr(ord(char) + 32)else:return char```三、小写转大写将小写字母转换为大写字母的方法与大写转小写相似，只需要将小写字母的ASCII码值减去32即可。
以下为示例代码：```pythondef lowercase_to_uppercase(char):if ord('a') <= ord(char) <= ord('z'):return chr(ord(char) - 32)else:return char```四、大小写互转通过以上两种方法，我们可以实现字母大小写的互相转换。
以下为示例代码：```pythondef toggle_case(char):if ord('A') <= ord(char) <= ord('Z'):return chr(ord(char) + 32)elif ord('a') <= ord(char) <= ord('z'):return chr(ord(char) - 32)else:return char```以上代码中，toggle_case()函数接收一个字符作为参数，如果是大写字母，则转换为小写字母；如果是小写字母，则转换为大写字母；其他字符保持不变。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB中字母大小写转换的三种方法
方法一：用VB的函数LCase和UCase
用三个TextBox来展现一下这两个函数的大小写转换功能[运行之前在TextBox1中输入几个大写字母，也可混合输入]：
PrivateSubCommand1_Click()
Text2.Text=LCase(Text1.Text)'将Text1的文本全换成小写
Text3.Text=UCase(Text2.Text)'将Text1的文本全换成大写
EndSub
说明：
LCase仅将是大写的转换为小写，UCase则仅将是小写的转换为大写，故当字符串中有其它不符合转换的内容时将对其忽略。
可以在TextBox1中输入汉字、阿拉伯数字等观察效果。
方法二：用API函数
user32提供两个用于大小写转换的API函数：Charlower[大写-小写]、Charupper[小写-大写]，其原形分别为：
DeclareFunctionCharLowerLib"user32"Alias"CharLowerA"(ByVallpszAsString)AsLong
DeclareFunctionCharUpperLib"user32"Alias"CharUpperA"(ByVallpszAsString)AsLong
继续用三个文本框来观察效果：
PrivateSubCommand1_Click()
DimaAsString
a=Text1.Text'给变量赋初值
CharUppera'变为大写
Text2.Text=a
CharLowera'变为小写
Text3.Text=a
EndSub
说明：与方法一的效果完全一样。
实际上，VB的LCase和UCase函数调用的也就是这两个API函数，是封装了这两个API函数的内部函数。
方法三：用算法
可以利用Ascii码对大小写字母字符代码的定义来强制输入的字母只能为大写的或者小写的，而不管CapsLock键是打开的还是关闭的。
就象安装Windows时用户输入CD-KEY 一样。
请看：
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'输入的字母通通为小写
IfKeyAscii>64AndKeyAscii<91ThenKeyAscii=KeyAscii 32
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
'输入的字母通通为大写
IfKeyAscii>96AndKeyAscii<123ThenKeyAscii=KeyAscii-32
EndSub
说明：在Ascii字符集里，大写A--Z对应于字符代码65--90，小写a--z对应于97--122。
以A为例，小写a[95]与大写A[65]的字符代码相差32，其它字母也是如此。
当然可以借此编制一个函数来完成象方法一、二一样将字符串进行大小写互换，略显复杂些，也没什么必要。