d的值为多少?

Question

代码如下：
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Single, d As Double
Dim T As Single
T = Timer
For a = 1 To 10000000
    b = b + 1
    c = 0    d = d + 0.1
Next
Label1.Caption = Timer - T
Debug.Print d
End Sub

Answer 1

999999.999838975自己运行一下不就知道了。

Answer 2

我自己当然运行过，只是时间过太久了，我都忘了问的初衷是什么了。