VB程序设计实验-学生成绩管理系统电子教案
VB课程设计-学生成绩处理系统
长江大学Ｙanｇtｚe unｉveｒsｉtyＶB课程设计实习报告专业班级﹕储运1１001学生学号﹕20１007078学生姓名﹕彭壮班级序号﹕１6指导老师﹕冯翠丽完成时间﹕2011－１2—22一.设计题目学生成绩管理系统二．设计思路从文本中读取文件数据,利用VB的顺序结构，选择结构，循环结构编写程序代码，最终将各代码写入界面设计中的各菜单下.三．程序实现的目标本程序将实现从文本中读取数据，赋值数据，运算数据，实现对学生的加权平均值，名次，全班每门课的分数段，不及格同学名单，优等生名单等运算，并写入文件。
四.程序设计框图五。
运行结果原始成绩课程学分原始成绩和原始课程学分文件读取原始课程文件加权平均分成绩排名每门课程的班级平均分加权平均分分布每门课程及分布成绩条优等生名单不及格学生名单成绩查询系统按姓名查找示例﹕按学号查找示例﹕按名次查找示例﹕六.源程序模块代码：Type xscｊbxh As Ｓtringxm Ａs Ｓｔｒiｎgcj(1 Tｏ５）ＡｓIntegｅrａvｅr As ＳｉnglｅｍｃAs IntｅgerEnｄTyｐeTｙｐe keｃhen编号AｓIntｅgeｒ课程名As Strｉng学分As ＳingleEnd TｙpePublic sｔｕ（) As xｓcjbPｕblic ｋｅ（) AsｋechenPubliｃＮ%, M%,Zxf%Ｐuｂlic str Ａs Striｎg窗体代码：①Fｏrｍ1：Ｐｕblic Ｆunｃtion spａcｅ1（BｙVａl ssｓAs String）Diｍx％x ＝IｎStr（ｓsｓ, ＂＂）ＤｏWｈｉleｘ> 0sｓｓ＝Ｒeｐlace(ｓss，”", ”＂)x = InStr(ｓsｓ，" ”）Looｐsｐacｅ1 = ｓsｓEｎｄFuncｔｉonPrivａte Sｕb ajｑｆｓpｍ_Clicｋ（）Dim ｔ！, k As SinglｅFoｒm1.ClsＦorm1.ＦoｎtSize= 12Ｆorm1。
VB课程设计----学生成绩管理系统
一.课程设计题目学生成绩管理系统二．功能描述系统主要由四部分组成：系统用户的管理、学生成绩的管理、学生信息的管理、，学生成绩信息的统计，其中还包括登录界面等模块。
各模块的主要功能如下：（1）.系统用户的管理：实现用户的添加、删除和密码的修改(3).学生成绩的管理：实现学生成绩的录入，查询，删除和修改。
(4).学生成绩信息的统计：实现学生男女生人数以及不及格人数的统计。
(2).学生信息的管理：实现学生学籍信息的添加，查询、删除和修改。
三．概要设计对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如图1所示的系统功能模块图。
图1系统功能模块图四．数据库设计数据库在本成绩管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。
合理的数据库及结构设计可以提高数据存储的效率，保证数据的完整和一致。
同时合理的数据库结构也将有利于程序的实现。
设计本系统的数据库应该充分满足用户的需求。
针对一般学生管理系统的需求，通过对学生学习过程的内容的分析，设计如下面所示的数据项和数据结构。
（1）基本信息表：包括的字段有：学号，姓名，性别，年龄，联系电话，家庭住址。
表1 基本信息表（2）成绩表：包括的字段有：学号，姓名，性别，班级，高数成绩，英语成绩，计算机成绩。
表2 成绩表（表3密码表（4）教师密码表：包括的字段有：用户名，密码。
五．详细设计系统主要由五部分组成：系统用户的管理、学生成绩的管理、学生信息的管理、信息的查询，其中还包括登录界面以及成绩的统计模块。
各模块的主要功能如下：1.系统用户的管理：实现用户的添加、删除和密码的修改。
通过.Hide对象方法隐藏原有窗体界面，通过.Show对象方法显示所要用到的窗体界面。
2.学生信息的管理：通过创建数据库，连接数据库，调用数据库及Data控件Adodc 控件，MSHFlexGrid控件的使用来实现学生信息的添加，查询，删除和修改。
vb学生成绩管理系统
学生成绩管理系统组长(姓名、学号)：组员(姓名、学号)：专业班级：计算机指导教师：结束时间(年、月、日):目录摘要 (1)第1章开发背景和系统概述 (2)1.1开发背景 (2)1.2系统概述 (2)1.3开发环境 (3)第2章需求分析与功能介绍 (5)2.1需求分析 (5)2.2系统软件结构 (7)2.3系统功能介绍 (8)第3章主要界面设计与关键模块设计 (10)3.1主要界面设计 (10)3.2关键模块设计 (15)第4章系统数据库设计 (17)4.1数据库系统 (17)4.2系统数据库与VB的连接 (17)4.3数据库逻辑结构设计 (17)第5章系统整体评价及展望 (21)5.1整体评价 (21)5.2展望 (21)总结 (23)参考文献 (24)附录 (25)摘要为了更好的存储和管理学生信息, 在Windows XP平台上，使用Visual Basic6.0+Access 设计实现了学生信息管理系统。
学生成绩管理系统分为多个窗口：系统登陆窗口，系统主窗口，数据录入窗口，数据查询窗口，数据修改窗口等。
学生成绩管理系统启动后，出现登陆界面，在登陆界面输入用户相关信息，系统验证后，登陆到系统主界面，在系统主界面上根据不同的用户权限进行系统操作。
通过对窗口菜单的选择进入相应的管理界面，在相应的管理界面对所需管理的数据进行修改、添加、清理等操作。
本系统实现的功能包括用户管理（添加用户、撤销用户），信息维护（查找个人信息、修改密码），信息查询（成绩浏览、成绩查询、成绩添加、成绩删除）等。
本系统创建了一个数据库02.mdb，数据库中包括三个表：1.用户管理（use）---用户的基本信息（用户名、用户密码、用户类型）。
2.成绩管理---学生的课程包括学号、姓名、院系、专业、年制、学期、课程名称、分数等。
3.个人信息---学生的个人信息包括院系、专业、班级、学号、姓名、性别、政治面貌等。
同时还可利用系统中的文档编译器进行系统管理的同步记录及相关的文字信息记录。
基于vb的学生成绩管理系统设计与实现
基于VB的学生成绩管理系统设计与实现【1】简介学生成绩管理系统是一种能够帮助学校和老师管理学生成绩信息的工具。
通过该系统，可以方便地录入、查询、统计学生成绩，为学校和老师提供了高效便捷的管理方式。
本文将重点讨论基于VB的学生成绩管理系统的设计与实现。
【2】系统需求分析（1）功能需求学生成绩管理系统需要包括学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。
系统需要具有数据安全性和稳定性，能够保证学生成绩信息的准确性和完整性。
（2）性能需求系统需要能够实现快速的数据录入和查询，响应速度要较快。
系统需要支持大量数据的存储和处理，能够满足学校成绩管理的实际需求。
（3）界面需求系统的界面设计应简洁美观，操作要简单易懂，能够方便老师和管理员进行使用。
【3】系统设计（1）数据库设计设计学生成绩管理系统的数据库结构，包括学生信息表、成绩信息表和其他相关信息表。
需要考虑数据表的关联性和索引，以提高数据检索和统计的效率。
（2）界面设计通过VB的界面设计工具，设计系统的用户界面。
采用直观的界面布局和人性化的操作方式，使用户能够方便地进行各项操作。
（3）功能模块设计根据系统需求，划分出学生信息管理模块、成绩信息管理模块、成绩查询模块、成绩统计模块和报表打印模块。
设计各个功能模块的具体实现方式，并确保模块之间的协调和配合。
【4】系统实现（1）数据库连接与操作在VB中使用ADO技术，进行与数据库的连接和操作。
通过VB代码编写，实现对学生成绩数据库的增删改查等操作，确保数据的准确性和完整性。
（2）界面实现利用VB的窗体和控件设计，实现系统的用户界面。
包括各个功能模块的窗体设计和按钮控件的添加，使用户能够方便地进行各项操作。
（3）功能实现通过VB的编程语言，实现学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。
确保系统的稳定性和高效性，满足学校成绩管理的实际需求。
【5】个人观点与总结基于VB的学生成绩管理系统的设计与实现是一个综合性的工作，需要考虑到功能、性能和界面等多方面的需求。
VB程序设计实验-学生成绩管理系统
河南工业大学计算机上机实习报告**:***序号：11学号:************班级:食工 1004班指导老师: 任老师张老师日期:2011-03-05目录一：系统名称:学生成绩管理系统的设计与实现二：设计目的三：程序摘要四：系统设计流程五：相关数据列表六：小结七：程序代码（1）模块代码（2）窗体代码一.系统名称:学生成绩管理系统的设计与实现二.设计目的1. 熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2. 主要掌握VB语言中的结构体﹑指针及文件操作等内容3. 了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.三.程序摘要先在记事本中创建2个文本文档,分别输入本班24名学生在本学期的5门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生5门课的加权平均分,并按平均分排列名次.然后显示菜单,调用各个函数,完成以下功能:1．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放班级的成绩表.2．分别统计全班每门课的平均分和标准差,并计算各分数段(90分以上;80～90;70～79;60～69;60分以下)的学生数3．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放编号,课程名称,课程平均分,标准差,优秀,良好,中等,及格,不及格.4．打印每名学生成绩条,结果存放到用VB语言创建的一个数据文件中,成绩条格式为名次,学号,姓名,英语,数学,VB语言,物理,化学5．屏幕显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)6．屏幕显示优等生名单(含学号,N门课成绩,平均分,名次),优等生条件:a) 平均分>=90分b) 名次在本班位于前三名c) 平均分>=85分,并且至少有一门课的成绩>=95四、系统设计流程五.相关数据列表1、原始成绩表2、课程及学分3、计算加权平均分4、按平均分排名次5、打印每位同学的成绩条6、打印不及格的人7、打印优等生情况8、每门课的平均分9、各分数段人数六．小结在这次上机实习过程中，我了解了程序在Visual VB 6.0中调试并运的方法，并上机实践解决了一些平时没有机会解决和一些曾经被自己忽视的问题，如程序的排序对结果显示影响，标点符号对程序结果的影响，并养成了仔细检查程序的好习惯，加强了自己动手的能力。
《数据库技术》课程设计-VB学生成绩管理系统
《数据库技术》课程设计题目数据库课程设计学号姓名班级指导老师2010 年 6月 28日—2010 年 7 月 2 日目录：一、引言二、系统分析2.1 选择开发工具…………………………………2.2 系统规划………………………………………三、系统设计3.1 系统数据库设计………………………………3.2 系统的主要功能………………………………四、概述4.1目的与要求…………………………………..4.2设计环境……………………………………..五、数据库的实现与维护六、实例演示七、收获与心得体会一、引言主要是讨论如何解决根据学生成绩评估教学质量的信息化问题。
针对该问题，利用VB语言做了一个学生成绩评估系统，该系统能简化根据学生的成绩来对教学质量进行评估的过程，使老师的教学成果、学生的成绩变化都一目了然。
为达到所定的目的。
本系统主要使用了VB语言，SQL Server 2000系统，数据库等工具。
学生的成绩数据主要储存于SQL数据库，因此需要首先对数据库进行操作、处理。
本文首先概述了信息化教育的发展情况，讲明了开发学生成绩评估系统的必要性，接着阐述了学生成绩评估系统的基本设计思想及实现方法。
并以该系统为应用实例，介绍了用VB语言进行绘制图表以及使用SQL Server 2000及操作数据库的一些要注意的地方。
二、系统分析2.1 选择开发工具SQL Server 2000，VB。
2.2 系统规划学生成绩管理系统，主要涉及学生信息、课程信息、成绩信息等数据库表。
为简单起见，成绩可不考虑五级记分制的字符型分值，如优、良、中、及格、不及格等，只考虑数字型的分值，如 95，90，55等。
三、系统设计3.1 系统数据库设计数据项是数据库关系中不可再分的数据单位，下表分别列出了数据的名称、数据类型、长度、取值能否为空。
利用关系型数据库的特征，将学生成绩管理设计为1个数据库，包含3个数据库表。
(1)学生信息表：从成绩的角度，学生信息表包括学生学号、姓名、系别三个字段就够了，但考虑其它用处，还可将学生家庭联系信息 (如，邮政编码，通讯地址，收信人，电话等)也包括在学生信息表中。
用VB开发学生成绩管理系统
用VB 开发学生成绩管理系统在中职学校，对于学生基本信息和成绩的管理是学校的一项基本工作，也是学校教学管理的一个重要组成部分。
随着中职学校规模的不断扩大，人数增加，对于学生成绩的管理采用传统的手工管理方法已不能适应。
通过计算机系统对学生成绩进行管理，能极大提高学生成绩管理的效率，实现学生成绩管理的科学化、规范化。
一、系统功能设计(1)系统主要功能描述。
①用户管理：用来管理系统用户，可以添加用户名、修改用户密码。
②学生信息管理：学生基本情况汇总与管理，主要包括对学生成绩的添加、修改、删除和查询等操作。
③成绩管理：主要包括期末成绩、选修课程成绩管理。
主要包括对学生成绩的添加、修改、删除、查询和统计等操作。
④课程管理：主要包括对课程的添加、删除和查询等操作。
(2)在数据库方面，包括四个表。
①用户信息表，表名为UserInfo ，用于存储用户登录的基本信息，表结构如表 1 所示。
②学生信息表，表名为 Student，用于存储学生的基本信息，表结构如表2所示。
③成绩表，表名为 Grade，用于存储学生所学专业课程的期末成绩及课程的相关信息，表结构如表 3 如示。
④ 课程信息表，表名为 Course，用于存储学生所学专业课程的相关信息，表结构如表 4 所示。
建立数据库后，在上述各个表中录入一些数据，用于测试应用程序。
二、开发工具与数据库应用①采用 Microsoft Visual Basic 6.0 开发平台来完成系统的前台环境开发。
②采用 Microsoft Access 2000来完成数据库管理平台开发。
三、主要模块设计学生成绩管理系统，主要包括以下几个模块的设计。
(1)系统登录模块设计。
该模块完成系统的登录。
设计好登录逻辑后，将逻辑代码写入“登录”按钮所对应的 Click 事件过程中。
系统获取用户输入的用户名和密码后，将它们与数据库中存储的信息进行比较，如果匹配，则允许登录，跳转到系统主窗口；如果不匹配，则根据具体情况弹出相应的警告对话框。
vb课程设计学生成绩管理系统单片机
VB课程设计—学生成绩管理系统姓名：学号：班级：系别：电子工程系前言随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。
管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。
本文介绍了在VISUAL BASIC6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。
通过分析学生成绩管理的不足，创建了一套行之有效的计算机管理学生的方案。
文章介绍了学生成绩管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统面友好，操作简单，比较实用。
目录前言 (2)第一章学生成绩管理系统 (5)1．1需求分析 (6)1．1．1系统概述 (8)1. 1. 2功能需求描述 (10)第二章总体设计及流程图 (14)2.1开发与设计的总体思想 (15)2.2系统模块结构图 (16)2.2.1模块设计 (16)2.2.2界面设计 (17)2.2.3数据库设计………………………………………………………………107第三章详细设计 (12)3.1学生管理模块 (12)3.2教师管理模块 (13)3.3课程管理模块 (23)3.4成绩管理模块 (23)参考文献 (27)致谢 (27)前言几年的学习即将结束，经过几个月的努力，我所设计的“学生成绩管理系统”也已完成。
以往学的都是理论性很强的知识，再加上实践机会不多，更增强了我对计算机科学的兴趣。
在这段时间里，我增强了自己动手的能力，更重要的是似乎把握住了计算机的一些实质性的东西－－终于能够用我所学的知识解决一些实际应用的问题了。
但我知道，数据库技术只是计算机科学的一个小小分支，计算机还有更广阔的领域有待我们去探索。
这次毕业设计是用Visul Basic语言设计的“学生成绩管理系统”，?这就要求对Visul Basic语言及数据库技术能够真正了解和熟练的掌握，并且能够灵活的运用。
VB语言第5章教案：学生管理系统设计
VB语言第5章教案：学生管理系统设计。
一、需求分析在设计任何一个软件系统之前，我们都必须首先明确其需求。
对于学生管理系统来说，其主要需求包括学生信息的管理、课程管理、成绩管理、考勤管理、教师管理和课表管理等。
在分析每个需求之后，我们可以很清晰地得出学生管理系统的总体结构和模块设计。
二、概要设计在总体设计方面，我们需要对系统中的各个模块进行一个整体规划和设计。
1.学生信息管理模块该模块主要是为了管理学生的基本信息，包括学号、姓名、性别、年龄、联系方式等。
并且可以根据学生的学号和姓名来查询、修改和删除学生的信息。
2.课程管理模块该模块主要是为了对课程进行管理，包括课程编号、名称、授课老师、教材和上课时间等。
并且可以根据课程的编号、名称和任课老师来查询、修改和删除课程信息。
3.成绩管理模块该模块主要是为了管理学生的成绩信息，包括学生的学号、课程编号、成绩等。
并且可以根据学生的学号和课程编号来查询、修改和删除成绩信息。
4.考勤管理模块该模块主要是为了管理学生的出勤情况，包括学生的学号、课程编号、出勤情况等。
并且可以根据学生的学号和课程编号来查询、修改和删除考勤信息。
5.教师管理模块该模块主要是为了管理教师的基本信息，包括教师编号、姓名、性别、年龄、职称、所授课程等。
并且可以根据教师的编号和姓名来查询、修改和删除教师的信息。
6.课表管理模块该模块主要是为了管理课表信息，包括课程编号、课程名称、上课地点、上课时间等。
并且可以根据课程的编号和名称来查询、修改和删除课表信息。
三、详细设计一旦完成了整体设计之后，我们就可以开始详细设计每个模块里面的具体功能了。
1.学生信息管理模块在该模块设计中，我们需要主要实现添加、修改、删除和查询学生的信息功能。
2.课程管理模块在该模块设计中，我们需要主要实现添加、修改、删除和查询课程信息的功能。
3.成绩管理模块在该模块设计中，我们需要主要实现添加、修改、删除和查询成绩信息的功能。
vb学生成绩管理系统(2)上课讲义
Vb+sql学生成绩管理系统一、实验目的1.综合掌握实验一到实验六的内容。
2.掌握编程语言与数据库连接及访问表记录的方法。
二、实验准备1.综合以前所学知识，结合某种编程语言开发完整的系统；2.预习数据库与编程语言链接的相关内容；四、系统功能流程图五、实验内容及步骤Sql建表：create table studentstudent_ID char(4) NOT NULL ,student_Name char(10) NOT NULL , student_Sex char(2) NULL ,born_Date datetime NULL ,class_NO char(10) NULL ,tele_Number char(10) NULL ,ru_Date datetime NULL ,address varchar(50) NULL ,comment varchar(200) NULL)create table result(exam_No char(10) NOT NULL ,student_ID char(4) NOT NULL ,student_Name char(10) NULL ,class_No char(10) NULL ,course_Name char(10) NULL ,result float NULL)create table course(course_No char(10) NOT NULL ,course_Name char(10) NULL ,course_Type char(10) NULL ,course_Des char(50) NULL)create table class(class_No char(10) NOT NULL ,grade char(10) NULL ,director char(10) NULL ,classroom_No char(10) NULL)六、Vb开发欢迎界面欢迎界面设计思想：以动画形式开始整个程序设计代码：Option ExplicitDim Proba, Proba2 As IntegerDim Boja2 As StringPrivate Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String)Me.ScaleMode = vbPixelsWith slika.ScaleMode = vbPixels.AutoRedraw = TrueEnd WithFor Proba2 = 0 To slika.ScaleWidthDoEventsFor Proba = 0 To slika.ScaleHeightBoja2 = slika.Point(Proba2, Proba)Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2NextLine (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), BojaNextFor Proba2 = 0 To slika.ScaleHeightLine (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), BojaNextEnd FunctionPrivate Sub Form_Activate()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click()Unload MefrmLogin.ShowTimer1.Enabled = FalseEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer()Dim i, j As IntegerZrak Picture1, 565, 295, 0, 0, Me.BackColorIf Timer1.Interval = 1000 ThenFor i = 0 To 100For j = 0 To 100DoEventsNextNextEnd IfCall Form_ClickEnd Sub登陆界面登陆界面设计思想：输入用户名和密码进入学生成绩管理系统设计代码：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()'设置全局变量为 false'不提示失败的登录LoginSucceeded = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()'检查正确的密码If txtPassword = "0" Then'将代码放在这里传递'成功到 calling 函数'设置全局变量时最容易的LoginSucceeded = TrueUnload MeForm2.ShowMe.HideElseMsgBox "无效的密码，请重试!", , "登录" txtPassword.SetFocusSendKeys "{Home}+{End}"End IfEnd SubPrivate Sub Form_Load()End Sub主界面主界面设计思想：点击按钮进入不同的管理界面。
VB课程设计《学生成绩管理》
课程题目学生成绩管理（五星）0摘要在数据化的今天，一个好的系统可以解决很多不必要的麻烦，而学生的成绩管理的任务繁杂有易错。
在本系统中有十分人性化的设计，可以解决一些比较繁重的文字输入、用户的一般操作错误，同时对信息的保存有比较独特的处理。
1 功能1.1 基本功能运行程序后，首先会显示登录界面，要求在输入数据库文件的正确密码后才能登录，登录密码输入错误时，就会显示如图消息框提示重新输入，清除原输错的密码，若没有正确地密码，无论怎样都无法打开数据库。
（2）通过密检后，进入到主窗口，窗口中以表格的形式显示数据库中所有学生的姓名、院系、专业、年级、和四门课的课程成绩（数据多时会添加滚动条），但是对个人信息等不可以修改。
修改成绩时，同时修改时只能输入0~100的分数，输入其他符号或者分数超界是分别会出现相应的提示，并还原成绩。
在工具栏上点击“添加”时，会弹出添加窗体（下左），可其中相应位置输入学生的基本信息，但在若信息未输入完全时，又会弹出提示框。
在基本完全输入后，点击确定，数据被添加到主表格中，然后可以在表格中输入各科成绩。
（4）点击“查询”按钮，弹出查询窗体（如上右）,这时选择想要查询的信息，点击“确定”回到主窗体，此时表格上显示的即为符合条件的学生信息。
在查询中，三个信息可以指定也不指定，若均不指定即为查取所有学生信息，若三个信息条目未全选择的话，可以“深入查询”，即在已经显示的信息中进一步查询。
若不想继续查询，可以点击“返回主页”返回到信息总表以进行下一步操作（亮点部分将介绍到）。
（5）单击“删除”可以删除光标所处的单元格横向信息（下右），或者通过鼠标拖动选定一连串的几行信息，再点击删除键进行多项删除。
（6）单击工具栏上的“图表”，弹出图表窗体，默认为二维条形图，可以通过选择右下角的选项框来选择用二维圆饼图或者三维条形图来显示表格中的学生各科成绩分布情况。
(7) 单击“更改密码”按钮，弹出改密码窗体，要求在输入正确的密码后才能输入新密码,否则弹出消息框，并清除旧密码框的输入。
vb课程设计-学生成绩管理系统
vb课程设计-学生成绩管理系统学生成绩管理系统设计一、系统概述学生成绩管理系统是为了帮助学校或教育机构管理学生的成绩和相关信息而设计的一款应用软件。
该系统可以实现学生成绩的录入、查询、统计、分析等功能，帮助教师和管理人员更好地了解学生的学习情况，及时发现问题并采取相应措施。
二、系统功能设计1.学生成绩录入功能：教师可以通过系统录入学生成绩，包括考试成绩、平时成绩、课程作业成绩等。
录入成绩的同时，可以选择课程、班级和学生姓名等相关信息。
2.学生成绩查询功能：学生和家长可以通过系统查询学生成绩，了解自己的学习情况。
同时，教师和管理人员也可以通过系统查询学生成绩，掌握全班学生的学习情况。
3.学生成绩统计功能：系统可以对学生成绩进行统计，包括班级平均成绩、学科平均成绩、优秀率、不及格率等。
这些统计数据有助于教师和管理人员制定教学计划和改进教学方法。
4.学生成绩分析功能：系统可以对学生成绩进行分析，为教师和管理人员提供数据支持。
通过分析学生成绩，可以找出影响学生成绩的因素，例如缺乏自律、学习方法不当等，以便制定相应的教育措施。
5.学生成绩通知功能：系统可以实现学生成绩的自动通知，包括成绩公示、成绩单打印等，方便学生和家长了解学生成绩情况。
三、系统技术架构学生成绩管理系统采用B/S架构，即浏览器/服务器架构。
系统的前端使用HTML、CSS、JavaScript等技术实现，后端使用Java、Spring、MyBatis等技术实现，数据库采用MySQL进行存储。
系统采用响应式设计，支持在PC端和移动端进行访问和操作。
四、系统数据库设计系统数据库主要包括学生信息表、成绩信息表、教师信息表等。
学生信息表中包括学号、姓名、性别、班级、家长联系方式等字段；成绩信息表中包括学号、课程名称、考试成绩、平时成绩等字段；教师信息表中包括工号、姓名、所教课程等字段。
数据库采用二维表进行设计，并建立相应的索引和外键约束，确保数据的一致性和完整性。
vb学生成绩管理系统
vb学生成绩管理系统一、需求分析为了方便教师管理学生成绩，同时减轻教师的工作量，我们设计开发了一套vb学生成绩管理系统。
本系统的主要目标是为学校的师生提供一套方便、快捷、高效的管理系统。
系统包括学生管理、教师管理、课程管理和成绩管理等模块。
学生模块主要管理学生的基本信息，包括学生姓名、性别、年龄、所在班级、学号等。
教师模块主要管理教师的基本信息，包括教师姓名、性别、年龄、所在院系、职称等。
课程模块主要管理课程的基本信息，包括课程名称、学分、考试时间等。
成绩模块主要管理学生成绩信息，包括成绩编号、学生姓名、课程名称、成绩等。
二、系统设计1.功能模块(1)学生管理模块该模块主要用于实现对学生信息进行管理。
包括学生信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询学生成绩单的功能。
(2)教师管理模块该模块主要用于实现对教师信息进行管理。
包括教师信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询教师所教授的课程的功能。
(3)课程管理模块该模块主要用于实现对课程信息进行管理。
包括课程信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询课程的学生名单的功能。
(4)成绩管理模块该模块主要用于实现对学生成绩信息进行管理。
包括学生成绩信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询某一学生和某一课程的成绩的功能。
(5)登录模块该模块主要用于实现用户的登录和退出功能。
2.系统架构(1)系统主界面系统主界面分为三部分：菜单栏、工具栏和主窗口。
菜单栏提供了系统的主要功能，工具栏提供了快速访问系统功能的按钮，主窗口用于显示各个模块的内容。
(2)模块窗口每个模块都有一个单独的窗口，用于显示该模块所包含的功能。
在每个窗口中，都有一个菜单栏和一个工具栏。
菜单栏和工具栏提供了该模块的主要功能和快速访问方式。
三、系统实现1.数据库设计该系统使用了Access数据库，数据库包含四张表格，分别为“student”、“teacher”、“course”和“score”表格。
VB学生成绩管理系统
核心代码：Private Sub Command1_Click()dl.Hidexsdl.ShowEnd SubPrivate Sub Command2_Click()dl.Hidejsdl.ShowEnd SubPrivate Sub Form_Load()Label1.Width = dl.ScaleWidthLabel1.Left = dl.ScaleWidthEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width >= 0 Then Label1.Left = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidthEnd IfEnd Sub4.1.2学生登陆界面核心代码如下：Private Sub Command1_Click()UserName = ""If Trim(Text1.T ext) = "" ThenMsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"Private Sub Timer1_Timer()If Label1.Left + Label1.Width >= 0 Then Label1.Left = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidthEnd IfEnd Sub4.1.3教师登陆界面：核心代码如下所示；该界面代码与上个界面基本一致。
Private Sub Command1_Click() UserName = ""If Trim(Text1.T ext) = "" Thenxiugaimima.ShowEnd SubPrivate Sub Form_Load()Data1.RecordSource = "select * from 成绩表where 学号='" & xsdl.T ext1.T ext & "'" Data1.RefreshEnd Sub4.1.5学生密码修改界面：代码如下：Private Sub Command1_Click()If Trim(Text1.T ext) <> Trim(Text2.T ext) ThenMsgBox "密码输入不正确!", vbOKOnly + vbExclamation, "信息提示"Text1.SetFocusText1.T ext = ""ElseData1.RecordSource = "select * from 密码表where 用户名='" & xsdl.T ext1.T ext & " '" Data1.RefreshData1.Recordset.EditData1.Recordset.Fields("密码") = Text1.T extData1.Recordset.UpdateMsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"End IfEnd SubPrivate Sub Command2_Click() Text1.T ext = ""Text2.T ext = ""End SubPrivate Sub Command3_Click() Me.HideForm4.ShowEnd Sub4.1.6主窗体界面：代码如下：4.1.7添加用户界面：代码如下：Private Sub Command1_Click()If Trim(Text1.T ext) = "" ThenMsgBox "请输入用户名！", vbOKOnly + vbExclamation, "信息提示"Text1.SetFocusExit SubElseData1.RecordSource = "select * from 教师密码表where 用户名='" & Text1.T ext & "'" Data1.RefreshIf Not Data1.Recordset.EOF ThenMsgBox "用户已存在，请重新输入用户名！", vbOKOnly + vbExclamation, "提示信息" Text1.SetFocusText1.T ext = "": T ext2.T ext = "": T ext3.T ext = ""Exit SubEnd IfEnd SubPrivate Sub Command3_Click()Me.Hidemain.ShowEnd Sub4.1.8修改密码界面：代码如下：Private Sub Command1_Click()If Trim(Text1.T ext) <> Trim(Text2.T ext) ThenMsgBox "密码输入不正确!", vbOKOnly + vbExclamation, "信息提示"Text1.SetFocusText1.T ext = ""代码如下：Private Sub Command1_Click()If Text2.T ext = "" Or Text3.Text = "" ThenMsgBox "学号和姓名不能为空！", vbOKOnly + vbExclamation, "警告"Exit SubElseData1.RecordSource = "select * from 基本信息表where 学号='" & Trim(Text2.T ext) & " ' " Data1.RefreshIf Data1.Recordset.BOF = False And Data1.Recordset.EOF = False ThenMsgBox "输入的学号已经存在，请重新输入！", vbOKOnly + vbExclamation, "警告"Text2.T ext = ""Text3.T ext = ""Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click() Me.Hidemain.ShowEnd Sub4.2.0修改学生信息界面：Text5.T ext = ""Text6.T ext = ""Text7.T ext = ""Text8.T ext = ""Text9.T ext = ""End IfEnd IfEnd Sub4.2.1学生信息查询界面：代码如下：Private Sub Command1_Click()代码如下：Private Sub Command1_Click()If Text2.T ext = "" Or Text3.T ext = "" Or text4.T ext = "" Or Text5.Text = "" Or Text7.T ext = "" Or Text8.T ext = "" Or Text9.Text = "" ThenMsgBox "容不能为空，请重新输入！"ElseData1.Recordset.EditData1.Recordset.Fields(0) = Text2.T extData1.Recordset.Fields(1) = Text3.T extData1.Recordset.Fields(2) = text4.T extData1.Recordset.Fields(3) = Val(Text5.T ext)代码如下：Private Sub Command1_Click()If Text1.T ext = "" ThenMsgBox "请输入容！"ElseData1.Recordset.EditData1.Recordset.Fields(0) = Text2.T ext Data1.Recordset.Fields(1) = Text3.T ext Data1.Recordset.Fields(2) = text4.T ext Data1.Recordset.Fields(3) = Text5.T ext Data1.Recordset.Fields(4) = Text6.T ext Data1.Recordset.Fields(5) = Text7.T ext代码如下：Private Sub Command1_Click()If Combo1.T ext = "按学号" ThenData1.RecordSource = "select * from 成绩表where 学号='" & Text1.T ext & "'" Data1.RefreshElseData1.RecordSource = "select * from 成绩表where 姓名='" & Text1.T ext & "'" Data1.RefreshEnd IfIf Text1.T ext = "" ThenData1.RecordSource = "select * from 成绩表order by 平均成绩desc"Data1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()Me.Hidemain.ShowEnd SubPrivate Sub Form_Load()Data1.RecordSource = "select * from 成绩表order by 平均成绩desc" Data1.RefreshEnd Sub4.2.5项目统计界面：。
vb学生成绩管理系统
---------------------------------------------------------------最新资料推荐------------------------------------------------------vb学生成绩管理系统Visual Basic 程序设计题目：学生成绩管理系统学生姓名：冯佳新学生班级：计科 1102 学号：04111067 指导教师：朱辉提交日期：2019.6.7 1. 程序介绍该学生成绩管理系统是用 Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。
该系统采用了对窗体、基本控件的应用，选择结构的 if 语句，循环结构的循环语句 fornext 结构，菜单设计，过程，数据文件来构建整个程序。
2.程序结构图登录系统教师登录学生登录成绩管理添加用户添加删除添加删除查询成绩修改密码帮助退出系统3. 程序界面（1）教师的登录界面（2）教师对学生的成绩管理的界面（3）教师对学生添加用户的界面（4）学生的登录界面（5）学生查询成绩的界面（6）1 / 9学生修改密码的界面控件说明：标签：Lable1:用户名 Lable2:密码 Lable3:添加课程成绩 Lable4:学号 Lable5:姓名 Lable6:高等数学 Lable7:大学英语 Lable8:vb 程序设计 Lable9:大学物理 Lable10:班号 Lable11:密码 Lable12:登录界面 Lable13:班号 Lable14:密码 Lable15:学号 Lable16:姓名 Lable17:高等数学 Lable18:大学英语 Lable19:vb 程序设计 Lable20:大学物理Lable21:请输入原密码 Lable22:请输入新密码 Lable23:请确认新密码 Text1:显示文本数据 Text2:显示文本数据 ...... Text20:显示文本数据Text21:显示文本数据 Command1:登录 Command2:上一个Command3:下一个Command4:添加Command5:删除Command6:退出 Command7:上一个 Command8:下一个Command9:添加 Command10:删除 Command11:退出 Command12:登录 Command13:再登录 Command14:退出 Command15:查询 Command16:确定 Command17:确认 Command18:退出 4. 程序说明（1）变量说明 Dim usename As String 定义用户名 Dim pwd As String 定义用户密码 Private Type student 对 student 类型和公共变量的定义 num As String * 8 name As String * 6 gs As---------------------------------------------------------------最新资料推荐------------------------------------------------------ Integer yy As Integer vb As Integer wl As Integer End Type Dim s As student 记录变量 Dim filenum As Integer 随机文件编号 Dim lastrecord As Long 文件中最后一条记录的编号 Dim position As Long 当前记录编号Private Type message num As String * 6 pwd As String * 6 End Type Private Type password pwd As String * 6 End Type Dim n As password Dim m As message Dim filenb As Integer Dim filenum As Integer Dim lastrecord As Long Dim position As Long （2）过程说明根据程序设计思路，先新建所需要的窗口，然后再对窗口进行设计和美化，依次对各个窗口加入控件，实现相关的函数功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
河南工业大学计算机上机实习报告姓名:张翼飞序号：11学号:201048060413班级:食工 1004班指导老师: 任老师张老师日期:2011-03-05目录一：系统名称:学生成绩管理系统的设计与实现二：设计目的三：程序摘要四：系统设计流程五：相关数据列表六：小结七：程序代码（1）模块代码（2）窗体代码一.系统名称:学生成绩管理系统的设计与实现二.设计目的1. 熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2. 主要掌握VB语言中的结构体﹑指针及文件操作等内容3. 了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.三.程序摘要先在记事本中创建2个文本文档,分别输入本班24名学生在本学期的5门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生5门课的加权平均分,并按平均分排列名次.然后显示菜单,调用各个函数,完成以下功能:1．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放班级的成绩表.2．分别统计全班每门课的平均分和标准差,并计算各分数段(90分以上;80～90;70～79;60～69;60分以下)的学生数3．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放编号,课程名称,课程平均分,标准差,优秀,良好,中等,及格,不及格.4．打印每名学生成绩条,结果存放到用VB语言创建的一个数据文件中,成绩条格式为名次,学号,姓名,英语,数学,VB语言,物理,化学5．屏幕显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)6．屏幕显示优等生名单(含学号,N门课成绩,平均分,名次),优等生条件:a) 平均分>=90分b) 名次在本班位于前三名c) 平均分>=85分,并且至少有一门课的成绩>=95四、系统设计流程五.相关数据列表1、原始成绩表2、课程及学分3、计算加权平均分4、按平均分排名次5、打印每位同学的成绩条6、打印不及格的人7、打印优等生情况8、每门课的平均分9、各分数段人数六．小结在这次上机实习过程中，我了解了程序在Visual VB 6.0中调试并运的方法，并上机实践解决了一些平时没有机会解决和一些曾经被自己忽视的问题，如程序的排序对结果显示影响，标点符号对程序结果的影响，并养成了仔细检查程序的好习惯，加强了自己动手的能力。
但通过这次上机让我看到了自己在VB学习中的漏洞，不过看到自己亲自编出的程序，心里非常高兴，这要特别感谢我的辅导老师们的耐心讲解，细心的帮助我调试程序。
感谢学校老师给我们这样的机会，它有利于培养我们独立思考，求异思维的能力。
我深信这次课程设计，对我的VB学习以及今后的计算机等级考试的学习和考试会起到很大的促进作用，我从中看到了自己还有很多的不足，在这里真心的感谢两位老师的耐心的指点，今后我会更加努力学好计算机方面的知识！总之，这次实习让我受益良多，我更深的体会了细节决定成败，无论在以后上机还是学习做事中，我一定注意细节。
希望学校多给我们这样动手实践的机会，让我们在实践中发现问题，解决问题。
我会珍惜加倍这样难得的机会七、程序代码1、模块代码Type xscjbxh As Stringxm As Stringcj(1 To 5) As Integeraver As Singlemc As IntegerEnd TypeType kechen编号As Integer课程名称As String课程学分As Singleaver As SingleEnd TypePublic stu() As xscjbPublic ke() As kechenPublic N%, M%, Zxf% '总人数，课程数,总学分Public str As String2、窗体代码Private Sub Form_Load()Dim st1$(), str1$Open App.Path + "\chengji.txt" For Input As #1 Open App.Path + "\kecheng.txt" For Input As #2N = 0: M = 0: Zxf = 0 '总人数，课程数，总学分Line Input #2, str1Do While Not EOF(2)M = M + 1ReDim Preserve ke(M)Line Input #2, str1'Text1 = Text1 & vbCrLf & str1str1 = Trim(str1)str1 = space1(str1)st1 = Split(str1, " ")'Print st1(0), st1(1)ke(M).编号= st1(0)ke(M).课程名称= st1(1)ke(M).课程学分= st1(2)Zxf = Zxf + ke(M).课程学分LoopLine Input #1, str1'Text1 = str1Do While Not EOF(1)N = N + 1ReDim Preserve stu(N)Line Input #1, str1'Text1 = Text1 & vbCrLf & str1str1 = Trim(str1)str1 = space1(str1)st1 = Split(str1, " ")stu(N).xh = st1(0)stu(N).xm = st1(1)stu(N).cj(1) = st1(2)stu(N).cj(2) = st1(3)stu(N).cj(3) = st1(4)stu(N).cj(4) = st1(5)stu(N).cj(5) = st1(6)stu(N).aver = 0stu(N).mc = 0LoopEnd SubPublic Function space1(ByVal sss As String)Dim x%x = InStr(sss, " ")Do While x > 0sss = Replace(sss, " ", " ")x = InStr(sss, " ")Loopspace1 = sssEnd FunctionPrivate Sub yuancj_Click()Dim i%ClsPrint "学号姓名化学工程制图线代VB 物理" For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77)Next iEnd SubPrivate Sub Average_Click() '计算加权平均分Dim i%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iClsPrint "学号姓名平均分"For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(26); stu(i).averNext iEnd SubPrivate Sub GRS_Click() '统计各分数段人数Dim chengji(1 To 5, 1 To 5) As IntegerClsFor j = 1 To MFor i = 1 To NSelect Case stu(i).cj(j)Case Is >= 90chengji(1, j) = chengji(1, j) + 1Case 80 To 89chengji(2, j) = chengji(2, j) + 1Case 70 To 79chengji(3, j) = chengji(3, j) + 1Case 60 To 69chengji(4, j) = chengji(4, j) + 1Case Is < 60chengji(5, j) = chengji(5, j) + 1End SelectNext iNext jPrint " 范围化学工程制图线代VB 物理"Print "90分以上"; Tab(12); chengji(1, 1); Tab(24); chengji(1, 2); Tab(37); chengji(1, 3); Tab(47); chengji(1, 4); Tab(55); chengji(1, 5)Print "80-89分"; Tab(12); chengji(2, 1); Tab(24); chengji(2, 2); Tab(37); chengji(2, 3); Tab(47); chengji(2, 4); Tab(55); chengji(2, 5)Print "70-79分"; Tab(12); chengji(3, 1); Tab(24); chengji(3, 2); Tab(37); chengji(3, 3); Tab(47); chengji(3, 4); Tab(55); chengji(3, 5)Print "60-69分"; Tab(12); chengji(4, 1); Tab(24); chengji(4, 2); Tab(37); chengji(4, 3); Tab(47); chengji(4, 4); Tab(55); chengji(4, 5)Print "59分以下"; Tab(12); chengji(5, 1); Tab(24); chengji(5, 2); Tab(37); chengji(5, 3); Tab(47); chengji(5, 4); Tab(55); chengji(5, 5)End SubPrivate Sub minci_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iFor i = 1 To N - 1For j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfNext iClsPrint "学号姓名名次"For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).mcNext iEnd SubPrivate Sub MPJ_Click()Dim i%, j%For j = 1 To Mke(j).aver = 0For i = 1 To Nke(j).aver = ke(j).aver + stu(i).cj(j)Next ike(j).aver = Round(ke(j).aver / N, 2)Next jClsPrint " 化学工程制图线代VB 物理"Print ke(1).aver; Tab(13); ke(2).aver; Tab(26); ke(3).aver; Tab(36); ke(4).aver; Tab(45); ke(5).averEnd SubPrivate Sub Print59_Click()ClsPrint "学号姓名课程名称课程学分成绩"For i = 1 To NFor j = 1 To MIf stu(i).cj(j) <= 59 ThenPrint stu(i).xh; Tab(12); stu(i).xm; Tab(21); ke(j).课程名称; Tab(35); ke(j).课程学分; Tab(47); stu(i).cj(j)End IfNext jNext iEnd SubPrivate Sub printall_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf)Next iFor i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfClsPrint "学号姓名化学工程制图线代VB 物理平均分名次"For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77); stu(i).aver; Spc(6); stu(i).mcNext iEnd SubPrivate Sub PrintCJD_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iFor i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfNext iClsFor i = 1 To NPrint "学号姓名化学工程制图线代VB 物理平均分名次"Print stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77); stu(i).aver; Tab(85); Tab(90); stu(i).mcNext iEnd SubPrivate Sub PrintGood_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iFor i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfNext iClsPrint "学号姓名化学工程制图线代VB 物理平均分名次"For i = 1 To NFor j = 1 To MIf stu(i).cj(j) >= 95 And stu(i).aver >= 85 Then s = s + 1Next jflag = s >= 2 Or stu(i).aver >= 90 Or stu(i).mc <= 3If flag ThenPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77); stu(i).aver; Tab(85); Tab(90); stu(i).mc End Ifs = 0Next iEnd SubPrivate Sub yaunkc_Click()Dim i%ClsPrint "编号课程名称课程学分"For i = 1 To MPrint ke(i).编号; Tab(7); ke(i).课程名称; Tab(22); ke(i).课程学分Next iEnd Sub。