《最新VB程序设计实验-学生成绩管理系统.doc》由会员分享，可在线阅读，更多相关《最新VB程序设计实验-学生成绩管理系统.doc（57页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VBVB 程序设计实程序设计实验验-学生成绩管理学生成绩管理系统系统Four short words sum up what has lifted most successful individuals above the crowd:a littlebit more.-author-date长江大学-河南工业大学计算机上机实习报告姓名:张翼飞序号：11长江大学-学号:201048060413班级:食工 1004 班指导老师:任老师 张老师日期:2011-03-05目录长江大学-一：系统名称:学生成绩管理系统的设计与实现二：设计目的三：程序摘要四：系统设计流程长江大学-五：相关数据列表六：小结
2、七：程序代码（1）模块代码长江大学-（2）窗体代码一.系统名称:学生成绩管理系统的设计与实现二.设计目的1.熟悉 VB 6.0 的开发环境,掌握基本的编程方法,熟悉用 VB 语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2.主要掌握 VB 语言中的结构体指针及文件操作等内容3.了解开发简单应用程序的全过程,包括:分析设计编程调试和编写报告.长江大学-三.程序摘要先在记事本中创建 2 个文本文档,分别输入本班 24 名学生在本学期的 5 门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生 5 门课的加权平均分,并按
3、平均分排列名次.然后显示菜单,调用各个函数,完成以下功能:1 用 VB 语言创建一个数据文件,文件名为:“VB 课程设计”,用来存放班级的成绩表.2 分别统计全班每门课的平均分和标准差,并计算各分数段(90 分以上;8090;7079;6069;60 分以下)的学生数长江大学-3 用 VB 语言创建一个数据文件,文件名为:“VB 课程设计”,用来存放编号,课程名称,课程平均分,标准差,优秀,良好,中等,及格,不及格.4 打印每名学生成绩条,结果存放到用 VB 语言创建的一个数据文件中,成绩条格式为名次,学号,姓名,英语,数学,VB 语言,物理,化学5 屏幕显示所有存在不及格课程的学生的名单(含
4、学号,不及格课程名称,课程的学分及成绩)6 屏幕显示优等生名单(含学号,N 门课成绩,平均分,名次),优等生条件:长江大学-a)平均分=90 分b)名次在本班位于前三名c)平均分=85 分,并且至少有一门课的成绩=95四、系统设计流程五.相关数据列表1、原始成绩表长江大学-2、课程及学分3、计算加权平均分长江大学-4、按平均分排名次长江大学-5、打印每位同学的成绩条6、打印不及格的人长江大学-7、打印优等生情况8、每门课的平均分长江大学-9、各分数段人数六小结在这次上机实习过程中，我了解了程序在 Visual VB6.0 中调试并运的方法，并上机实践解决了一些平时没有机会解决和一些曾经被自己忽
5、视的问题，如程序的排序对长江大学-结果显示影响，标点符号对程序结果的影响，并养成了仔细检查程序的好习惯，加强了自己动手的能力。但通过这次上机让我看到了自己在 VB 学习中的漏洞，不过看到自己亲自编出的程序，心里非常高兴，这要特别感谢我的辅导老师们的耐心讲解，细心的帮助我调试程序。感谢学校老师给我们这样的机会，它有利于培养我们独立思考，求异思维的能力。我深信这次课程设计，对我的 VB 学习以及今后的计算机等级考试的学习和考试会起到很大的促进作用，我从中看到了自己还有很多的不足，在这里真心的感谢两位老师的耐心的指点，今后我会更加努力学好计算机方面的知长江大学-识！总之，这次实习让我受益良多，我更深
6、的体会了细节决定成败，无论在以后上机还是学习做事中，我一定注意细节。希望学校多给我们这样动手实践的机会，让我们在实践中发现问题，解决问题。我会珍惜加倍这样难得的机会七、程序代码1、模块代码Type xscjbxhAs Stringxm As String长江大学-cj(1 To 5)As Integeraver As Singlemc As IntegerEnd TypeType kechen编号As Integer课程名称 As String课程学分 As Singleaver As Single长江大学-End TypePublic stu()As xscjbPublic ke()As k
7、echenPublic N%,M%,Zxf%总人数，课程数,总学分Public str As String2、窗体代码Private Sub Form_Load()Dim st1$(),str1$长江大学-Open App.Path+chengji.txt For Input As#1Open App.Path+kecheng.txt For Input As#2N=0:M=0:Zxf=0 总人数，课程数，总学分Line Input#2,str1Do While Not EOF(2)M=M+1ReDim Preserve ke(M)Line Input#2,str1Text1=Text1&vb
8、CrLf&str1长江大学-str1=Trim(str1)str1=space1(str1)st1=Split(str1,)Print st1(0),st1(1)ke(M).编号=st1(0)ke(M).课程名称=st1(1)ke(M).课程学分=st1(2)Zxf=Zxf+ke(M).课程学分Loop长江大学-Line Input#1,str1Text1=str1Do While Not EOF(1)N=N+1ReDim Preserve stu(N)Line Input#1,str1Text1=Text1&vbCrLf&str1str1=Trim(str1)str1=space1(str1
9、)长江大学-st1=Split(str1,)stu(N).xh=st1(0)stu(N).xm=st1(1)stu(N).cj(1)=st1(2)stu(N).cj(2)=st1(3)stu(N).cj(3)=st1(4)stu(N).cj(4)=st1(5)stu(N).cj(5)=st1(6)stu(N).aver=0长江大学-stu(N).mc=0LoopEnd SubPublic Function space1(ByVal sss As String)Dim x%x=InStr(sss,)Do While x 0sss=Replace(sss,)长江大学-x=InStr(sss,)Lo
10、opspace1=sssEnd FunctionPrivate Sub yuancj_Click()Dim i%ClsPrint 学号姓名化学工程制图线代VB物理For i=1 To N长江大学-Print stu(i).xh;Tab(12);stu(i).xm;Tab(22);stu(i).cj(1);Print Tab(36);stu(i).cj(2);Tab(46);stu(i).cj(3);Tab(57);stu(i).cj(4);Print Tab(66);stu(i).cj(5);Tab(77)Next iEnd SubPrivate Sub Average_Click()计算加权
11、平均分Dim i%长江大学-For i=1 To Nstu(i).aver=0For j=1 To Mstu(i).aver=stu(i).aver+stu(i).cj(j)*ke(j).课程学分Next jstu(i).aver=Round(stu(i).aver/Zxf,2)Next iClsPrint 学号姓名平均分长江大学-For i=1 To NPrint stu(i).xh;Tab(12);stu(i).xm;Tab(26);stu(i).averNext iEnd SubPrivate Sub GRS_Click()统计各分数段人数Dim chengji(1 To 5,1 To
12、5)As IntegerCls长江大学-For j=1 To MFor i=1 To NSelect Case stu(i).cj(j)Case Is=90chengji(1,j)=chengji(1,j)+1Case 80 To 89chengji(2,j)=chengji(2,j)+1Case 70 To 79chengji(3,j)=chengji(3,j)+1长江大学-Case 60 To 69chengji(4,j)=chengji(4,j)+1Case Is 60chengji(5,j)=chengji(5,j)+1End SelectNext iNext jPrint 范围化学工
13、程制图线代VB物理长江大学-Print 90 分以上;Tab(12);chengji(1,1);Tab(24);chengji(1,2);Tab(37);chengji(1,3);Tab(47);chengji(1,4);Tab(55);chengji(1,5)Print 80-89 分;Tab(12);chengji(2,1);Tab(24);chengji(2,2);Tab(37);chengji(2,3);Tab(47);chengji(2,4);Tab(55);chengji(2,5)Print 70-79 分;Tab(12);chengji(3,1);Tab(24);chengji(
14、3,2);Tab(37);chengji(3,3);Tab(47);chengji(3,4);Tab(55);chengji(3,5)长江大学-Print 60-69 分;Tab(12);chengji(4,1);Tab(24);chengji(4,2);Tab(37);chengji(4,3);Tab(47);chengji(4,4);Tab(55);chengji(4,5)Print 59 分以下;Tab(12);chengji(5,1);Tab(24);chengji(5,2);Tab(37);chengji(5,3);Tab(47);chengji(5,4);Tab(55);cheng
15、ji(5,5)End SubPrivate Sub minci_Click()长江大学-Dim i%,j%,k%,ti%,ts$,tsn!,ii%,ave!,kk%For i=1 To Nstu(i).aver=0For j=1 To Mstu(i).aver=stu(i).aver+stu(i).cj(j)*ke(j).课程学分Next jstu(i).aver=Round(stu(i).aver/Zxf,2)长江大学-Next iFor i=1 To N-1k=iFor j=i+1 To NIf stu(k).aver stu(j).aver Then k=jNext jts=stu(k)
16、.xh:stu(k).xh=stu(i).xh:stu(i).xh=tsts=stu(k).xm:stu(k).xm=stu(i).xm:stu(i).xm=ts长江大学-tsn=stu(k).aver:stu(k).aver=stu(i).aver:stu(i).aver=tsnFor ii=1 To Mti=stu(k).cj(ii):stu(k).cj(ii)=stu(i).cj(ii):stu(i).cj(ii)=tiNext iiNext ik=1:ave=stu(1).averFor i=1 To NIf stu(i).aver=ave Then长江大学-stu(i).mc=kEl
17、seave=stu(i).averk=k+1stu(i).mc=kEnd IfNext iClsPrint 学号姓名名次长江大学-For i=1 To NPrint stu(i).xh;Tab(12);stu(i).xm;Tab(22);stu(i).mcNext iEnd SubPrivate Sub MPJ_Click()Dim i%,j%For j=1 To Mke(j).aver=0长江大学-For i=1 To Nke(j).aver=ke(j).aver+stu(i).cj(j)Next ike(j).aver=Round(ke(j).aver/N,2)Next jClsPrint
18、 化学工程制图线代VB物理Print ke(1).aver;Tab(13);ke(2).aver;Tab(26);ke(3).aver;Tab(36);ke(4).aver;Tab(45);ke(5).aver长江大学-End SubPrivate Sub Print59_Click()Dim i%ClsPrint 学号姓名课程名称课程学分成绩For i=1 To NFor j=1 To MIf stu(i).cj(j)=59 Then长江大学-Print stu(i).xh;Tab(12);stu(i).xm;Tab(21);ke(j).课程名称;Tab(35);ke(j).课程学分;Tab
19、(47);stu(i).cj(j)End IfNext jNext iEnd SubPrivate Sub printall_Click()Dim i%,j%,k%,ti%,ts$,tsn!,ii%,ave!,kk%For i=1 To N长江大学-stu(i).aver=0For j=1 To Mstu(i).aver=stu(i).aver+stu(i).cj(j)*ke(j).课程学分Next jstu(i).aver=Round(stu(i).aver/Zxf)Next iFor i=1 To N-1k=iFor j=i+1 To N长江大学-If stu(k).aver stu(j)
20、.aver Then k=jNext jts=stu(k).xh:stu(k).xh=stu(i).xh:stu(i).xh=tsts=stu(k).xm:stu(k).xm=stu(i).xm:stu(i).xm=tstsn=stu(k).aver:stu(k).aver=stu(i).aver:stu(i).aver=tsnFor ii=1 To M长江大学-ti=stu(k).cj(ii):stu(k).cj(ii)=stu(i).cj(ii):stu(i).cj(ii)=tiNext iiNext ik=1:ave=stu(1).averFor i=1 To NIf stu(i).av
21、er=ave Thenstu(i).mc=kElseave=stu(i).aver长江大学-k=k+1stu(i).mc=kEnd IfNext iClsPrint 学号姓名化学工程制图线代VB物理平均分名次For i=1 To N长江大学-Print stu(i).xh;Tab(12);stu(i).xm;Tab(22);stu(i).cj(1);Print Tab(36);stu(i).cj(2);Tab(46);stu(i).cj(3);Tab(57);stu(i).cj(4);Print Tab(66);stu(i).cj(5);Tab(77);stu(i).aver;Spc(6);s
22、tu(i).mcNext iEnd SubPrivate Sub PrintCJD_Click()长江大学-Dim i%,j%,k%,ti%,ts$,tsn!,ii%,ave!,kk%For i=1 To Nstu(i).aver=0For j=1 To Mstu(i).aver=stu(i).aver+stu(i).cj(j)*ke(j).课程学分Next jstu(i).aver=Round(stu(i).aver/Zxf,2)Next iFor i=1 To N-1长江大学-k=iFor j=i+1 To NIf stu(k).aver stu(j).aver Then k=jNext
23、jts=stu(k).xh:stu(k).xh=stu(i).xh:stu(i).xh=tsts=stu(k).xm:stu(k).xm=stu(i).xm:stu(i).xm=tstsn=stu(k).aver:stu(k).aver=stu(i).aver:stu(i).aver=tsn长江大学-For ii=1 To Mti=stu(k).cj(ii):stu(k).cj(ii)=stu(i).cj(ii):stu(i).cj(ii)=tiNext iiNext ik=1:ave=stu(1).averFor i=1 To NIf stu(i).aver=ave Thenstu(i).m
24、c=kElse长江大学-ave=stu(i).averk=k+1stu(i).mc=kEnd IfNext iClsFor i=1 To NPrint 学号姓名化学工程制图线代VB物理平均分名次长江大学-Print stu(i).xh;Tab(12);stu(i).xm;Tab(22);stu(i).cj(1);Print Tab(36);stu(i).cj(2);Tab(46);stu(i).cj(3);Tab(57);stu(i).cj(4);Print Tab(66);stu(i).cj(5);Tab(77);stu(i).aver;Tab(85);Tab(90);stu(i).mcNe
25、xt iEnd SubPrivate Sub PrintGood_Click()长江大学-Dim i%,j%,k%,ti%,ts$,tsn!,ii%,ave!,kk%For i=1 To Nstu(i).aver=0For j=1 To Mstu(i).aver=stu(i).aver+stu(i).cj(j)*ke(j).课程学分Next jstu(i).aver=Round(stu(i).aver/Zxf,2)Next iFor i=1 To N-1长江大学-k=iFor j=i+1 To NIf stu(k).aver=95 And stu(i).aver=85 Then s=s+1Ne
26、xt jflag=s=2 Or stu(i).aver=90 Or stu(i).mc=3If flag ThenPrint stu(i).xh;Tab(12);stu(i).xm;Tab(22);stu(i).cj(1);Print Tab(36);stu(i).cj(2);Tab(46);stu(i).cj(3);Tab(57);stu(i).cj(4);长江大学-Print Tab(66);stu(i).cj(5);Tab(77);stu(i).aver;Tab(85);Tab(90);stu(i).mcEnd Ifs=0Next iEnd SubPrivate Sub yaunkc_Click()Dim i%Cls长江大学-Print 编号课程名称课程学分For i=1 To MPrint ke(i).编号;Tab(7);ke(i).课程名称;Tab(22);ke(i).课程学分Next iEnd Sub长江大学-