vb：有一个数列,它的前三项分别是0,0,1。从第四项开始是前面三项的和。求该数列前20个元素。
答案:2 悬赏:40
解决时间 2021-02-19 06:39
- 提问者网友：爱你等于作孽
- 2021-02-18 21:36
此题要求用数组编程。
最佳答案
- 二级知识专家网友：都不是誰的誰
- 2021-02-18 21:51
Private Sub Form_click()
Dim a(19)
a(0) = 0
a(1) = 0
a(2) = 1
For k = 0 To 2
Print a(k)
Next
For i = 3 To UBound(a)
For j = 0 To i - 1
a(i) = a(i) + a(j)
Next
Print a(i)
Next
End Sub
Dim a(19)
a(0) = 0
a(1) = 0
a(2) = 1
For k = 0 To 2
Print a(k)
Next
For i = 3 To UBound(a)
For j = 0 To i - 1
a(i) = a(i) + a(j)
Next
Print a(i)
Next
End Sub
全部回答
- 1楼网友：荒唐后生
- 2021-02-18 23:14
private sub form_click()
dim a&(30)
a(1) = 0: a(2) = 1
for i = 3 to 30
a(i) = a(i - 2) + a(i - 1)
next i
for i = 1 to 30
print right(space(7) & a(i), 8);
if i mod 10 = 0 then print
next i
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯