[已解决]这句len函数代码不明白

爱疯

' 定义用户自定义的数据类型。
' 将此定义放在常规模块中。
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

问题：为什么返回的是8？

谢谢！

最佳答案

月排行榜 / 总排行榜

不看不看

2008-12-18 20:01

跟这个有关系吧

Currency 数据类型

      

Currency 变量存储为 64 位（8 个字节）整型的数值形式，然后除以 10,000 给出一个定点数，其小数点左边有 15 位数字，右边有 4 位数字。这种表示法的范围可以从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807。Currency 的类型声明字符为at号 (@)。

Currency 数据类型在货币计算与定点计算中很有用，在这种场合精度特别重要。

跳转到最佳答案楼层

不看不看

跟这个有关系吧

Currency 数据类型

      

Currency 变量存储为 64 位（8 个字节）整型的数值形式，然后除以 10,000 给出一个定点数，其小数点左边有 15 位数字，右边有 4 位数字。这种表示法的范围可以从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807。Currency 的类型声明字符为at号 (@)。

Currency 数据类型在货币计算与定点计算中很有用，在这种场合精度特别重要。

oobird

反白Currency，按f1你就明白了。

不看不看

Sub xx()
Dim a As Integer
Dim c As Currency
MsgBox Len(a)
MsgBox Len(c)
End Sub

爱疯

这句len函数代码不明白

[em06]

因为余光看到这2处一样，

一直当作同个数据类型 ....

谢谢两位老师的指点了！