长江大学VB上机实习报告.doc

《长江大学VB上机实习报告.doc》由会员分享，可在线阅读，更多相关《长江大学VB上机实习报告.doc（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date长江大学VB上机实习报告长江大学VB上机实习报告计算机上机实习报告学院：石油工程学院班级：储运11204姓名：魏亚荣学号：XXXXXXX班内序号：XX指导教师：XXX目录一. 系统名称-3二. 实习目的-3三. 系统功能概要-3四. 系统设计分析-3五窗体设计与程序代码-5六心得体会-16-一、系统名称-班级学生成绩管理系统二、实习目的：综合应用所学理论知识，联系实际

2、开发一个具备简易功能的班级学生成绩管理系统。熟悉程序编写与调试，熟悉数据文件的创建、打开、读写、关闭等相关操作，同时让我们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。三、系统功能概要1、用记事本新建一个文本文件，将本班的M名学生的有关信息及本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的放在第一列）输入到这个文件中,建议按如下形式存放(注：20M50、5N8，下文以M=10,N=5为例):序号 姓名 幸运日 出生日期 英语 VB 数学 体育 专业课 7 作者自己 8 1992.12.19 99 1

3、00 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.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

4、56 56 56 2、将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：编号 课程名称 课程学分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）可新添加一个人的信息5）和删除一个人的信息6）可以对某个人的幸运数字进行修改，只改变其幸运数字，其他信息不变7）根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2

5、位小数，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；90分以上）的学生人数。用VB创建一个新的数据文件，在该文件中存放数据的格式如下：范围. 英语 VB .=90 3 5 .80-89 10 1

6、2 . . . . . . . . . .9） 打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。10）打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）。11）打印优等生名单（学号、门课成绩、平均分名次）优等生条件：a) 平均分 90分b) 名次在本班位于前三名c) 平均分85分，并且有二门课的成绩都 95分选做内容：打印每门课成绩分布图说 明：所有输出结果应写入用VB创建的文件中，格式要整齐，并有适当的文字说明。实习报告要求：应包括分析设计与说明、部分过程（函数）的源程序清单、程序调试过程中遇到的问题及解决方法，有待改善或改进的意见，对本次实习的

7、意见与建议、收获等。其中原始数据及程序运行的结果应作为附录附于实习报告之后。四、系统设计分析：1、 该成绩管理系统中要同时表示学生的学号、姓名、成绩等一些信息，及课程、课程学分等一些信息，由于每项信息的意义不同，数据类型也不同，但还要同时作为一个整体来描叙和处理，因此需要通过用户自定义来解决。所以在编程之前新建一个标准模块用来定义自定义类型。2、 为了便于后面执行求加权平均分、排名等命令，在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中，由于这两个数组在该管理系统的全程序都要用到，因此应定义为全局类型。如是在标准模块中定义两个数组。3、 由于原始数据文件中相邻的两列之间

8、空格的长短不一，因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变为相同。4、 在编写程序时，由于该系统的程序代码较多，因此在编写时要合理。5、 在打印成绩条、不及格名单、优等生等信息时，应边用write语句分别将数据存入一个新的文件中。6、 实习必须按着老师的严格要求完成所有的实习任务，并整理成文件打印。五窗体设计与程序代码 1.此次窗体设计使用了11个命令按钮分别对应不同的系统功能要求，具体界面如下2.程序代码统计“出生日”与幸运日相同的人Dim stu() As student, n%, kc() As kecheng, x%Pr

9、ivate Sub Command1_Click()ClsFor i = 1 To UBound(stu() If Right(stu(i).birthday, 2) = stu(i).luckyday Then Print stu(i).num; stu(i).name; stu(i).luckyday; stu(i).birthday; For j = 1 To 5 Print stu(i).score(j); Next j Print End IfNext iEnd Sub统计不及格学生的名单Private Sub Command10_Click()ClsPrint 序号; Spc(3)

10、; 姓名; Spc(3); 成绩; Spc(3); 学分; Spc(3); 课程; For i = 1 To UBound(stu() For j = 1 To 5 If stu(i).score(j) 60 Then Print Tab(0); stu(i).num; Spc(3); stu(i).name; Spc(2); stu(i).score(j); Spc(3); kc(j).xf; Spc(3); kc(j).km; End If Next j Next iEnd Sub打印优等生名单Private Sub Command11_Click()ClsPrint 学号英语; Spac

11、e(3); VB; Space(3); 数学; Space(3); 体育; Space(3); 专业课; Space(3); 排名Dim zxf%, i%, j%, k%For i = 1 To UBound(kc() zxf = zxf + kc(i).xfNext iFor j = 1 To UBound(stu() For k = 1 To 5 stu(j).average = stu(j).average + stu(j).score(k) * kc(k).xf / zxf stu(j).average = Format(stu(j).average, 0.00) Next kNext

12、 jFor m = 1 To UBound(stu() stu(m).rank = 1 For n = 1 To UBound(stu() If stu(m).average = 95 Then k = k + 1 End If Next j If stu(i).average = 90 Or stu(i).rank = 85 And k = 2) Then Print stu(i).num; Space(3); stu(i).name; For m = 1 To 5 Print stu(i).score(m); Spc(4); Next m Print stu(i).rank End IfN

13、ext iEnd Sub统计各幸运数字的人数Private Sub Command2_Click()ClsFor i = 0 To 9 Dim luckypeople% For j = 1 To UBound(stu() If Val(stu(j).luckyday) = i Then luckypeople = luckypeople + 1 End If Next j Print 幸运数字为 & i; 的人数为: & luckypeople luckypeople = 0Next iEnd Sub查询信息Private Sub Command3_Click()ClsDim rm As St

14、ring, i%, j%rm = InputBox(请输入你想要查询的同学的姓名)For i = 1 To UBound(stu() If Trim(stu(i).name) = rm Then Print stu(i).num; stu(i).name; stu(i).luckyday; stu(i).birthday; For j = 1 To 5 Print stu(i).score(j); Next j End IfNext iEnd Sub添加信息Private Sub Command4_Click()ClsDim xinxuesheng As Stringxinxuesheng =

15、 InputBox(请依次按照序号，姓名，幸运日，出生日期，英语，vb，数学，体育，专业课的顺序输入新同学的信息，中间用空格隔开)Open e:vb作业1.txt For Append As #1Print #1, xinxueshengPrintClose #1Do While InStr(Trim(xinxuesheng), ) 0 xinxuesheng = Replace(Trim(xinxuesheng), , )Loopa = Split(xinxuesheng, )n = n + 1ReDim Preserve stu(n)stu(n).num = a(0)stu(n).name

16、 = a(1)stu(n).luckyday = a(2)stu(n).birthday = a(3)For i = 1 To 5 stu(n).score(i) = a(3 + i)Next iFor i = 1 To UBound(stu() Print stu(i).num; stu(i).name; stu(i).luckyday; stu(i).birthday; For j = 1 To 5 Print stu(i).score(j); Next j PrintNext iEnd Sub删除信息Private Sub Command5_Click()ClsDim rm As Str

17、ingrm = InputBox(请输入你要删除的同学的姓名)For i = 1 To n If Trim(stu(i).name) = rm Then Exit For End IfNext i For j = i To n - 1 stu(j) = stu(j + 1) Next j ReDim Preserve stu(n - 1)For i = 1 To UBound(stu() Print stu(i).num; stu(i).name; stu(i).luckyday; stu(i).birthday; For j = 1 To 5 Print stu(i).score(j); N

18、ext j PrintNext iEnd Sub修改幸运数字Private Sub Command6_Click()ClsDim rm As String, shuzi As String, i%, j%rm = InputBox(请输入你要修改的同学的姓名)shuzi = InputBox(请输入你要修改后的幸运数字)For i = 1 To UBound(stu() If Trim(stu(i).name) = rm Then stu(i).luckyday = shuzi Print stu(i).num; stu(i).name; stu(i).luckyday; stu(i).bir

19、thday; For j = 1 To 5 Print stu(i).score(j); Next j End IfNext iEnd Sub计算每个学生的平均分Private Sub Command7_Click()ClsDim zxf%, i%, j%, k%For i = 1 To UBound(kc() zxf = zxf + kc(i).xfNext iFor j = 1 To UBound(stu() For k = 1 To 5 stu(j).average = stu(j).average + stu(j).score(k) * kc(k).xf / zxf stu(j).av

20、erage = Format(stu(j).average, 0.00) Next kNext jFor m = 1 To UBound(stu() stu(m).rank = 1 For n = 1 To UBound(stu() If stu(m).average = 90 Then o(i) = o(i) + 1 ElseIf stu(j).score(i) = 80 Then p(i) = p(i) + 1 ElseIf stu(j).score(i) = 70 Then q(i) = q(i) + 1 ElseIf stu(j).score(i) = 60 Then r(i) = r

21、(i) + 1 Else s(i) = s(i) + 1 End If Next jNext iPrint #4, =90; Spc(8);For i = 1 To 5 Print #4, o(i); Spc(4);Next iPrint #4,Print #4, =80; Spc(8);For i = 1 To 5 Print #4, p(i); Spc(4);Next iPrint #4,Print #4, =70; Spc(8);For i = 1 To 5 Print #4, q(i); Spc(4);Next iPrint #4,Print #4, =60; Spc(8);For i

22、 = 1 To 5 Print #4, r(i); Spc(4);Next iPrint #4,Print #4, 其他; Spc(8);For i = 1 To 5 Print #4, s(i); Spc(4);Next iPrint #4,Close #4End Sub打印学生成绩条Private Sub Command9_Click()Dim stu(1 To 20) As StringOpen e:成绩单.txt For Input As #5For i = 1 To 20Line Input #5, stu(i): Print stu(i)Next iClose #5End Sub文

23、本信息的输入Private Sub Form_Load()Dim str1 As String, a() As String, i%, str2 As String, b() As StringOpen e:学生信息.txt For Input As #1Line Input #1, str1Print str1Do While Not EOF(1) Line Input #1, str1 Do While InStr(Trim(str1), ) 0 str1 = Replace(Trim(str1), , ) Loop a = Split(str1, ) n = n + 1 ReDim Pr

24、eserve stu(n) stu(n).num = a(0) stu(n).name = a(1) stu(n).luckyday = a(2) stu(n).birthday = a(3) For i = 1 To 5 stu(n).score(i) = a(3 + i) Next i ClsLoopClose #1Open e:学分.txt For Input As #2Line Input #2, str2Print str2Do While Not EOF(2) Line Input #2, str2 Do While InStr(Trim(str2), ) 0 str2 = Rep

25、lace(Trim(str2), , ) Loop b = Split(str2, ) x = x + 1 ReDim Preserve kc(x) kc(x).bh = Val(b(0) kc(x).km = b(1) kc(x).xf = b(2)LoopClose #2ClsEnd Sub六心得体会1. 通过这次上机实习，我受益匪浅，不仅更加熟悉VB的操作和运行环境，同时将课堂上所学的知识进行了系统化的整理与疏导；2. 在此次上机实习中，我切身体会到了编程对我们现代生活的重要性，编程能大大地方便我们日常的生活，使我们上网，工作更快捷，一个人就能干许多人的事情，大大地节约了人力，这将使计算机的应用更加普遍和普及，使社会的生产效率越来越高。