VB期末大作业

Option Base 1
Dim Score() As Integer
Dim a() As Integer
Dim N As Integer, Max As Integer, Min As Integer, Average As Single, Jie As Single, You As Single, Jie1 As Single, You1 As Single
Dim p1, p2, p3, p4, p5, p6 As Integer
Private Sub Command1_Click()
N = Val(InputBox("请输入总人数", "", ""))
ReDim Score(N)
'统计每个分数段人数
For I = 1 To N
Score(I) = Val(InputBox("请输入第" & Str(I) & _
"个学生的成绩", "成绩统计", ""))
List1.AddItem Score(I)
Select Case Score(I)
Case 0 To 10
p1 = p1 + 1
Case 10 To 60
p2 = p2 + 1
Case 60 To 70
p3 = p3 + 1
Case 70 To 80
p4 = p4 + 1
Case 80 To 90
p5 = p5 + 1
Case Else
p6 = p6 + 1
End Select

Next I
Total = 0
Max = Score(1)
Min = Score(1)

' 通过循环依次比较，求最大、最小值；求总和
For I = 1 To N
If Score(I) > Max Then Max = Score(I)
If Score(I) < Min Then Min = Score(I)
If Score(I) >= 60 Then Jie = Jie + 1
If Score(I) >= 85 Then You = You + 1
Total = Total + Score(I)
Next I
Average = Total / N ' 求平均值
' 以两位小数显示平均值
Text1.Text = N
Text2.Text = Format(Average, "0.00")
Text3.Text = Max
Text4.Text = Min
Jie1 = Jie / N
You1 = You / N
Text5.Text = Format(Jie1, "0.00%")
Text6.Text = Format(You1, "0.00%")
'统计每个分数段的人数
Text9.Text = p1
Text10.Text = p2
Text11.Text = p3
Text12.Text = p4
Text13.Text = p5
Text14.Text = p6
把相应的模块放在相应的窗体上