VB制作学生成绩统计分析系统.doc

用VB制作学生成绩统计分析系统一.程设计的目的和意义每个学校都要举行考试，有的班级更是经常考试。为了掌握学生的学习情况，老师们不得不花费大量时间和精力对考试成绩进行统计分析，因此，开发一个统计分析软件，具有重要的意义。为强化和巩固所学的知识，本文所采用的程序是建立在以教材VB程序设计使用教程所涉及内容为基础之上的。二.系统功能设计在本系统中，将主要实现如下的一些功能：1.对各分数段的人数及所占比例进行统计2.对最高分、最低分、平均分进行查询3.对不及格人数及所占比例进行统计4.将成绩分布用直方图表示出来三.设计思路在对课程项目进行分析以后，认为系统应有如下几条要求：1. 要有系统登录界面2. 要有成绩录入框3. 要有统计结果显示界面4. 要能对成绩进行保存四.设计流程图五.设计界面、基本控件使用方法简介：1.按退出键，关闭界面，退出程序。 2.按进入键，进入成绩输入界面，如下图所示。 3.建议在1028*768显示分辨率下使用。1. 因文件写入和读出之间有“系统误差”，所以用逗号开头，以消除“误差”2. 按确定键，系统自动将成绩保存在“d:kcsjcjb.txt”文件，并对文件数据进行读入和运算处理，将统计结果显示在显示界面。3. 按取消键，则返回登录界面。1. 本界面为统计结果显示界面。2. 按返回键，关闭本界面，返回上一界面，即成绩输入界面。3. 按退出键，关闭各界面，结束程序。六.关键程序/后为该程序段解释Private Sub Form_load()Dim sg() As Single, im(9) As IntegerDim int1, int2, int3 As Integer: Dim x, y, sb, sg1 As SingleDim n, m, z As IntegerDim a, b, c As IntegerOpen d:kcsjcjb.txt For Input As #1 /打开文件im(0) = -1 n = 0 Do While Not EOF(1) n = n + 1 ReDim Preserve sg(n) Input #1, sg(n) Loop /读入数据 Close #1 /关闭文件 m = 2 Do While m = 90 im(9) = im(9) + 1 Case Is = 80 im(8) = im(8) + 1 Case Is = 70 im(7) = im(7) + 1 Case Is = 60 im(6) = im(6) + 1 Case Is = 50 im(5) = im(5) + 1 Case Is = 40 im(4) = im(4) + 1 Case Is = 30 im(3) = im(3) + 1 Case Is = 20 im(2) = im(2) + 1 Case Is = 10 im(1) = im(1) + 1 Case Is = 0 im(0) = im(0) + 1 Case Else a = 1 End Select m = m + 1 Loop /将各成绩按分数段分类统计 L15.Caption = n 2 /显示班级人数 int2 = 0 Do Until int2 9 L1(int2).Caption = im(int2) /显示各分数段人数 sb = im(int2) * 100 / (n - 2) L1(int2 + 10).Caption = Format(sb, 0.0) /显示各分数段人数比例 int2 = int2 + 1 Loop a = 1: b = 0 Do b = b + sg(a) a = a + 1 Loop While a sg(int2) Then sg1 = sg(int1) sg(int1) = sg(int2) sg(int2) = sg1 End If Next Next Lmax.Caption = sg(n - 1) /显示最高分 Lmin.Caption = sg(2) /显示最低分 z = im(0) + im(1) + im(2) + im(3) + im(4) + im(5) Lren.Caption = z /显示不及格人数 Lbi.Caption = Format(z / n, 0) /显示不及格人数所占比例 Shape1(0).Height = 0: Shape1(1).Height = 0: Shape1(2).Height = 0: Shape1(3).Height = 0 Shape1(4).Height = 0: Shape1(5).Height = 0: Shape1(6).Height = 0: Shape1(7).Height = 0 Shape1(8).Height = 0: Shape1(9).Height = 0 int2 = 0 Do Until int2 9 sb = im(int2) / (n - 2) Shape1(int2).Height = sb * Label7.Height Shape1(int2).Top = Line23.Y1 - Shape1(int2).Height If Shape1(int2).Height = 0 Then Shape1(int2).Visible = False Else: Shape1(int2).FillStyle = 0 End If int2 = int2 + 1 Loop /显示直方图 End Sub七心得本系统在最简程度上实现了