UC知道vb ~~~~~~~~~~~帮忙写段代码
来源：百度知道 编辑：UC知道 时间：2024/05/23 15:56:46
实验名称：实验六、用数组计算fibonacci数列
实验目的：掌握数组的声明、输入和输出以及数组元素引用的方法，学会与数组有关的常用算法，创建一个名为” 用数组计算fibonacci数列的前20项”的应用程序。
实验要求：利用窗体的加载事件创建程序
fibonacci数列为1,1,2,3,5,8,13, ……
提示：用数组计算并存放fibonacci数列的前20个数，并按每行打印5个数的格式输出。标题为红色，输出的数列为黑色
已知：f(0)=1；f(1)=1
f(n)=f(n-1)+f(n-2) 2≤n≤19
实验内容：
（写出创建该程序需要的各种控件名称及个数，将创建好的应用程序的代码书写在此内容）
例:本程序需要2个Command控件
Private Sub Command_Click()
Print “hello”
End Sub
提示：1.注意外层和内层的循环次数以及三角形在窗体上所显示的位置
实验目的：掌握数组的声明、输入和输出以及数组元素引用的方法，学会与数组有关的常用算法，创建一个名为” 用数组计算fibonacci数列的前20项”的应用程序。
实验要求：利用窗体的加载事件创建程序
fibonacci数列为1,1,2,3,5,8,13, ……
提示：用数组计算并存放fibonacci数列的前20个数，并按每行打印5个数的格式输出。标题为红色，输出的数列为黑色
已知：f(0)=1；f(1)=1
f(n)=f(n-1)+f(n-2) 2≤n≤19
实验内容：
（写出创建该程序需要的各种控件名称及个数，将创建好的应用程序的代码书写在此内容）
例:本程序需要2个Command控件
Private Sub Command_Click()
Print “hello”
End Sub
提示：1.注意外层和内层的循环次数以及三角形在窗体上所显示的位置
Private Sub Command1_Click()
Dim f(20) As Integer
Dim i As Integer
Dim j As Integer
f(0) = 1
f(1) = 1
Print
Print f(0), f(1),
j = 2
For i = 2 To 19 'f(n)=f(n-1)+f(n-2) 2≤n≤19
f(i) = f(i - 1) + f(i - 2)
j = j + 1
Print f(i),
If j Mod 5 = 0 Then
Print
End If
Next
End Sub
Private Sub Command2_Click()
Me.Cls
End Sub
Private Sub Form_Load()
Command1.Caption = "显示"
Command2.Caption = "清空"
With Label1
.Caption = "fibonacci数列前20项:"
.FontSize = 9
.ForeColor = &HFF&
.Top = 0
.Left = 0
End With
End Sub
'VB6.0下测试通过.符合你的所有要求了.
Private Sub Command1_Click()
Dim f(20) As Integer
Dim i As Integer, j As Integer
f(1) = 1: f(0) = 1: j = 1
Me.Print f(0); f(1);
For i = 2 To 19
j =