' 定义用户自定义的数据类型。 ' 将此定义放在常规模块中。 Type CustomerRecord ID As Integer Name As String * 10 Address As String * 30 End Type Sub lenStr1() ' 声明变量。 Dim Customer As CustomerRecord Dim MyInt As Integer Dim MyCur As Currency Dim MyString Dim MyLen ' 设置MyString初值。 MyString = " Hello World" ' 返回 2。 MyLen = Len(MyInt) ' 返回 42。 MyLen = Len(Customer) ' 返回 8。 MyLen = Len(MyCur) ' 返回 11。 MyLen = Len(MyString) End Sub