求1+2+4+7+11+…,求前二十项之和。用VB程序写。
答案:1 悬赏:0 手机版
解决时间 2021-03-28 13:51
- 提问者网友：温旧梦泪无声
- 2021-03-27 17:52
求1+2+4+7+11+…,求前二十项之和。用VB程序写。
最佳答案
- 五星知识达人网友：罪歌
- 2021-03-27 19:29
Dim a(20) As Integer
Dim sum As Integer
Private Sub Form_Click()
a(1) = 1
sum = a(1)
For i = 1 To 19
a(i + 1) = a(i) + i
sum = sum + a(i + 1)
Next i
Print sum
End Sub
Dim sum As Integer
Private Sub Form_Click()
a(1) = 1
sum = a(1)
For i = 1 To 19
a(i + 1) = a(i) + i
sum = sum + a(i + 1)
Next i
Print sum
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯