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

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

一.程设计的目的和意义

每个学校都要举行考试，有的班级更是经常考试。为了掌握学生的学习情况，老师们不

得不花费大量时间和精力对考试成绩进行统计分析，因此，开发一个统计分析软件，具有重

要的意义。为强化和巩固所学的知识，本文所采用的程序是建立在以教材《VB程序设计使

用教程》所涉及内容为基础之上的。

二.系统功能设计

在本系统中，将主要实现如下的一些功能：1.对各分数段的人数及所占比例进行统计2.

对最高分、最低分、平均分进行查询3.对不及格人数及所占比例进行统计4.将成绩分布用直

方图表示出来

三.设计思路

在对课程项目进行分析以后，认为系统应有如下几条要求：

1.要有系统登录界面

2.要有成绩录入框

3.要有统计结果显示界面

4.要能对成绩进行保存

四.设计流程图

1

五.设计界面、基本控件使用方法简介：

1.按退出键，关闭界面，退出程序。

2.按进入键，进入成绩输入界面，如下图所示。

3.建议在1028*768显示分辨率下使用。

1.因文件写入和读出之间有“系统误差”，所以用逗号开头，以消除“误差”

2.按确定键，系统自动将成绩保存在“按确定键，系统自动将成绩保存在“”文件，并对文件数据进

行读入和运算处理，将统计结果显示在显示界面。

3.按取消键，则返回登录界面。

1.本界面为统计结果显示界面。

2.按返回键，关闭本界面，返回上一界面，即成绩输入界面。

3.按退出键，关闭各界面，结束程序。

六.关键程序

//后为该程序段解释

PrivateSubForm_load()

Dimsg()AsSingle,im(9)AsInteger

Dimint1,int2,int3AsInteger:Dimx,y,sb,sg1AsSingle

Dimn,m,zAsInteger

Dima,b,cAsIntegerDima,b,cAsInteger

//打开文件

im(0)=-1

n=0

DoWhileNotEOF(1)

n=n+1

ReDimPreservesg(n)

Input#1,sg(n)

Loop//读入数据

Close#1//关闭文件

m=2

DoWhilem=n

SelectCasesg(m)

CaseIs=90

im(9)=im(9)+1

CaseIs=80

2

im(8)=im(8)+1

CaseIs=70

im(7)=im(7)+1

CaseIs=60

im(6)=im(6)+1

CaseIs=50

im(5)=im(5)+1

CaseIs=40

im(4)=im(4)+1

CaseIs=30

im(3)=im(3)+1

CaseIs=20

im(2)=im(2)+1

CaseIs=10

im(1)=im(1)+1

CaseIs=0

im(0)=im(0)+1

CaseElse

a=1

EndSelect

m