高手来看看，定义成Currency不进入循环,有没有人知道，进来看看

确实不行，原因不明。

猜测：
For循环使用Currency数据类型时存在bug
Currency实际上是一种64位（8个字节）有符号整数的变形，VB规定了它的小数点位置，不在最右边，而是固定有4位小数；也就是说，该类型所表示的数值是其实际内存值的万分之一
而在For循环中，如果循环变量为Currency类型，那么当变量数值只用了4个字节时，VB会把它当成一个Long型变量的变形来处理；也就是说，当该变量的实际内存值介于2^31~2^32-1之间时，For循环会把数值的最高位1当成符号位，认为这是一个负数……不仅是循环变量，For语句设置的初值和终值也会被转换成循环变量的类型进行处理。于是，就出现了这种不合理的现象
经过测试，只有For循环配合Currency类型使用时会出现此bug，改成等价的Do...Loop循环就能正常出结果。因此，有如下规避此bug的建议：
1.For循环的循环变量不要使用Currency类型；
2.不要使用For循环（……）

好复杂的关系.没弄明白

打开Win7系统的计算器，切换到“程序员”模式，你会发现数字显示区域下面多了这样一堆东西：（截图是macOS的计算器，我现在没有Win7所以用这个代替了）

这就是数字用二进制表示的形式，这是在“四字”模式下，共有8个字节即64个二进制位，也正是Currency类型所占的内存大小；不过，这只能表示Currency型变量在内存中的存储值，它在VB中所表示的数值是实际内存值的万分之一（这是VB规定的，就是为了让Currency能表示小数；实际上，Currency与Integer、Long这些类型一样，都是定点数，只不过Integer等整数类型的小数点在最右边【所以是整数】，而Currency的小数点右边固定有4位数字【称为定点小数】）
如果把计算器的位数模式切换成“双字”或“字”，那么对应的就是Long型或Integer型，并且同时对应了它们在VB中表示的数值和实际的内存值（因为两者是一致的，如上所述）
现在（四字模式下），在计算器中输入一个介于2^31~2^32-1（2147483648~4294967295）之间的数字，你就会看到，这个区域中的31所对应的位是1，而上面一行则全是0；然后切换到“双字”，上面一行0就全部消失了，同时输入的数字变成了负数！没错，VB的For循环就对Currency干了这种事，它把这个范围内的Currency型数值截断成了Long型，然后把“最高位”（位31）的1当成了符号位，认为这是一个负数，然后就出bug了……