230问答网 > 计算并输出下列级数的前n项之和s. n的值从键盘输入. s=2⼀1=3⼀2+5⼀3+8⼀5+13⼀8+21⼀13+... 求vb编程。谢谢！

计算并输出下列级数的前n项之和s. n的值从键盘输入. s=2⼀1=3⼀2+5⼀3+8⼀5+13⼀8+21⼀13+... 求vb编程。谢谢！

2024-12-04 00:00:31

推荐回答（1个）

回答1：

Private Sub Command1_Click()
   Dim n As Integer, s As Double, a As Long, b As Long, c As Long
   n = Val(InputBox("请输入n的值！"))
   a = 2
   b = 1
   For i = 1 To n
      s = s + a / b
      c = a + b
      b = a
      a = c
   Next i
   MsgBox "所求的和为：" & s
End Sub