资源描述：
《VB程序设计内容（大作业）.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB程序设计课程大作业题目名称：机械10905班学生成绩管理系统班级：_________机械10905班_____________姓名：____________王琛_______________班级序号：_______________30________________课程教师：李宁学期：2010-2011学年第2学期完成时间：2011-5-29VB程序设计课程大作业题目名称：机械10905班学生成绩管理系统班级：机械10905班姓名：王琛班级序号：30课程教师：李宁学期：2010-2011学年第2
2、学期完成时间：2011—5—29一.系统名称:长江大学机械10905班学生成绩管理系统二.程序摘要先在记事本中创建2个文本文档,分别输入本班52名学生在本学期的5门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生5门课的加权平均分,并按平均分排列名次.然后显示菜单,调用各个函数,完成以下功能:1用VB语言创建一个数据文件,文件名为:“成绩表”,用来存放班级的成绩表.2①分别统计全班每名同学每门课的加权平均分和名次,并将其存放进一个文件名为成
3、绩表的文件中。②统计每门课各分数段（90以上，80-90，70-80，60-70，60分以下)的学生数及平均分。将结果存放在一个新的数据文件中，文件名为“人数及平均分统计”。3打印每名学生成绩条,结果存放到用VB语言创建的一个数据文件中,文件名为:“成绩条”,成绩条格式为,学号,姓名,模拟电路，概率论，大学物理，机械工程导论，加权平均分，名次。4屏幕显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)5屏幕显示所有优等生名单(含学号,5门课成绩,平均分,名次),优等生条件(
4、只要满足三个中任一个就可以):a)平均分>=90分b)名次在本班位于前三名c)平均分>=85分,并且有两门课的成绩>=95分三.系统设计流程图学生成绩管理系统读文件分析与统计打印与输出成绩文件课程文件计算加权平均分按平均分排名次每名学生成绩条条不及格学生数优等生名单用“通用对话框”打开生成的文本文件各分数段人数及各科平均分班级成绩表四．系统运行结果1，登陆界面2,求加权平均分及名次3，成绩条4，优等生名单5，用“通用对话框”打开“文本文件”五．相应程序代码OptionBase1PrivateSubF
5、orm_load()'下面程序用于读“成绩”和“课程”两个文件Dimst1$(),str1$,zxf!,i%,j%Open"C:DocumentsandSettingsAdministrator桌面课程.txt"ForInputAs#2LineInput#2,str1DoWhileNotEOF(2)m=m+1ReDimPreserveke(m)LineInput#2,str1str1=Trim(str1)str1=space1(str1)st1=Split(str1,"")ke(m).kb=
6、st1(0)ke(m).kname=st1(1)ke(m).kxf=st1(2)zxf=zxf+ke(m).kxfLoopClose#2Open"C:DocumentsandSettingsAdministrator桌面成绩.txt"ForInputAs#1LineInput#1,str1DoWhileNotEOF(1)n=n+1ReDimPreservestud(n)LineInput#1,str1str1=Trim(str1)str1=space1(str1)st1=Split(str1
7、,"")stud(n).snum=st1(0)stud(n).sname=st1(1)stud(n).a(1)=st1(2)stud(n).a(2)=st1(3)stud(n).a(3)=st1(4)stud(n).a(4)=st1(5)stud(n).a(5)=st1(6)stud(n).aver=0stud(n).mc=0LoopClose#1'下面程序用于求每名学生的加权平均分Fori=1TonForj=1Tomstud(i).aver=stud(i).aver+stud(i).a(j)*ke
8、(j).kxfNextjstud(i).jqpjf=Format(stud(i).aver/zxf,"00.0")Nexti'下面程序用于求每名学成的名次Fork=1Tonp=ky=1Forq=1TonIfstud(p).jqpjf
