比使用StrComp函数：
IfStrComp（sString1,sString2,vbTextCompare）=-1Then
在性能上要提高30%，且更容易阅读和理解。
1.1.2转换字符串
1.1.2.1StrConv函数
使用StrConv函数来按指定类型转换字符串。
其语法为：
StrConv（string,conversion,LCID）
其中，参数string为要转换的字符串，参数conversion为指定转换的类型，参数LCID为可选参数。
如果将参数conversion设置为vbUpperCase或1，则将字符串转换成大写；设置为vbLowerCase或2，则将字符串转换成小写；设置为vbProperCase或3，则将字符串中每个字的开头字母转换成大写；设置为vbUnicode或64，则根据系统的缺省码页将字符串转换成Unicode；设置为vbFromUnicode或128，则将字符串由Unicode转换成系统的缺省码页。
在将ANSI格式的Byte数组转换成字符串时，应使用StrConv函数；转换Unicode格式的数组时，使用赋值语句。
下面的例子使用StrConv函数将Unicode字符串转换成ANSI字符串：
SubtestConverseString（）
DimiAsLong
Dimx（）AsByte
x=StrConv（"ABCDEFG",vbFromUnicode）'转换字符串。
Fori=0ToUBound（x）
Debug.Printx（i）
Next
EndSub
下面的例子将句子中每个词语的首字母转换为大写：
SubtestConverseString2（）
Debug.PrintStrConv（"mybookisthisbook.",vbProperCase）
EndSub
程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：
SubTest（）
DimbyArray（）AsByte
DimsStringAsString
sString="Somestuff"
byArray=StrConv（sString,vbFromUnicode）
EndSub
StrConv函数将下面的字符看成是字的分隔符：
Null：
Chr$（0）
水平制表符：
Chr$（9）
换行符：
Chr$（10）
垂直制表符：
Chr$（11）
换页符：
Chr$（12）
回车符：
Chr$（13）
空格：
Chr$（32）
[编程方法和技巧]在使用API时该函数很重要，很多程序调用都要求传递给它们Unicode字符，或者赋给返回变量Unicode字符。
1.1.2.2Str函数
将数值转换成字符串，即返回代表一个数值的字符串。
其语法为：
Str（number）
当一个数字转成字符串时，总会在前面保留一个空位来表示正负，即字符串的第一位一定是空格或正负号。
如果参数number为正，返回的字符串前面包含一空格。
Str函数将句点（.）作为有效的小数点。
示例如下：
MyString=Str（459）'返回"459"
MyString=Str（-459.65）'返回"-459.65"
MyString=Str（459.001）'返回"459.001"
[编程方法和技巧]使用LTrim函数可删除Str函数在返回的字符串开头添加的前导空格。
此外，CStr函数和Format函数已经取代了Str函数，CStr函数不用为正数的符号而添加前导空格，Format函数能够用来识别小数点。
1.1.2.3CStr函数
CStr将数值表达式转换成String数据类型。
示例如下：
MyDouble=437.324'MyDouble为Double类型
MyString=CStr（MyDouble）'MyString的内容为"437.324"
[编程方法和技巧]传递给CStr的未初始化的数字数据类型返回“0”，传递给CStr的未初始化的日期变量返回“0:
00:
00”。
1.1.3创建字符串
Space函数
该函数返回指定数的空格的字符串。
语法为：
Space（number）
其中，参数number必须，为字符串中指定的空格数。
如下例所示：
SubCreateString1（）
DimMyString
'返回10个空格的字符串。
MyString=Space（10）
'将10个空格插入两个字符串中间。
MyString="Hello"&Space（10）&"World"
EndSub
该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用WindowAPI时。
此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。
注意，如果参数number是负数，则会产生运行时错误5：
“无效的过程调用或参数”。
[编程方法和技巧]可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：
DimstrFixedAsString*32
strFixed=Space（Len（strFixed））
1.1.3.1String函数
该函数返回重复的字符或字符串。
其语法为：
String（number,character）
其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。
例如，下面使用String函数生成指定长度且只含单一字符的字符串。
SubCreateString2（）
DimMyString
MyString=String（5,"*"）'返回"*****"
MyString=String（5,42）'返回"*****"
MyString=String（10,"ABC"）'返回"AAAAAAAAAA"
EndSub
如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：
strString1=String（128,”=”）‘用”=”填充
strString2=String（128,0）‘用Chr$（0）填充
[编程方法和技巧]
（1）String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。
（2）当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$（0）之类的单个字符来填充。
1.1.4获取字符串的长度
可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为：
Len（string|varname）
其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。
两个参数必须取一。
利用LenB函数可以确定存储某变量所需的实际字节数。
下面的示例使用Len函数来获取某字符串的长度（字符数）或某变量的大小（位数）。
TypeCustomerRecord'定义用户自定义的数据类型
IDAsInteger'将此定义放在常规模块中
NameAsString*10
AddressAsString*30
EndType
SubGetStrLen（）
DimCustomerAsCustomerRecord'声明变量
DimMyIntAsInteger,MyCurAsCurrency
DimMyString,MyLen
MyString="HelloWorld"'设置变量初值
MyLen=Len（MyInt）'返回2
MyLen=Len（Customer）'返回42
MyLen=Len（MyString）'返回11
MyLen=Len（MyCur）'返回8
EndSub
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。
例如：
IfstrTemp=""Then
'要执行的代码
EndIf
上面的代码可以用以下代码代替：
IfLen（strTemp）=0Then
'要执行的代码
EndIf
注意：
（1）参数string和参数varname互不相容，即只能指定这两个参数中的某一个，不能同时指定这两个参数。
（2）如果参数string或参数varname中包含Null，则Len函数会返回Null。
（3）在向文件写入某种用户自定义类型数据时，Len函数会返回数据的大小（字符数）。
（4）LenB函数返回用户自定义类型数据实际占用的内存大小。
（5）在对字节数据或Unicode字符串使用LenB函数时，LenB函数返回表示数据或字符串的字节数。
（6）不能对对象变量使用Len函数。
（7）如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。
（8）Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：
DimvVar
vVar=100
MsgBoxLen（vVar）
结果为3。
（9）由于VB本质上使用的是Unicode字符串（用两个字节的空间来存储一个字符），因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。
例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。
（10）使用强类型变量（即强制声明该变量的类型）时，Len函数会返回存储该变量所需的字节数。
例如，长整型变量的长度为4。
下面的示例说明了为什么要显式声明数据类型：
Subtest（）
DimlVarAsLong
DimvVar
lVar=10000000
vVar=10000000
MsgBoxLenB（lVar）'返回4
MsgBoxLenB（vVar）'返回16
EndSub
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
1.1.5格式化字符串
可以使用Format函数规定输出的字符串的格式，其语法为：
Format（expression[,format[,firstdayofweek[,firstweekofyear]]]）
其中，参数expression必须，为任何有效的表达式；其余参数均可选。
参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。
在参数format中，使用字符“@”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“<”，则将所有字符显示为小写格式；使用字符“>”，则将所有字符显示为大写格式；使用字符“！
”，强制占位符从左向右填满，满足默认为从右向左。
例如下面的代码：
DimstrOut
strOut=Format（"8888888","（@@@）&&&-&&&&"）'返回（）888-8888
strOut=Format（"8888888","（&&&）&&&-&&&&"）'返回（）888-8888
在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。
例如：
strOut=Format（"6666666","（@@@）&&&-&&&&;NoPhone"）'返回（）666-6666
strOut=Format（"","（@@@）&&&-&&&&;NoPhone"）'返回NoPhone
又如，下面的代码将字母全部转换为大写：
DimstrOut
strOut=Format（"Hello",">@@@@@"）‘返回HELLO
同理，可以使用“<”将字母全部转换为小写。
Format函数的简要使用规则：
（1）允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
（2）创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。
第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。
在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：
只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；有四个部分，则每部分的使用如前所述。
如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：
“#.00;;#,##”
表示负数值与正数值使用同一种格式显示。
如果参数含有命名格式，则只能有一个部分。
（3）字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。
（4）预定义的日期和时间格式如下：
GeneralDate
范例：
Format（"28/02/2007","GeneralDate"）
返回：
2007-2-28
LongDate
范例：
Format（"28/02/2007","LongDate"）
返回：
2007年2月28日
MediumDate
范例：
Format（"28/02/2007","MediumDate"）
返回：
07-02-28
ShortDate
范例：
Format（"28/02/2007","ShortDate"）
返回：
2007-2-28
LongTime
范例：
Format（"17:
30:
03","LongTime"）
返回：
17:
30:
03
MediumTime
范例：
Format（"17:
30:
03","MediumTime"）
返回：
下午05:
30
ShortTime
范例：
Format（"17:
30:
03","ShortTime"）
返回：
17:
30
（5）预定义的数值格式如下：
GeneralNumber
范例：
Format（123456.0789,"GeneralNumber"）
返回：
123456.0789
Currency
范例：
Format（123456.0789,"Currency"）
返回：
￥123,456.08
Fixed
范例：
Format（0.2,"Fixed"）
返回：
0.20
Standard
范例：
Format（123456.0789,"Standard"）
返回：
123,456.08
Percent
范例：
Format（.7321,"Percent"）
返回：
73.21%
Scientific
范例：
Format（123456.0789,"Scientific"）
返回：
1.23E+05
Yes/No
范例1：
Format（0,"Yes/No"）
返回：
No
范例2：
Format（23,"Yes/No"）
返回：
Yes
True/False
范例1：
Format（0,"True/False"）
返回：
False
范例2：
Format（23,"True/False"）
返回：
True
On/Off
范例1：
Format（0,"On/Off"）
返回：
Off
范例2：
Format（23,"On/Off"）
返回：
On
（6）创建用户自定义的日期和时间格式的字符：
C
元素：
日期
显示：
基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。
范例：
Format（"28/02/200717:
30:
03","c"）
返回：
2007-2-2817:
30:
03
dddddd
元素：
日期
显示：
基于当前Windows系统的长日期国际设置格式的完整日期。
范例：
Format（"28/02/2007","dddddd"）
返回：
2007年2月28日
/
元素：
日期分隔符
范例：
Format（"28/02/2007","mm-dd-yyyy"）
返回：
02-28-2007
d
元素：
日
显示：
1～31范围内的一个数字，无前导0。
范例：
Format（"02/02/2007","d"）
返回：
2
dd
元素：
日
显示：
01～31范围内的一个
升级会员 