作业帮 > 综合 > 作业

有一分数序列2/1,3/2,5/3,8/5 .,求这个数列前20 项之和 计算机VB编程,

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/04 17:51:46
有一分数序列2/1,3/2,5/3,8/5 .,求这个数列前20 项之和 计算机VB编程,
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