作业帮 > 数学 > 作业

数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/07/30 23:52:57
数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢
数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢
Private Sub Form_Load()
Dim A(1 To 10) As Double
A(1) = 1: A(2) = 2
Text1.Text = A(1) & ",  " & A(2) & ",  "
For I = 3 To 10
A(I) = (A(I - 1) * A(I - 1)) - (A(I - 2) * A(I - 2))
Text1.Text = Text1.Text & A(I) & ",  "
Next I
Text1.Text = Left(Text1.Text, (Len(Text1.Text) - 3))
End Sub