Private Sub Timer1_Timer()
   
    Static ElapsedTime As Single
    ElapsedTime = ElapsedTime + 0.1
    If LeftPictureBox_RUNNING = True Then
    Buffer = ElapsedTime & "," & CoordinatesX & "," & CoordinatesY   
    ElseIf RightPictureBox_RUNNING = True Then
    Buffer = ElapsedTime & "," & "," & "," & CoordinatesX & "," & CoordinatesY   
    End If
    TxtFile.WriteLine (Buffer)
End Sub

如图所示，在Timer中进行每次0.1的累加，结果竟然到了2.7的时候，2.7+0.1变成了2.799999
如何解决该问题，敬请各位大侠不吝赐教！！！

这是正常的现象.

要解决这个问题,设置这列单元格为 数值类型,小数点后1位就可以了
如果需要使用 修正后的数据计算,那么再到选项时选使用显示的数据计算就可以了.

或者在程序里,给值时,转化为 字符串类型的小数,然后再填到单元格内去.

这属于浮点数 二进制与十进制 换算 精度问题.

非常感谢您的回答。
可是
这个文件是我以
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TxtFile = FSO.CreateTextFile(Year(Date) & "擭" & Month(Date) & "寧" & Day(Date) & "擔" & "(" & WeekdayName(Weekday(Date), True) & ") " & Hour(time) & "帪" & Minute(time) & "暘" & ".csv", True)
    TxtFile.WriteLine "Time(s),X(Left),Y(Left),X(Right),Y(Right)"
    Timer1.Enabled = True

这种形式定义生成的
如何在生成之初，就不产生这种99999999999的小数呢？？
还有，请问为何会产生这种99999999999的小数？？

恳请不吝赐教！！！

产生的原因是:

浮点数 二进制与十进制 换算 时精度不一至导致的问题 .

浮点数,二进制 转换为 十进制时, 需要累除 存在除不尽的情况,导致 这种的情况出来.
具体的转换算法,记不清了.只知道是 累除 得出小数位.

您真是高人啊！！！！
不胜感激 ~~~