有一分数序列2/1,3/2,5/3,8/5 .,求这个数列前20 项之和 计算机VB编程,
有一分数序列2/1,3/2,5/3,8/5 .,求这个数列前20 项之和 计算机VB编程,
答案:1 悬赏:50 手机版
解决时间 2021-07-21 17:36
- 提问者网友：精神病院里
- 2021-07-21 09:11
最佳答案
- 五星知识达人网友：山河有幸埋战骨
- 2021-07-21 09:26
Private Sub Command1_Click()
Dim a As Long, b As Long, c
Dim i As Integer, sum As Single
a = 2
b = 1
For i = 1 To 20
sum = sum + a / b
Print i; a; "/"; b
c = a
a = a + b
b = c
Next
Print
Print
Print sum
End Su
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯