发现VB6.0的一个神奇的bug解决办法

发现VB6.0的一个神奇的bug
Dim i As Single
For i = 99999989 To 99999999
    Debug.Print i
Next

先猜猜什么结果?然后再运行。
------解决方案--------------------
因为 9.999999E+7 = 99999990 就是i的起始.
i+1 = 99999991 ;但是因为是 singe型。最后四舍五入还是 99999990 ,所以一直print 9.999999E+7 
------解决方案--------------------
应该是99999990 
single类型的范围为1.401298E-45 到3.402823E38 只能有7位的有效数