2.4 获取字符串的长度
可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为：
Len(string|varname)
其中，参数string为任何有效的字符串表达式； 参数varname为任何有效的变量名称。 两个参数必须取一。
利用LenB函数可以确定存储某变量所需的实际字节数。
下面的示例使用Len函数来获取某字符串的长度(字符数)或某变量的大小(位数)。
Type CustomerRecord ' 定义用户自定义的数据类型 ID As Integer ' 将此定义放在常规模块中 Name As String * 10 Address As String * 30 End Type
Sub GetStrLen()
Dim Customer As CustomerRecord ' 声明变量 Dim MyInt As Integer, MyCur As Currency Dim MyString, MyLen
MyString = \ ' 设置变量初值 MyLen = Len(MyInt) ' 返回 2
MyLen = Len(Customer) ' 返回 42 MyLen = Len(MyString) ' 返回 11 MyLen = Len(MyCur) ' 返回 8 End Sub
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：
If strTemp = \ '要执行的代码 End If
上面的代码可以用以下代码代替： #same code
If Len(strTemp) = 0 Then '要执行的代码 End If 注意：
(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函数返回变量所存储的实际字符数，如下面的代码： Dim vVar vVar=100
MsgBox Len(vVar)
结果为3。
(9) 由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。
(10) 使用强类型变量(即强制声明该变量的类型)时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。
下面的示例说明了为什么要显式声明数据类型： Sub test()
Dim lVar As Long Dim vVar lVar = 10000000 vVar = 10000000
MsgBox LenB(lVar) '返回4 MsgBox LenB(vVar) '返回16 End Sub
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
2.5 格式化字符串
可以使用Format函数规定输出的字符串的格式，其语法为： Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
其中，参数expression必须，为任何有效的表达式； 其余参数均可选。
参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。 在参数format中，使用字符“@”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“<”，则将所有字符显示为小写格式；使用字符“>”，则将所有字符显示为大写格式；使用字符“！”，强制占位
符从左向右填满，满足默认为从右向左。 例如下面的代码： Dim strOut
strOut = Format(\返回( )888-8888 strOut = Format(\返回()888-8888
在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。例如： strOut = Format(\返回( )666-6666 strOut = Format(\返回No Phone 又如，下面的代码将字母全部转换为大写： Dim strOut
strOut = Format(\‘返回HELLO 同理，可以使用“<”将字母全部转换为小写。
Format函数的简要使用规则：
(1) 允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
(2) 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。
在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；有四个部分，则每部分的使用如前所述。
如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如： “#.00;;#,##”
表示负数值与正数值使用同一种格式显示。 如果参数含有命名格式，则只能有一个部分。 (3) 字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。
(4) 预定义的日期和时间格式如下： General Date
范例：Format(\返回： 2007-2-28 Long Date
范例：Format(\返回： 2007年2月28日 Medium Date
范例：Format(\返回： 07-02-28 Short Date
范例：Format(\返回： 2007-2-28
Long Time
范例：Format(\返回： 17:30:03 Medium Time
范例：Format(\返回：下午 05:30 Short Time
范例：Format(\返回： 17:30
(5) 预定义的数值格式如下： General Number
范例：Format(123456.0789,\返回： 123456.0789 Currency
范例：Format(123456.0789,\返回：￥123,456.08 Fixed
范例：Format(0.2,\返回： 0.20 Standard
范例：Format(123456.0789,\返回： 123,456.08 Percent
范例：Format(.7321,\返回： 73.21% Scientific
范例：Format(123456.0789,\返回： 1.23E+05 Yes/No
范例1：Format(0,\返回： No
范例2：Format(23,\返回： Yes True/False
范例1：Format(0,\返回： False
范例2：Format(23,\返回： True On/Off
范例1：Format(0,\返回： Off
范例2：Format(23,\返回： On
(6) 创建用户自定义的日期和时间格式的字符：
C
元素：日期
显示：基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。 范例：Format(\返回：2007-2-28 17:30:03 dddddd 元素：日期
显示：基于当前Windows系统的长日期国际设置格式的完整日期。 范例：Format(\返回：2007年2月28日 /
元素：日期分隔符
范例：Format(\返回：02-28-2007 d
元素：日
显示：1～31范围内的一个数字，无前导0。 范例：Format(\返回：2 dd
元素：日
显示：01～31范围内的一个数字，有前导0。 范例：Format(\返回：02 ddd
元素：日
显示：英文简写(Sun～Sat)
范例：Format(\返回：Fri dddd
元素：日
显示：英文全称(Sunday～Saturday) 范例：Format(\返回：Friday ddddd
元素：日期
显示：基于计算机Windows国际设置短日期格式的日期。 范例：Format(\返回：2007-2-2 h
元素：小时
显示：0～23范围内的一个数字，无前导0。 范例：Format(\返回：5