菜鸟级Dimf(20)AsIntegerDimiAsIntegerf(1)=1:f(2)=1Fori=3To20f(i)=f(i-2)+f(i-1)NextiFori=1To20If(iMod10)=0Then'每行输入10个Print'换行EndIfPrintf(i);Nexti这是1本书上写的,我觉得有点问题注

Question

菜鸟级
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个输出在窗体上）
请问是他写错了 还是我出了问题?怎么才能实行我要的效果

Answer 1

For i = 1 To 20
Print f(i);
If (i Mod 10) = 0 Then '每行输入10个
Print '换行
End If
Next i