《长江大学VB上机实习报告范本》由会员分享，可在线阅读，更多相关《长江大学VB上机实习报告范本（12页珍藏版）》请在金锄头文库上搜索。
1、.计算机上机实习报告学院：石油工程学院_储运11204_魏亚荣_XXXXXXX班内序号：XX指导XXX目录一. 系统名称-3二. 实习目的-3三.系统功能概要-3四. 系统设计分析-3五窗体设计与程序代码-5六心得体会-16.一、系统名称-班级学生成绩管理系统二、实习目的：综合应用所学理论知识,联系实际开发一个具备简易功能的班级学生成绩管理系统。熟悉程序编写与调试,熟悉数据文件的创建、打开、读写、关闭等相关操作,同时让我们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。三、系统功能概要1、用记事本新建一个文本文件,将
2、本班的M名学生的有关信息及本学期的N门考试课的成绩要求用假想分数,并要求将自己的每门课的放在第一列输入到这个文件中,建议按如下形式存放:序号姓名幸运日 出生日期 英语 VB 数学 体育 专业课7作者自己8 99100 98 98 100 10 张某 6 1993.08.06 77 76 80 89 85 5 李某 1 1994.11.16 89 88 99 97 95 3 王某 6 1993.06.04 56 76 43 54 77 2 刘某 3 1994.01.05 82 87 85 79 89 1 孙某 2 1994.01.15 45 56 66 65 68 4 赵某 5 1992.01.
3、05 82 96 56 85 55 6 陈某 3 1993.12.25 86 86 66 86 879 周某 5 1666.12.23 56 96 65 56 568 钱某 6 1994.03.03 56 65 56 56 562、将本学期的N门课程及其学分输入到另一个数据文件文件类型同上题中,建议如下列形式存放：编号课程名称课程学分1 英语 5.02 vb程序设计 43 数学 4.54 体育 3.0 5 专业课 10.01找出出生日与幸运日相同的人,并打印出其信息每行输出一个人信息2统计出分别拥有幸运数字1,2,3,4,5,6,7,8,9,0的人数3能查出任何一个你感兴趣的人的信息4可新添加
4、一个人的信息5和删除一个人的信息6可以对某个人的幸运数字进行修改,只改变其幸运数字,其他信息不变7根据以上两文件内容分别计算每个学生N门课的加权平均分保留2位小数,4舍5入,按平均分排列名次,平均分相同则名次并列,如第1、2、2、4、5、5、7名。用VB创建一个数据文件,存放班级的成绩表,建议按以下形式存放。学号姓名英语vb程序设计 数学平均成绩名次1 张某 76 89 89 80.5 22 李某 91 96 67 78.2 33 王某 75 58 56 88.8 14 赵某 58 67 77 68.5 48分别统计全班每门课的平均分,并计算各分数段60分以下；6069；7079；8089；9
5、0分以上的学生人数。用VB创建一个新的数据文件,在该文件中存放数据的格式如下：范围. 英语 VB .=90 3 5 .80-89 10 12 . . . . . . . . . .9） 打印每名学生成绩条并将结果存放到用VB创建的一个新的数据文件中。10打印所有存在不及格课程学生的名单含学号、不及格课程名称、课程的学分及成绩。11打印优等生名单学号、门课成绩、平均分名次优等生条件：a) 平均分90分b) 名次在本班位于前三名c) 平均分85分,并且有二门课的成绩都95分选做内容：打印每门课成绩分布图说 明：所有输出结果应写入用VB创建的文件中,格式要整齐,并有适当的文字说明。实习报告要求：应包
6、括分析设计与说明、部分过程函数的源程序清单、程序调试过程中遇到的问题及解决方法,有待改善或改进的意见,对本次实习的意见与建议、收获等。其中原始数据及程序运行的结果应作为附录附于实习报告之后。四、系统设计分析：1、 该成绩管理系统中要同时表示学生的学号、姓名、成绩等一些信息,及课程、课程学分等一些信息,由于每项信息的意义不同,数据类型也不同,但还要同时作为一个整体来描叙和处理,因此需要通过用户自定义来解决。所以在编程之前新建一个标准模块用来定义自定义类型。2、 为了便于后面执行求加权平均分、排名等命令,在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中,由于这两个数组在该管
7、理系统的全程序都要用到,因此应定义为全局类型。如是在标准模块中定义两个数组。3、 由于原始数据文件中相邻的两列之间空格的长短不一,因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变为相同。4、 在编写程序时,由于该系统的程序代码较多,因此在编写时要合理。5、 在打印成绩条、不及格名单、优等生等信息时,应边用write语句分别将数据存入一个新的文件中。6、 实习必须按着老师的严格要求完成所有的实习任务,并整理成文件打印。五窗体设计与程序代码 1.此次窗体设计使用了11个命令按钮分别对应不同的系统功能要求,具体界面如下2.程序代码统计出生日
8、与幸运日相同的人Dim stu As student, n%, kc As kecheng, x%Private Sub Command1_ClickClsFor i = 1 To UBoundstu If Rightstu.birthday, 2 = stu.luckyday Then Print stu.num; stu.name; stu.luckyday; stu.birthday; For j = 1 To 5 Print stu.score; Next j Print End IfNext iEnd Sub统计不及格学生的名单Private Sub Command10_ClickC
9、lsPrint 序号; Spc; 姓名; Spc; 成绩; Spc; 学分; Spc; 课程; For i = 1 To UBoundstu For j = 1 To 5 If stu.score 60 Then Print Tab; stu.num; Spc; stu.name; Spc; stu.score; Spc; kc.xf; Spc; kc.km; End If Next j Next iEnd Sub打印优等生名单Private Sub Command11_ClickClsPrint 学号英语; Space; VB; Space; 数学; Space; 体育; Space; 专业
10、课; Space; 排名Dim zxf%, i%, j%, k%For i = 1 To UBoundkc zxf = zxf + kc.xfNext iFor j = 1 To UBoundstu For k = 1 To 5 stu.average = stu.average + stu.score * kc.xf / zxf stu.average = Formatstu.average, 0.00 Next kNext jFor m = 1 To UBoundstu stu.rank = 1 For n = 1 To UBoundstu If stu.average stu.avera
11、ge Then stu.rank = stu.rank + 1 End If Next nNext mFor i = 1 To UBoundstu k = 0 For j = 1 To 5 If stu.score = 95 Then k = k + 1 End If Next j If stu.average = 90 Or stu.rank = 3 Or stu.average = 85 And k = 2 Then Print stu.num; Space; stu.name; For m = 1 To 5 Print stu.score; Spc; Next m Print stu.rank End IfNext iEnd Sub统计各幸运数字的人数Private Sub Command2_ClickClsFor i = 0 To 9 Dim luckypeople% For
