vb6的一个问题

Private Sub Command1_Click()

Dim e As Double '介电常数
Dim d As Double '含水率 0-1

Const e1 As Integer = 2.3 '纯油的相对介电常数
Const e2 As Integer = 80 '纯水的相对介电常数

d = 0
e = 0

Open "F:\temp\vb\result.txt" For Output As #1

For d = 0# To 1.001 Step 0.001

e = ((1 - d) * 2.3 ^ 0.5 + d * 80 ^ 0.5) ^ 2

Print #1, d, e

Next d

Close #1

End Sub

结果有问题，d竟然会出现7.20000000000001E-02 ， .838000000000001这样的结果，难道for循环语句对double类型的支持不好，搞不明白。改为整数就可以了。