别，一个一个来，一下只这么多，会吓到的。
作业要先自己写，有问题再来提问。

[此贴子已经被作者于2020-6-17 12:57编辑过]

不会啊，求大神指教

怎么编程，题目都已经说明的很清楚了，你只要对照填写代码就可以了。
我给你做个第一题：
在窗体上放置一个命令按钮，两个文本框，拷贝下面代码，就可以运行了。打印代码只是为了看看f(n)的值。
Private Sub Command1_Click()
    Dim f(30) As Long
    Dim Max As Long, Sum As Long, n As Integer

    f(0) = 1: f(1) = 2: f(2) = 3
    Sum = f(0) + f(1) + f(2)
    Max = f(2)
   
    For n = 3 To 30
        f(n) = f(n - 1) + 2 * f(n - 2) - 5 * f(n - 3)
        Sum = Sum + f(n)
        If f(n) > Max Then Max = f(n)
        Print "f("; n; ")="; f(n)   '这里只是看看f(n)的值
    Next
    Text1.Text = Sum   '总和
    Text2.Text = Max   '最大值
End Sub

我来做个第二题：
    一个命令按钮，一个文本框，拷贝下面的代码，运行后，文本框填入数字，点击命令按钮就可以得到该数值的平方根：
Private Sub Command1_Click()
     Dim a As Double, Xn As Double, X As Double
     a = Val(Text1.Text)
     Xn = a / 2
     X = (Xn + a / Xn) / 2
     Do While Abs(X - Xn) > 0.0001
        Xn = X
        X = (Xn + a / Xn) / 2
     Loop
     Print X
End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub

那我试着做第三题吧