菜鸟级Dim f(20) As IntegerDim i As Integerf(1) = 1:f(2) = 1For
lbbspencer2022-10-04 11:39:541条回答
菜鸟级
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个输出在窗体上)
请问是他写错了 还是我出了问题?怎么才能实行我要的效果
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个输出在窗体上)
请问是他写错了 还是我出了问题?怎么才能实行我要的效果
已提交,审核后显示!提交回复
共1条回复
- yy的风12 共回答了18个问题
|采纳率94.4% - For i = 1 To 20
Print f(i);
If (i Mod 10) = 0 Then '每行输入10个
Print '换行
End If
Next i - 1年前
相关推荐
大家在问
- 1Sin参数=4/5 sin参数-cos参数>1则sin2参数=
- 2已知平面上 A(2.0) B(0.2)C(cosα.sinα)如(向量OA+向量OC)^2=7 求向量OB与向量OC的夹
- 3如图 阴影周长是41cm 长方形和圆的面积一样 求圆的周长
- 4和学与问差不多的作文仿写【学与问】200字左右啊 ··
- 5下列文学常识表述有误的一项是:( )(2分) A.《故乡》选自
- 6一个英语句子a Jedi will you be星球大战中的句子 这个句子在语法上对不对电影里还有不少尤达大师的话都把宾
- 7小学英语试卷外研版六年级
- 8我们的教室 作文
- 9MATLAB:计算y=1/1^2+1/2^2+1/3^2+……+1/n^2,当n=100时,求y值
- 10Na、Mg、Al分别与盐酸反应.
- 11翻译"What's wrong with him?"并写出其同义句;写出"lie"的现在分词形式
- 12马铃薯,番茄,茄,卷心菜这四种植物中,亲缘关系最近是哪两种?
- 13射频发射电路 这个系统是锁相环频率合成器 这三块电路分别是锁相式频率合成器 压控振荡 高频功放
- 14(2005•汕头)下列关于一氧化碳和二氧化碳的叙述错误的是( )
- 15如图,A,B是反比例函数Y=k/x(k大于0)图像上的两个点,AC垂直于X轴,垂足为点C,BD垂直于Y轴,垂足为点D ,