求斐波那契数列前10项的均值java_VB程序题：将斐波那契数列的前10项写入文件Fb .dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。...

VB程序题：将斐波那契数列的前10项写入文件Fb .dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。

要求：文件数据格式如下所示，列表框中项目格式如图H．3所示。

"Fib(0)",0

"Fib(1)",1

"Fib(2)",1

"Fib(3)",2

"Fib(4)",3

"Fib(5)",5

"Fib(6)",8

"Fib(7)",13

"Fib(8)",21

"Fib(9)",34

图H.3:

解题，画2个按钮，1个列表框控件，代码如下：

Private Sub Command1_Click()

Dim fib%(0 To 9), i%

Open "c:\fb.dat" For Output As #1

For i = 0 To 9

If i = 0 Or i = 1 Then

fib(i) = i

Else

fib(i) = fib(i - 1) + fib(i - 2)

End If

Print