大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。
Jetbrains全系列IDE稳定放心使用
实验8-2
将斐波那契数列的前10项写入文件Fb .dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。
要求：文件数据格式如2.8.2所示，列表框中项目格式如图2.8.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 #1, “””Fib(” & i & “)””,” & fib(i)
Next i
Close #1
i = Shell(“NOTEPAD.exe” + ” c:\fb.dat”, vbNormalNoFocus)
End Sub
Private Sub Command2_Click()
Dim st$, n%, sum%
Open “c:\fb.dat” For Input As #1
Do While Not EOF(1)
Input #1, st, n
sum = sum + n
List1.AddItem st & “=” & n
Loop
Close #1
List1.AddItem “合计：” & sum
List1.AddItem “平均：” & sum / 10
End Sub
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/185172.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
