成绩统计与查询_20110612_2051.docVIP

课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码: 约150 主要涉及:基本控件的使用、文件读写、数组操作和菜单设计 一、设计题目：学生成绩统计与查询系统 二、目的与要求：1.目的：培养学生综合利用语言进行程序设计的能力，主要是培养学生 2.基本要求： 在程序的主界面中进行菜单设计。 通过菜单命令应能从数据文件中将学生姓名信息及课程的成绩（至少三门课的成绩）读入，并显示在文本框中。 通过菜单命令应能计算并显示每个学生的平均成绩。 通过菜单命令应能计算并显示数学、英语、计算机各科的平均成绩和总平均成绩及学生总人数。 通过菜单命令应能计算出平均成绩大于与或等于总平均成绩、各科成绩均大与或等于各科的平均成绩的学生人数，即优秀生的人数，并显示优秀生的信息。 通过菜单命令应能根据学生的姓名进行查询。 3.创新要求：在基本要求达到后，进行创新设计，工具栏、设计方法和基本原理： 问题描述：问题的解决方案：除了主窗体，还另外需要两个窗体。一个用来进行登陆，一个用来显示优秀生的信息。 登陆窗体用来限制非法用户进入系统，所以该窗体应为启动窗体。在用于登陆的窗体中，由于用户密码不能显示出来的，所以要设置文本框的Password属性。 ②编写代码 需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中，代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组，由于单击菜单命令时，要对数学、英语、计算机、平均成绩数组及各累加变量进行操作，因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点： 定义数组分别用于存放姓名、数学、计算机、英语、平均成绩数据。 单击“数据”菜单中“读入数据”，将数据文件中的数据依次读入到相应数组中。 计算每个学生的平均成绩时，要计算每个学生所有科目的平均分，并存放在平均分数组的对应元素中；计算各科平均成绩时，分别对数学、英语、计算机的数组的数据求和，然后计算平均分；总平成绩为各科平均成绩之和除以科目数 利用InputBox 函数来输入要查询学生的姓名。 利用MsgBox 函数或另一个窗体来显示统计和查询结果。 利用另一个窗体来显示优秀生的信息 四、问题的描述： Dim txt() As String,lines As Integer lines = 0 ‘ 文件行数总计 Open infile For Input As #1 ‘ 打开文件。infile 变量中存放的是文本文件的名字 Do While Not EOF(1) ReDim Preserve txt(lines + 1) ‘开辟空间以存放新一行内容 lines = lines + 1 Line Input #1, txt(lines) ‘读入一行并放入数组 Text1.Text = Text1.Text txt(lines) vbCrLf ‘在文本框中显示 Loop Close #1 ‘关闭文件 一旦数组中有了文件的内容，则可以将其内容逐行地、通过字符串连接符赋给文本框的Text属性，就可以显示出来了。要控制文本框中文本的换行可以利用VB的系统常数vbCrLf来实现。 在执行“统计”→“优秀生的人数与信息”时，由于信息是显示在另一个窗体中的Text1控件中，所以应在Text1控件前加上窗体的名称，并以点分隔来表明控件所属的窗体。如： Form3.Text1.Text = Form3.Text1.Text txt(lines) vbCrLf ‘在窗体Form3中的文本框中显示 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 VB参考资料中的“文本编辑器.ZIP” MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为B级，综合时乘难度系数0.9） 完成基本要求前5项(项目符号为“■”部分) 60 基本要求全部完成 80 创新要求完成任意1项(不包括“其它”) 90 创新要求完成2项以上(含2项) 100 [注：最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律、设计报告书、答辩情况综合得出。] VB课程设计任务书 – 学生成绩统计与查询系统 第2页共3页