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

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