值怎么变了？

Question

通过一个函数，已经使得整型变量为0，在一个过程里，picture1.currenty被赋与这个0，可是在监视窗口里显示currenty为-1.626016E-03，这和它为SINGLE型有关吗？

Answer 1

代码如下：
        For n = 0 To L - 1
            X1 (n)
            picIn.CurrentX = n
            picIn.CurrentY = CSng(PutIn)
            picIn.PSet (picIn.CurrentX, picIn.CurrentY), vbRed
            AR(n) = PutIn
            AI(n) = 0
        Next n
Private Sub X1(n As Integer)
   If n >= 0 And n <= 3 Then
      PutIn = 1
   Else
      PutIn = 0
   End If
End Sub
难道真的是机器的问题？我之前提的问题难道也是机器的事吗？

Answer 2

Private Sub Form_Load()
    picIn.ScaleMode = 1 '加上这个看看
End Sub

Answer 3

这是浮点舍入错误
Single除0以外的最小值是±1.626016E-03解决方法：
在该过程的前部加上“Dim n As Long”