发现VB6.0的一个神奇的bug

Question

Dim i As Single
For i = 99999989 To 99999999
    Debug.Print i
Next
先猜猜什么结果？然后再运行。

Answer 1

1．单精度型（Single）用来表示带有小数部分的实数
用4个字节存储，单精度浮点数最多有7位十进制有效数字，单精度浮点数的指数用“E”或“e”表示。
单精度数有多种表示形式：±n.n(小数形式)   ±n E ±m(指数形式)   ±n.n E ±m (指数形式)
例如：123.45、0.12345E+3、123.45！都是同值的单精度数。
如果某个数的有效数字位数超过7位，当把它定义为单精度变量时，超出的部分会自动四舍五入。99999989 就显示为 9.9999E+7

Answer 2

99999989 = 9.9999989E+7 四舍五入到7位。就是 9.999999E+7
99999999 = 9.9999999E+7 四舍五入到7位。就是 1.0E+8

Answer 3

因为 9.999999E+7 = 99999990 就是i的起始.
i+1 = 99999991 ;但是因为是 singe型。最后四舍五入还是 99999990 ,所以一直print 9.999999E+7 

Answer 4

应该是99999990 
single类型的范围为1.401298E-45 到3.402823E38 只能有7位的有效数

Answer 5

http://www.hb-feb.com/Head.asp
http://www.hb-feb.com/Inc/SysProduct.asp
http://www.hb-feb.com/Inc/Foot.asp

Answer 6

http://localhost:2166/

Answer 7

http://localhost:2533/