UC知道两个VB的东西~~在线等 高分求
来源：百度知道 编辑：UC知道 时间：2024/06/24 06:47:12
实训3：通过键盘输入若干个成绩（取整数），并通过输入-1来结束成绩的输入，编写程序求平均成绩。程序要求：
（1） 用一个变量score临时存放当前输入的成绩
（2） 成绩用inputbox函数输入，用Do While----Loop结构。
（3） 在窗体上显示原始成绩、成绩个数及平均成绩
（4） 事件代码由窗体的单击事件触发。结果如图所示
87 68 95 46 78
5位同学的平均成绩为：74.5
实训4：求斐波拉契数列的前20项。其数列形式为：
1，1，2，3，5，8，13，21，34，…… 要求：
（1） 事件代码由窗体的单击事件触发。
（2） 在窗体中每行输出10个数。
斐波拉契数列
1 1 2 3 5 8 13 21 34 55
89 144 233 377 610 987 1597 2584 4181 6765
要求有源代码~~ 满意可以追加~
（1） 用一个变量score临时存放当前输入的成绩
（2） 成绩用inputbox函数输入，用Do While----Loop结构。
（3） 在窗体上显示原始成绩、成绩个数及平均成绩
（4） 事件代码由窗体的单击事件触发。结果如图所示
87 68 95 46 78
5位同学的平均成绩为：74.5
实训4：求斐波拉契数列的前20项。其数列形式为：
1，1，2，3，5，8，13，21，34，…… 要求：
（1） 事件代码由窗体的单击事件触发。
（2） 在窗体中每行输出10个数。
斐波拉契数列
1 1 2 3 5 8 13 21 34 55
89 144 233 377 610 987 1597 2584 4181 6765
要求有源代码~~ 满意可以追加~
实训3：
Private Sub Form_Click()
Dim ss As Single, i As Integer
Dim score() As Single, totalscore As Single, disp As String
Do While ss <> -1
ss = InputBox("请输入成绩，-1表示输入结束：")
If ss = -1 Then Exit Do
i = i + 1
ReDim Preserve score(i) As Single
score(i) = ss
totalscore = totalscore + score(i)
disp = LTrim(disp) & " " & score(i)
Loop
If i <> 0 Then
Print disp
Print i & "位同学的平均成绩为：" & totalscore / i
End If
End Sub
实训4：
Private Sub Form_Click()
Dim a(20) As Integer
Dim i As Integer, ss As String
a(1) = 1
a(2) = 1
ss = a(1) & " " & a(2)
For i = 3 To 20
a(i) = a(i - 1) + a(i - 2)
ss = ss & " " & a(i)
If i = 10 Then ss = ss & Chr(13) + Chr(10)
Next
Print ss
End Sub
'求斐波拉契数列的前20项
Private Sub Button1_Click(By