Private Sub Command1_Click()
a = 1
b = 1
Print a
Print b
For i = 1 To 20
s = a + b
a = b
b = s
Print b
Next
End Sub
我这个代码 执行出来之后只能显示前17项 不管I的值换成多少 显示出来都只有17项 这是怎么回事z 求高手答疑
用VB求斐波那耶数列前18项
答案:2 悬赏:60
解决时间 2021-02-18 10:18
- 提问者网友:北故人
- 2021-02-17 11:57
最佳答案
- 二级知识专家网友:统治我的世界
- 2021-02-17 13:04
你的代码没有问题啊,是不是窗口高度太小,只能显示出来17项?你试试看把窗口调整大一些。
全部回答
- 1楼网友:請叫我丶偏執狂
- 2021-02-17 14:24
sub 斐波那契()
dim m, n, t as integer
dim a(20) as integer
a(1) = 1
a(2) = 1
n = 1
for m = 3 to 20
a(m) = a(m - 1) + a(m - 2)
t = m mod 2
if t = 1 then
n = n + a(m)
end if
next
msgbox ("斐波那数列前20项奇数项之和为" & n)
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯