VB课程设-老纪.docVIP

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