当我对VBA进行编码以使其增加0.1

Question

我正在尝试建立一个简单的宏，以生成一列值，该值以特定值递增到特定值。对于当前示例，我想生成一个从0到97.9的列，并增加0.1。这是我使用的代码：

Set Inp = Workbooks("Effective Weight.xlsm").Worksheets("Input")
Set Res = Workbooks("Effective Weight.xlsm").Worksheets("Results")

i = 1
Res.Cells(i, 1) = 0

Do While Res.Cells(i, 1) <= 97.9
    Res.Cells(i + 1, 1) = Res.Cells(i, 1) + 0.1
    i = i + 1
Loop

MsgBox (Res.Cells(i, 1))

这将导致最终值为97.9999999999987。我原本希望是97.9。由于小数点数量较多，该循环还会运行一个额外的循环，并计算最终值“几乎” 98而不是97.9。

对于解决此问题的任何帮助，将不胜感激