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

用VB制作学生成绩统计分析系统 一.程设计的目的和意义 每个学校都要举行考试，有的班级更是经常考试。为了掌握学生的学习情况，老师们不得不花费大量时间和精力对考试成绩进行统计分析，因此，开发一个统计分析软件，具有重要的意义。为强化和巩固所学的知识，本文所采用的程序是建立在以教材《VB程序设计使用教程》所涉及内容为基础之上的。 二.系统功能设计 在本系统中，将主要实现如下的一些功能：1.对各分数段的人数及所占比例进行统计2.对最高分、最低分、平均分进行查询3.对不及格人数及所占比例进行统计4.将成绩分布用直方图表示出来 三.设计思路 在对课程项目进行分析以后，认为系统应有如下几条要求： 要有系统登录界面 要有成绩录入框 要有统计结果显示界面 要能对成绩进行保存 四.设计流程图 五.设计界面、基本控件使用方法简介： 1.按退出键，关闭界面，退出程序。 2.按进入键，进入成绩输入界面，如下图所示。 3.建议在1028*768显示分辨率下使用。 因文件写入和读出之间有“系统误差”，所以用逗号开头，以消除“误差” 按确定键，系统自动将成绩保存在“d:\kcsj\cjb.txt”文件，并对文件数据进行读入和运算处理，将统计结果显示在显示界面。 按取消键，则返回登录界面。 本界面为统计结果显示界面。 按返回键，关闭本界面，返回上一界面，即成绩输入界面。 按退出键，关闭各界面，结束程序。 六.关键程序 //后为该程序段解释 Private Sub Form_load() Dim sg() As Single, im(9) As Integer Dim int1, int2, int3 As Integer: Dim x, y, sb, sg1 As Single Dim n, m, z As Integer Dim a, b, c As Integer Open d:\kcsj\cjb.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 = n Select Case sg(m) Case Is = 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