数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢
来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/07/30 23:52:57
数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢
![数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢](/uploads/image/z/3551889-57-9.jpg?t=%E6%95%B0%E5%88%971%2C2%2C3%2C5%2C16.%2C%E4%BB%8E%E7%AC%AC%E4%B8%89%E9%A1%B9%E8%B5%B7%2C%E6%AF%8F%E9%A1%B9%E6%98%AF%E5%89%8D%E4%B8%A4%E9%A1%B9%E7%9A%84%E5%B9%B3%E6%96%B9%E5%B7%AE%2C%E8%BE%93%E5%87%BA%E6%95%B0%E5%88%97%E7%9A%84%E5%89%8D%E5%8D%81%E9%A1%B9VB%E9%A2%98+%E8%AF%B7%E4%B8%8D%E8%A6%81%E7%94%A8%E5%85%B6%E4%BB%96%E8%AF%AD%E8%A8%80%E8%A7%A3%E7%AD%94%E8%B0%A2%E8%B0%A2)
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
![](http://img.wesiedu.com/upload/1/4b/14be96391625b75984b132965dbfb044.jpg)
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
![](http://img.wesiedu.com/upload/1/4b/14be96391625b75984b132965dbfb044.jpg)
数列1,2,3,5,16.,从第三项起,每项是前两项的平方差,输出数列的前十项VB题 请不要用其他语言解答谢谢
用VB编程:有一个数列第一项为0,第二项为1,从第三项起,每项均为他的前两项之和,编程输出该数列的前40项
形成一个数列1,2,3,5,16,231……的前20项,该数列的规律是从第三项开始,每一项是前两项的平方差.
输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢
C语言 输入一个正整数N,输出2/1+3/2+5/3+8/5+……的前N项和,保留两位小数.(该数列从第2项起每一项的分
c语言的题目 输入Fibonacci数列的前二十项.这个数列的特点为:第1和第2均为1,从弟3项开始,任意一项是前
用C语言编程输出数列1,1,2,3,5,8,13,21的前20 项
vb 编程输出fibonacci数列的前N项
数列1,1,2,3,5,8,13,...中,从第三个数起,每个数是前两个数的和,这个数列的前100个数有几个偶数?
用VB求数列1,2,3,5,16,231.的前20项
C语言求输出一个数列:输出1,1,2,3,5...的前20项,并以每行5个数字输出
怎么用C语言中for循环输出数列:1,1,2,3,5,8..的前n个数