Question

vb题用递归 方法求数列前n项和

f(n)={0, n=1 ;1,n=2; 2f(n-1)-f(n-2),n>2} click事件
要求；定义一个递归函数过程求数列中任意一项的值，然后在窗体的click直接中调用它完成程序要求的功能

Answer 1

Form1上放一个文本框Text1, 一个按钮Command1。

在框中输入某个数字，例如10，代码会将列出f(1)至f(10）的值。

如果你只需要特定的第n项，比如第8项，就直接调用DiGui(8)即可。

代码：

Private Sub Command1_Click()
    Dim n As Long
    n = CInt(Text1.Text)
    Form1.Cls
    For n = 1 To 10
      Print "f(" & CStr(n) & ")=" & DiGui(n):
    Next
End Sub

Private Function DiGui(ByVal n As Integer) As Long
  Select Case n
    Case 1
      DiGui = 0
    Case 2
      DiGui = 1
    Case Else
      DiGui = 2 * DiGui(n - 1) - DiGui(n - 2)
  End Select
End Function

追问

等我有空去试试