Dim i As Single
Dim a As Single
For i = 2.2 To 5.6 Step 0.1
'Debug.Print i
a = i
Debug.Print a
Next i
输出结果怎么是:
2.3
2.4
2.5
2.6
2.7
2.799999
2.899999
2.999999
3.099999
3.199999
3.299999
3.399999
3.499999
怎么改????
想输出2.2 2.3 2.4 2.5 2.6 2.7 2.8 等等的结果
Private Sub Form_Load()Dim i As SingleDim a As SingleFor i = 22 To 56 Step 1'Debug.Print ia = i / 10Debug.Print aNext iEnd SubSINGLE的问题,把步长改掉,下面/10就可以了,或者上面改DOUBLE也可以