VB课程设-老纪.doc

此文档收集于网络，如有侵权，请联系网站删除学生成绩统计与查询系统设计报告学院 机械学院 班级 机设054 学号 050370 姓名 纪云霄 成绩 一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。 使用该系统时，首先要登陆，用户用户名或密码输入正确才能使用，即进入程序的主界面。最多可输入3次口令，若3次输入都错误，则禁止再次输入。 在程序的主界面中进行菜单设计。 通过菜单命令应能从数据文件中将学生姓名信息及课程的成绩（至少三门课的成绩）读入，并显示在文本框中。 通过菜单命令应能计算并显示每个学生的平均成绩。 通过菜单命令应能计算并显示数学、英语、计算机各科的平均成绩和总平均成绩及学生总人数 通过菜单命令应能计算出平均成绩大于与或等于总平均成绩、各科成绩均大与或等于各科的平均成绩的学生人数，即优秀生的人数，并显示优秀生的信息。 通过菜单命令应能根据学生的姓名进行查询。2.关键问题的解决定义数组分别用于存放姓名、数学、计算机、英语、平均成绩数据计算每个学生的平均成绩时，要计算每个学生所有科目的平均分，并存放在平均分数组的对应元素中；计算各科平均成绩时，分别对数学、英语、计算机的数组的数据求和，然后计算平均分；总平成绩为各科平均成绩之和除以科目数利用InputBox 函数来输入要查询的信息利用MsgBox 函数或另一个窗体来显示统计和查询结果。利用另一个窗体来显示优秀生的信息二、模块之间的调用关系，或程序流程图调用进入调用Form1Form2模块查询和统计三、部分程序关键源代码及注释line = 0 fileno = FreeFile Open App.Path & score.txt For Input As #fileno Do While Not EOF(fileno) line = line + 1 ReDim Preserve sn(line), sm(line), sc(line), se(line), sa(line) Input #fileno, sn(line), sm(line), sc(line), se(line) Loop Close #fileno a = line For i = 1 To a sa(i) = (sm(i) + sc(i) + se(i) / 3 a3 = a3 + se(i) a1 = a1 + sm(i) a2 = a2 + sc(i) Next ia1 = a1 / a 读入数据的代码a2 = a2 / aa3 = a3 / aa4 = (a1 + a2 + a3) / 3tjycx.Enabled = TrueFor i = 1 To aText1.Text = Text1.Text & sn(i) & & sm(i) & & sc(i) & & se(i) & vbCrLfNext iFor i = 1 To aIf sn(i) = na Then n = n + 1 Form4.Text1.Text = Form4.Text1.Text & sn(i) & & sm(i) & & sc(i) & & se(i) & & sa(i) & vbCrLfEnd If 按姓名查找代码NextIf n = 0 ThenMsgBox 查无此人四、设计方案的完善及目前存在的问题1设计方案要完善的地方在程序运行时，可以设置多个条件，然后根据给定的多个条件来统计或查询学生信息（如统计某个分数段的学生人数和显示该分数段内的学生信息等）为某些命令设置快捷键增加工具栏，工具栏中应有常使用的工具按钮五、本次设计的收获及心得体会1初步了解、熟悉、学会使用VB，能使用VB完成一些基本的任务2巩固了上学期学的VB的知识，而且进一步加深了理解六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议入门简单，容易下手做，但要完善他还是有一定的难度， 我们有很大的创新空间，能发挥每个同学的潜能，而且它是一个非常常见的程序，所以，容易使人理解，编写目的明确。综上所述，本题木是个很不错的课题2对本次设计的意见和建议本次活动培养我们综合利用VB语言进行程序设计的能力，培养了我们利