菜鸟级Dim f(20) As IntegerDim i As Integerf(1) = 1:f(2) = 1For

菜鸟级
Dim f(20) As Integer
Dim i As Integer
f(1) = 1:f(2) = 1
For i = 3 To 20
f(i) = f(i - 2) + f(i - 1)
Next i
For i = 1 To 20
If (i Mod 10) = 0 Then '每行输入10个
Print '换行
End If
Print f(i);
Next i
这是1本书上写的,我觉得有点问题
注意看 注释的那点,每行输入10个,而我在实际运行中 第一行是9个 第2行10个 第3行1个 并不符合代码要实现的效果（求前20个费波那契数列,并且以每行10个输出在窗体上）
请问是他写错了 还是我出了问题?怎么才能实行我要的效果