Private Sub Command1_Click()
[b]Dim T() As Integer
Dim n%, x%
n = Val(InputBox("输入序列数"))
ReDim T(n)
T(0) = 1
T(1) = x
For n = 2 To n
T(n) = 2 * x * T(n - 1) + T(n - 2)
Next n
For n = 0 To n - 1
Print T(n),
If (n + 1) Mod 5 = 0 Then Print
Next

End Sub

是分享吗

不是分享是交流，我做的这个有点问题。

问题

关于用vb编程计算类似高等数学的求解，我建议用matlab软件，当然vb编程也可以实现的。
你的vb编程是什么问题啊？