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。

一.课程设计题目学生成绩管理系统二．功能描述系统主要由四部分组成：系统用户的管理、学生成绩的管理、学生信息的管理、，学生成绩信息的统计，其中还包括登录界面等模块。

各模块的主要功能如下：（1）.系统用户的管理：实现用户的添加、删除和密码的修改(3).学生成绩的管理：实现学生成绩的录入，查询，删除和修改。

(4).学生成绩信息的统计：实现学生男女生人数以及不及格人数的统计。

(2).学生信息的管理：实现学生学籍信息的添加，查询、删除和修改。

三．概要设计对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如图1所示的系统功能模块图。

图1系统功能模块图四．数据库设计数据库在本成绩管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。

合理的数据库及结构设计可以提高数据存储的效率，保证数据的完整和一致。

同时合理的数据库结构也将有利于程序的实现。

设计本系统的数据库应该充分满足用户的需求。

针对一般学生管理系统的需求，通过对学生学习过程的内容的分析，设计如下面所示的数据项和数据结构。

（1）基本信息表：包括的字段有：学号，姓名，性别，年龄，联系电话，家庭住址。

表1 基本信息表（2）成绩表：包括的字段有：学号，姓名，性别，班级，高数成绩，英语成绩，计算机成绩。

表2 成绩表（表3密码表（4）教师密码表：包括的字段有：用户名，密码。

五．详细设计系统主要由五部分组成：系统用户的管理、学生成绩的管理、学生信息的管理、信息的查询，其中还包括登录界面以及成绩的统计模块。

各模块的主要功能如下：1.系统用户的管理：实现用户的添加、删除和密码的修改。

通过.Hide对象方法隐藏原有窗体界面，通过.Show对象方法显示所要用到的窗体界面。

2.学生信息的管理：通过创建数据库，连接数据库，调用数据库及Data控件Adodc 控件，MSHFlexGrid控件的使用来实现学生信息的添加，查询，删除和修改。

学生成绩查询系统一、实习任务 (2)二、系统分析 (3)三、系统设计 (4)四、调试、排错、测试、试运行过程 (7)五、源程序完整或主要代码 (10)六、总结与体会 (17)七、参考文献 (18)一、实习任务1实习任务介绍：熟悉软件工程学的基本思想进行软件开发的原则和方法；结构化分析方法和步骤；结构化编程方法；面向对象的思想和程序设计方法。

按照软件开发的一般方法和步骤动手设计一个《学生成绩查询统计系统》。

2基本要求：①登录界面：密码最多尝试3次，连续3次均输入错误系统自动退出。

②具有录入成绩、添加记录、删除记录、修改记录功能。

③具有成绩查询功能，可以按照学号、课程号、课程名、分数段进行查询。

为便于查询，所有的学号和课程号可考虑以下拉列表的形式给出。

④具有全部成绩浏览功能，且能与数据库表最新数据同步。

⑤具有统计功能，能以直方图、饼图、折线图、散点图、立体直方图直观表示各成绩段的分布情况。

⑥具有打印学生成绩报表的功能。

⑦具有菜单和工具条的双重操作功能。

3 实习目的：掌握常用控件的使用，学会使用通用对话框控件进行编程，掌握创建多重窗体程序的有关技术，了解鼠标和键盘事件及事件过程的编写，综合应用了所学知识，加深对VB的理解。

4 选题的背景及意义：VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。

它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。

在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

辽宁工业大学可视化编程技术课程设计（论文)题目：学生成绩管理系统院(系)：软件学院专业班级: 计算机网络技术0７1班学号：0714060６５3学生姓名：刘育辰指导教师: 胡峰教师职称: 助教起止时间： 20０8.12。

1至2008。

12。

1４课程设计（论文）任务及评语目录第1章课程设计目的与要求ﻩ１１。

1 课程设计目的 (1)１。

2 课程设计的实验环境 (1)1。

3 课程设计的预备知识ﻩ11.4 课程设计要求ﻩ1第２章课程设计内容 (2)２。

1 系统功能设计ﻩ２2.2 系统详细设计 (4)122。

３系统运行与测试ﻩ第３章课程设计总结ﻩ１4参考文献 (15)ﻬ第１章课程设计目的与要求1.１课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后,进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解,掌握运用ＶB开发应用程序的基本方法及基本技巧。

1.２课程设计的实验环境硬件要求能运行Windｏwｓ９.X操作系统的微机系统。

软件:ＭicroｓoｆｔVisｕaｌＢａsic 6．0Ｍｉcrosofｔ Acｃｅss ２0031。

3 课程设计的预备知识熟悉Vｉsual Bａｓiｃ 6.0程序设计的基本语法知识及常用技巧.1．４课程设计要求按课程设计指导书提供的课题,每个小组设计一个完整的管理系统应用程序。

要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。

应根据基本学时分配合理安排设计时间,并独立完成各方面的设计。

选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。

要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图,写出全部的代码。

在界面设计中,需画出每个窗体的布局,进行属性说明，杜绝雷同。

第２章课程设计内容2。

1系统功能设计２.1．1 系统功能分析学生信息管理系统主要用于对学校各院系的学生进行各种信息的管理，因此，该系统需要具备如下功能:(１）教师管理：包括教师信息(用户名、密码等)的录入、删除和查询等功能。

基于VB的学生成绩管理系统设计与实现【1】简介学生成绩管理系统是一种能够帮助学校和老师管理学生成绩信息的工具。

通过该系统，可以方便地录入、查询、统计学生成绩，为学校和老师提供了高效便捷的管理方式。

本文将重点讨论基于VB的学生成绩管理系统的设计与实现。

【2】系统需求分析（1）功能需求学生成绩管理系统需要包括学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。

系统需要具有数据安全性和稳定性，能够保证学生成绩信息的准确性和完整性。

（2）性能需求系统需要能够实现快速的数据录入和查询，响应速度要较快。

系统需要支持大量数据的存储和处理，能够满足学校成绩管理的实际需求。

（3）界面需求系统的界面设计应简洁美观，操作要简单易懂，能够方便老师和管理员进行使用。

【3】系统设计（1）数据库设计设计学生成绩管理系统的数据库结构，包括学生信息表、成绩信息表和其他相关信息表。

需要考虑数据表的关联性和索引，以提高数据检索和统计的效率。

（2）界面设计通过VB的界面设计工具，设计系统的用户界面。

采用直观的界面布局和人性化的操作方式，使用户能够方便地进行各项操作。

（3）功能模块设计根据系统需求，划分出学生信息管理模块、成绩信息管理模块、成绩查询模块、成绩统计模块和报表打印模块。

设计各个功能模块的具体实现方式，并确保模块之间的协调和配合。

【4】系统实现（1）数据库连接与操作在VB中使用ADO技术，进行与数据库的连接和操作。

通过VB代码编写，实现对学生成绩数据库的增删改查等操作，确保数据的准确性和完整性。

（2）界面实现利用VB的窗体和控件设计，实现系统的用户界面。

包括各个功能模块的窗体设计和按钮控件的添加，使用户能够方便地进行各项操作。

（3）功能实现通过VB的编程语言，实现学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。

确保系统的稳定性和高效性，满足学校成绩管理的实际需求。

【5】个人观点与总结基于VB的学生成绩管理系统的设计与实现是一个综合性的工作，需要考虑到功能、性能和界面等多方面的需求。

期末成绩处理设计报告一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力，主要是通过使用VB的标准控件，加深对控件的多个属性的认识及如何使用属性进行程序设计2.关键问题的解决①设计一个具有两个窗口的期末成绩统计的小程序②其中第一个窗口完成：学生人数和4门课成绩的录入，4门课的名称及学生人数由用户输入。

每录入完一个学生成绩后，将各门课成绩写入Excel表格中。

打开Excel表格查看写入的数据是否②第二个窗口用来绘制描述各科目平均成绩的柱形图，界面中还应包含坐标系、图表名称、各科成绩的平均分值、课程名称及色块③对窗口1的4个文本框要求：在输入成绩之前，焦点要在第一个文本框中，且文本为可编辑状态；当第一个文本框中输入2位数据后，焦点自动移入下一个文本框中，且文本状态和第一个相同文本框中只允许输入数字0、1、2、3、4、5、6、7、8、9及小数点“.”；文本框中文本的位数最大为2位输入学生成绩时窗口上要提示输入的是第几个学生成绩，并要求输入最后一个学生成绩后“写入数组”控件隐藏④全部学生成绩输入完成后，单击“写入Excel文件”控件，把学生成绩全部放在Excel表格中，要求有字段名内容。

⑤单击“打开Excel文件”控件，将打开刚刚生成的Excel表。

⑥单击“绘制柱形图”控件，打开第二个窗口，并显示以课程平均分为依据的柱状图。

⑦要想结束程序，应单击“退出”按钮。

三、部分程序关键源代码及注释Private Sub Command2_Click()'★创建EXCEL对象Set XlApp = CreateObject("Excel.Application")'★打开已经存在的EXCEL工件簿文件Set XlBook = XlApp.Workbooks.Open(App.Path & "\book.xls")'★设置EXCEL对象可见(或不可见)'XlApp.Visible = True'★设置活动工作表, sheet1表示表名，可以使用字符型变量代替。

摘要该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。

该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。

在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学生的登录。

整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。

摘要 (1)第一章任务概述 (3)1.1、目标 (3)1.2、需求分析 (3)1.2.1、鼠标操作 (3)1.2.2、键盘操作 (3)第二章总体设计 (4)2.1、系统结构图 (4)第三章详细设计 (5)3.1、程序运行后的界面 (5)3.2、教师的登录界面 (5)3.3、教师对学生的成绩管理的界面 (6)3.4、教师对学生添加用户的界面 (8)3.5、学生的登录界面 (10)3.6、学生查询成绩的界面 (12)3.7、学生修改密码的界面 (13)小结 (15)第一章任务概述1.1、目标本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。

该系统可以帮助我们更方便的管理学生的成绩，替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。

1.2、需求分析根据该系统的需求分析，系统的需求可以分为以下的几个方面：1.2.1、鼠标操作你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。

1.2.2、键盘操作你可以利用键盘对该系统的某些操作。

第二章总体设计2.1、系统结构图图2-1 系统结构图第三章详细设计3.1、程序运行后的界面图3-1 系统界面3.2、教师的登录界面图3-2 教师登录界面代码：Private Sub Command1_Click()Dim usename As String, pwd As String’定义用户名和用户密码usename = LCase(Trim(T1.Text))pwd = T2.TextIf usename = "admin" Then’判断用户名和密码是否正确If pwd = "123456" ThenUnload Me管理Form.ShowElseMsgBox "密码错误！", vbOKOnly + vbInformation, "提示"T2.SetFocusT2.SelLength = 99End IfElseMsgBox "用户名错误！"End IfEnd Sub3.3、教师对学生的成绩管理的界面图3-3 成绩管理界面主要代码：Private Type student ’对student类型和公共变量的定义num As String * 8name As String * 6gs As Integeryy As Integervb As Integerwl As IntegerEnd TypeDim s As student’记录变量Dim filenum As Integer’随机文件编号Dim lastrecord As Long’文件中最后一条记录的编号Dim position As Long’当前记录编号Private Sub addCmd_Click()’添加学生的成绩lastrecord = LOF(filenum) / Len(s)lastrecord = lastrecord + 1s.num = NumText.Text = NameText.Texts.gs = GsText.Texts.yy = YyText.Texts.vb = VbText.Texts.wl = WlText.TextPut #filenum, lastrecord, s’向随机文件写入数据NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = ""VbText.Text = ""WlText.Text = ""End SubPrivate Sub cancelCmd_Click()’删除学生的成绩Dim i As Integer, ft As Integer’定义变量lastrecord = LOF(filenum) / Len(s)ft = FreeFile()Open "student.tmp" For Random As ft Len = Len(s)’打开随机文件position = Seek(filenum)position = position - 1For i = 1 To lastrecordIf i <> position Then’判断是否与当前记录编号一致Get filenum, i, s’从随机文件读取数据Put ft, i, sEnd IfNextlastrecord = lastrecord - 1Close filenumClose ftKill "student.dat"Name "student.tmp" As "student.dat"filenum = FreeFileOpen "student.dat" For Random As #filenum Len = Len(s)’打开随机文件NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = ""VbText.Text = ""WlText.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "student.dat" For Random As #filenum Len = Len(s)position = Seek(filenum)Get filenum, position, sNumText.Text = s.numNameText.Text = GsText.Text = s.gsYyText.Text = s.yyVbText.Text = s.vbWlText.Text = s.wl3.4、教师对学生添加用户的界面图3-4 添加用户界面主要代码：Private Sub addlCmd_Click()’添加学生用户lastrecord = LOF(filenum) / Len(m)lastrecord = lastrecord + 1m.num = NumText.Textm.pwd = PwdText.TextPut #filenum, lastrecord, mNumText.Text = ""PwdText.Text = ""End SubPrivate Sub cancelCmd_Click()’删除学生用户Dim j As Integer, jt As Integerlastrecord = LOF(filenum) / Len(m)ft = FreeFile()Open "message.tmp" For Random As ft Len = Len(m) position = Seek(filenum)position = position - 1For i = 1 To lastrecordIf i <> position ThenGet filenum, i, mPut jt, i, mEnd IfNextlastrecord = lastrecord - 1Close filenumClose jtKill "student.dat"Name "message.tmp" As "message.dat"filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m) NumText.Text = ""PwdText.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m) position = Seek(filenum)Get filenum, position, mNumText.Text = m.numPwdText.Text = m.pwdEnd SubPrivate Sub Form_Load()filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m) position = Seek(filenum)Get filenum, position, mNumText.Text = m.numPwdText.Text = m.pwdEnd Sub3.5、学生的登录界面图3-5 学生登录界面主要代码：Private Type messagenum As String * 6pwd As String * 6End TypePrivate Type passwordpwd As String * 6End TypeDim n As passwordDim m As messageDim filenb As IntegerDim filenum As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click()’学生第一次登录If BText.Text = m.num ThenIf PText.Text = m.pwd ThenUnload Me管理Form.Show管理Form.c.Enabled = False管理Form.t.Enabled = False管理Form.xg.Enabled = TrueElseMsgBox "密码错误！", vbOKOnly + vbInformation, "提示"PText.SetFocusPText.SelLength = 99End IfElseMsgBox "班号错误！"End IfEnd SubPrivate Sub Command3_Click()’学生修改密码后的登录If BText.Text = m.num ThenIf PText.Text = n.pwd ThenUnload Me管理Form.Show管理Form.c.Enabled = False管理Form.t.Enabled = False管理Form.xg.Enabled = TrueElseMsgBox "密码错误！", vbOKOnly + vbInformation, "提示"PText.SetFocusPText.SelLength = 99End IfElseMsgBox "班号错误！"End IfEnd SubPrivate Sub Form_Load()登录Form.Visible = False管理Form.Showfilenb = FreeFileOpen App.Path & "\message.dat" For Random As #filenb Len = Len(m)添户Form.NumText.Text = m.num添户Form.PwdText.Text = m.pwdlastrecord = LOF(filenb) / Len(m)For i = 1 To lastrecordGet #filenb, i, mNextfilenc = FreeFileOpen App.Path & "\password.dat" For Random As #filenc Len = Len(n)改密码Form.xpwdtext.Text = n.pwdlastrecord = LOF(filenc) / Len(n)For i = 1 To lastrecordGet #filenc, i, nNextEnd Sub3.6、学生查询成绩的界面图3-6 成绩查询界面主要代码：Private Type studentnum As String * 8name As String * 6gs As Integeryy As Integervb As Integerwl As IntegerEnd TypeDim s As studentDim fileno As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command2_Click()’学生查询成绩fileno = FreeFileOpen App.Path & "\student.dat" For Random As #fileno Len = Len(s)添加Form.NumText.Text = s.num添加Text.Text = 添加Form.GsText.Text = s.gs添加Form.YyText.Text = s.yy添加Form.VbText.Text = s.vb添加Form.WlText.Text = s.wllastrecord = LOF(fileno) / Len(s)For i = 1 To lastrecordGet #fileno, i, sIf T1.Text = s.num ThenT2.Text = T3.Text = s.gsT4.Text = s.yyT5.Text = s.vbT6.Text = s.wlEnd IfNextEnd Sub3.7、学生修改密码的界面图3-7 修改密码界面主要代码：Private Type passwordpwd As String * 6End TypeDim n As passwordDim filenum As IntegerDim filenu As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click()’学生修改密码If qpwdtext.Text <> xpwdtext.Text Then’判断两次输入的新密码是否一致MsgBox "新密码和确认新密码不一致"ElseMsgBox "记得下次登录请用新密码，并登录时点击再登录"End Iflastrecord = LOF(filenum) / Len(n)lastrecord = lastrecord + 1n.pwd = xpwdtext.TextPut #filenum, lastrecord, nxpwdtext.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "password.dat" For Random As #filenum Len = Len(n)position = Seek(filenum)Get filenum, position, nxpwdtext.Text = n.pwd小结通过这一周的VB程序设计实践，我感觉学到了很多知识。

课程题目学生成绩管理（五星）0摘要在数据化的今天，一个好的系统可以解决很多不必要的麻烦，而学生的成绩管理的任务繁杂有易错。

在本系统中有十分人性化的设计，可以解决一些比较繁重的文字输入、用户的一般操作错误，同时对信息的保存有比较独特的处理。

1 功能1.1 基本功能运行程序后，首先会显示登录界面，要求在输入数据库文件的正确密码后才能登录，登录密码输入错误时，就会显示如图消息框提示重新输入，清除原输错的密码，若没有正确地密码，无论怎样都无法打开数据库。

（2）通过密检后，进入到主窗口，窗口中以表格的形式显示数据库中所有学生的姓名、院系、专业、年级、和四门课的课程成绩（数据多时会添加滚动条），但是对个人信息等不可以修改。

修改成绩时，同时修改时只能输入0~100的分数，输入其他符号或者分数超界是分别会出现相应的提示，并还原成绩。

在工具栏上点击“添加”时，会弹出添加窗体（下左），可其中相应位置输入学生的基本信息，但在若信息未输入完全时，又会弹出提示框。

在基本完全输入后，点击确定，数据被添加到主表格中，然后可以在表格中输入各科成绩。

（4）点击“查询”按钮，弹出查询窗体（如上右）,这时选择想要查询的信息，点击“确定”回到主窗体，此时表格上显示的即为符合条件的学生信息。

在查询中，三个信息可以指定也不指定，若均不指定即为查取所有学生信息，若三个信息条目未全选择的话，可以“深入查询”，即在已经显示的信息中进一步查询。

若不想继续查询，可以点击“返回主页”返回到信息总表以进行下一步操作（亮点部分将介绍到）。

（5）单击“删除”可以删除光标所处的单元格横向信息（下右），或者通过鼠标拖动选定一连串的几行信息，再点击删除键进行多项删除。

（6）单击工具栏上的“图表”，弹出图表窗体，默认为二维条形图，可以通过选择右下角的选项框来选择用二维圆饼图或者三维条形图来显示表格中的学生各科成绩分布情况。

(7) 单击“更改密码”按钮，弹出改密码窗体，要求在输入正确的密码后才能输入新密码,否则弹出消息框，并清除旧密码框的输入。

vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。

实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。

该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。

实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。

通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。

2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。

通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。

3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。

通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。

4. 测试程序：最后，我们需要对程序进行测试，验证程序的各项功能是否能够满足实际需求。

通过测试，我们可以发现程序中可能存在的问题，并及时进行修复和优化。

实验结果：经过一段时间的努力，我们成功地实现了一个简单的学生成绩管理系统。

该系统能够实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。

通过本次实验，我们不仅掌握了基本的程序设计方法和技巧，还提高了自己的编程能力。

结论：通过本次实验，我们深刻认识到了程序设计的重要性，以及通过VB程序设计可以实现复杂功能的能力。

同时，我们也意识到了编程过程中需要细心和耐心，以及对程序进行不断地调试和测试，才能确保程序的质量和稳定性。

希望通过不断地实践和学习，我们能够不断提高自己的编程能力，为实现更多复杂功能的程序做好准备。

学生成绩管理系统单位分院(系)专业学号学生姓名指导教师完成日期2012 年 6 月25 日摘要对于学生成绩的管理，在现代各类学校中的应用已经是相当普遍而且重要，传统的只是以纸质的成绩单虽然携带方便，但在现代，对于学生成绩的管理也略显的有些麻烦。

由于计算机技术的发展，越来越多的应用，管理，都会有计算机辅助完成。

尤其以visual basic软件为基础发展起来的vb技术已经相当成熟。

Vb技术面向对象的程序开发软件，由于其面向对象，事件驱动的特点，所以在程序编辑过程中有相当大的应用范围。

学生成绩管理系统也是利用visual basic 的这些优良特点，能够方便，灵活，轻松的完成对程序的编写。

本文基于vb编程程序，设计并实现了该系统中的项目管理子系统。

关键词：成绩管理系统，data，visual basic目录1.选题的意义 (4)2.系统功能需求分析 (4)2.1系统概述 (4)2.2系统的组成及各模块的功能 (4)2.3系统的运行环境 (10)3.系统设计 (10)3.1总体结构设计 (10)3.2数据库设计 (11)4.系统实现 (13)4.1登陆模块的设计与实现 (13)5.总结 (15)5.1总结 (15)参考文献 (16)学生成绩管理系统1.选题的意义学生成绩管理系统课题的选择，可以让学生熟知在编辑过程中应该用到的编辑语言，在以后的学习生活中，可以更加有利于对vb程序语言的使用，为个人成才，提供了非常大的裨益。

此外，成绩管理系统的编辑过程，可以帮助同学们更加辩证的审视在程序过程中遇到的问题，从而，更加息心调整在编程过程中遇到的难题。

2.系统功能需求分析2.1系统概述本系统着眼于学生成绩的管理工作，来帮助老师和学生管理考试成绩，从而更加便捷，快速的实现对学生成绩的管理工作。

其中，管理工作包括（1）.对学生成绩的录入。

（2）.对学生用户信息的修改，添加，以及删除工作。

（3）.对教师用户的添加和删除工作。

附录：一、设计的系统界面示意图二、涉及的代码清单简易计算器代码：Dim v As BooleanDim s As StringDim x As DoubleDim y As DoublePrivate Sub Command1_Click(Index As Integer) If Form.Tag = "T" ThenIf Index = 10 ThenText1.Text = "0."ElseText1.Text = command1(Index).CaptionEnd IfForm1.Tag = ""Elsea = Text1.TextText1.Text = a & Command1(Index).Caption End IfEnd SubPrivate Sub Command2_Click(Index As Integer) Form1.Tag = "T"If v Thenx = Text1.Text: v = Not vElsey = Text1.TextSelect Case sCase 0Text1.Text = x + yCase 1Text1.Text = x - yCase 2Text1.Text = x * yCase 3If y <> 0 ThenText1.Text = x / yElseMsgBox ("不能以0为除数") Text1.Text = xv = FalseEnd IfEnd Selectx = Text1.TextEnd Ifs = IndexEnd SubPrivate Sub Command3_Click() Form1.Tag = "t": y = Text1.Text Select Case sCase 0Text1.Text = x + yCase 1Text1.Text = x - yCase 2Text1.Text = x * yCase 3If y <> 0 ThenText1.Text = x / yElseMsgBox ("不能以0为除数")Text1.Text = xEnd IfEnd Selectx = Text1.Text: y = 0: v = False: s = 5End Sub学生成绩查询代码：Private Sub Form_Load() '初始化开的课程,在这里所有的班级都开设了这九门课程!Combo1.AddItem "数学"Combo1.AddItem "语文"Combo1.AddItem "英语"Combo1.AddItem "生物"Combo1.AddItem "化学"Combo1.AddItem "物理"Combo1.AddItem "政治"Combo1.AddItem "历史"Combo1.AddItem "地理"End SubPrivate Sub command4_Click()Dim a As SingleDim b As IntegerDim c As StringIf Combo1.Text = "数学" ThenAdodc1.Recordset("数学成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "语文" ThenAdodc1.Recordset("语文成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "英语" ThenAdodc1.Recordset("英语成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "生物" ThenAdodc1.Recordset("生物成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "化学" ThenAdodc1.Recordset("化学成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "物理" ThenAdodc1.Recordset("物理成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "政治" ThenAdodc1.Recordset("政治成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "历史" ThenAdodc1.Recordset("历史成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "地理" ThenAdodc1.Recordset("地理成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfAdodc1.Recordset("学生总分") = Val(Adodc1.Recordset("数学成绩")) + Val(Adodc1.Recordset("语文成绩")) + Val(Adodc1.Recordset("英语成绩")) + Val(Adodc1.Recordset("化学成绩")) + Val(Adodc1.Recordset("生物成绩")) +Val(Adodc1.Recordset("物理成绩")) + Val(Adodc1.Recordset("政治成绩")) + Val(Adodc1.Recordset("历史成绩")) + Val(Adodc1.Recordset("地理成绩"))a = CSng(Val(Adodc1.Recordset("学生总分")) / 9)b = InStr(Trim(Str(a)), ".")If b <> 0 ThenIf Val(Mid(Str(a), b + 3, 1)) >= 5 Thenc = Str(Val(Mid(Trim(Str(a)), 1, b + 2)) + 0.01)Elsec = Str(Val(Mid(Trim(Str(a)), 1, b + 2)))End IfAdodc1.Recordset("学生平均分") = Trim(c)ElseAdodc1.Recordset("学生平均分") = Trim(Str(a) & ".00")End IfAdodc1.Recordset.UpdateMsgBox "修改完毕！"End SubPrivate Sub Command2_Click()If Combo1.Text = "" ThenMsgBox "请选课程名！"Exit SubEnd IfAdodc1.RefreshAdodc1.Recordset.Find ("studentname like '" & Text4.Text & "' ")If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenMsgBox "123"ElseIf Combo1.Text = "数学" ThenText3.Text = Adodc1.Recordset("数学成绩")End IfIf Combo1.Text = "语文" ThenText3.Text = Adodc1.Recordset("语文成绩")End IfIf Combo1.Text = "英语" ThenText3.Text = Adodc1.Recordset("英语成绩")End IfIf Combo1.Text = "生物" ThenText3.Text = Adodc1.Recordset("生物成绩")End IfIf Combo1.Text = "化学" ThenText3.Text = Adodc1.Recordset("化学成绩")End IfIf Combo1.Text = "物理" ThenText3.Text = Adodc1.Recordset("物理成绩")End IfIf Combo1.Text = "政治" ThenText3.Text = Adodc1.Recordset("政治成绩")End IfIf Combo1.Text = "历史" ThenText3.Text = Adodc1.Recordset("历史成绩")End IfIf Combo1.Text = "地理" ThenText3.Text = Adodc1.Recordset("地理成绩")End IfEnd IfEnd SubPrivate Sub Command1_Click()Dim a As SingleDim b As IntegerDim c As StringIf Combo1.Text = "" ThenMsgBox "请选课程名！"Exit SubEnd IfAdodc1.RefreshAdodc1.Recordset.Find ("studentname like '" & Text4.Text & "' ") If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenMsgBox "123"ElseIf Combo1.Text = "数学" ThenAdodc1.Recordset("数学成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "语文" ThenAdodc1.Recordset("语文成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "英语" ThenAdodc1.Recordset("英语成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "生物" ThenAdodc1.Recordset("生物成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "化学" ThenAdodc1.Recordset("化学成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "物理" ThenAdodc1.Recordset("物理成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "政治" ThenAdodc1.Recordset("政治成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "历史" ThenAdodc1.Recordset("历史成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "地理" ThenAdodc1.Recordset("地理成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfAdodc1.Recordset("学生总分") = Val(Adodc1.Recordset("数学成绩")) + Val(Adodc1.Recordset("语文成绩")) + Val(Adodc1.Recordset("英语成绩")) + Val(Adodc1.Recordset("化学成绩")) + Val(Adodc1.Recordset("生物成绩")) + Val(Adodc1.Recordset("物理成绩")) + Val(Adodc1.Recordset("政治成绩")) + Val(Adodc1.Recordset("历史成绩")) + Val(Adodc1.Recordset("地理成绩"))a = CSng(Val(Adodc1.Recordset("学生总分")) / 9)b = InStr(Trim(Str(a)), ".")If b <> 0 ThenIf Val(Mid(Str(a), b + 3, 1)) >= 5 Thenc = Str(Val(Mid(Trim(Str(a)), 1, b + 2)) + 0.01)Elsec = Str(Val(Mid(Trim(Str(a)), 1, b + 2)))End IfAdodc1.Recordset("学生平均分") = Trim(c)ElseAdodc1.Recordset("学生平均分") = Trim(Str(a) & ".00")End IfAdodc1.Recordset.UpdateMsgBox "录入完毕！"End IfEnd SubPrivate Sub Command3_Click()Dim i As IntegerDim a(1 To 9) As SingleDim b(1 To 9) As StringAdodc1.RefreshAdodc1.Recordset.Find (" class like '" & Text1.Text & "' ")If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenMsgBox "123"ElseFor i = 1 To 9a(i) = Val(DataGrid1.Columns(DataGrid1.Col + i + 1))Next ij = 1End IfEnd Sub。

综合性实验实验名称:学生成绩管理系统实验报告专业班级:金融1202学生姓名：于淇学号：2012180227指导教师：刘素华一、系统的理论与技术基础1.1管理信息系统基础管理信息系统就是我们常说的MIS (Management Information System),是集成了计算机网络技术、信息处理技术，对信息进行收集处理、传输及存储，进行事务管理的一种人机交互的智能化计算机系统。

1.2软件工程理论对本系统的指导学生成绩管理系统的设计和开发是一个较为庞大的系统工程，应以软件工程的思想和方法为指导，进行设计和开发。

软件工程理论对本系统的指导，主要表现在：帮助我们理清思路，建立较为科学的结构和开发制作流程方面。

上述的各种理论，对我们设计和开发学生成绩管理系统提供了重要的理论基础，同时也为我们如何进行具体的设计和开发工作，提供了必要的思路和方法。

二、系统的分析2.1背景分析当今时代是飞速发展的信息时代，在各行各业中离不开信息管理处理，这正是计算机被广泛应用于管理系统的原因。

计算机的最大好处在于利用它能够进行信息管理。

使用计算机进行管理控制，不仅提高了工作效率，而且大大的提高了其安全性，尤其对于复杂的管理，计算机能够充分发挥它的优越性。

管理系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。

学生成绩管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生成绩管理系统能为用户提供充足的管理手段，对学生来说可以轻松的查阅自己在校的成绩及排名。

随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分，使用计算机对学生成绩信息进行管理，有着手工管理所无法比拟的优点。

例如：查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高学生成绩管理的效率，也是企业的科学化、正规化管理并与世界接轨的重要条件。

学生成绩设计报告学院机械学院班级机设074 学号050378 姓名李兴业成绩一、设计思路1.要达到的目的①用V B对象的思想来完成程序的设计，培养自己综合利用VB语言进行程序设计的能力。

②学会VB的标准控件，文件基本操作和ActiveX控件的运用③用VB程序绘制图表④用VB对数据的处理⑤对文件进行保存2.关键问题的解决①设计程序界面要在窗体上添加ProgressBar控件，请参考下列说明：执行“工程”菜单中的“部件”命令，或在工具箱的空白处单击鼠标右键，在弹出的快捷菜单中选择“部件”命令，打开“部件”对话框，在“控件”选项卡的控件列表中，选中Microsoft Windows Common Controls 6.0（即在其前面的方框中加上对勾），即可把公用控件添加到工具箱中。

②选取ProgressBar 控件Microsoft Windows Common Controls 6.0是一个控件组，它包含多个控件。

其中常用的是：ImageList ——图像列表控件Toolbar ——工具栏控件StatusBar ——状态栏控件ProgressBar ——进程条控件选取ProgressBar控件，并将其添加到窗体上。

③添加Excel类型库（扩充部分）VB本身提自动化功能可以读写EXCEL表，其方法如下：※在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。

表示在工程中要引用EXCEL类型库。

二、模块之间的调用关系，或程序流程图成绩输出：Picture1.Print "Printii = 1Picture1.Print Nam(ii), Math(ii), Phy(ii), English(ii), Computer(ii)ii = ii + 1LoopClose #filenoii = ii - 1For i = 1 To iiS_Aver(i) = (Math(i) + Phy(i) + English(i) + Computer(i)) / 4 ' 求平均成绩Next柱状图绘制：'Form2.Scale (500, 500)-(10000, 7500)Form2.Line (400, 7500)-(400, 100), b。

VB程序设计课程设计报告班级：资工10902 班姓名：何睦序号：05指导老师：少华邵燕林王庆君华朱小龙目录1、课设的目的 (3)2、界面设计和功能设计 (3)3、系统功能实施 (12)4、系统功能设计 (19)5、总结和体会 (28)一、课设的目的1.通过本次课程设计，提高实践动手能力；2.通过本次课程设计，进一步理解计算机程序设计的思路与方法；3.通过本次课程设计，进一步熟练运用VB的语言元素和流程控制语句；4.通过本次课程设计，达到能熟练使用各种常见的VB控件，理解面向对象的思想；5.通过本次课程设计，熟悉用户界面的设计；6.通过本次课程设计，熟悉数据访问控件ADO及相关对象的使用，能基于ADO控件实现Access的数据访问与操纵；二、界面设计和功能设计1、下面的界面为用户登陆界面：用户名和密码均已设定，用户名为zg，密码为10902，只有输入正确，然后点击“登陆“按钮才能进入主界面。

如果用户名或密码三次输入错误，则系统自动退出。

当你点击“退出“按钮时，弹出一个对话窗，界面如下：在对话框上点击“是”按钮，则退出系统，如果点击“否”，则该界面不变。

2、当用户名和密码均输入正确，点击“登陆”按钮，进入主界面——“学生成绩管理系统”界面，该界面是其他子界面的入口，界面如下：3、进入主界面后，点击“学生管理（删除\添加）”，进入学生管理界面，界面如下：该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击“添加“按钮，可以将数据录入到数据库中，如果此时点击”删除“按钮，则刚才输入的数据就会被删除，点击”保存“按钮时，输入的数据就会自动保存在数据库里，点击”返回主窗体“按钮，该窗体消失，主窗体出现。

4、在主界面点击“各科成绩查询“按钮，出现如下界面：该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。

学生成绩统计程序设计VB课程设计班级信管 C081 班成员（ 087267 ）齐琪（ 087264 ）龙泉江指导教师李艳2010/12/12目录1、设计题目 (3)2、设计思路 (3)①划分功能模块 (3)②确定各模块的算法 (3)3、过程图示 (5)4、程序清单 (5)5、更完善的方案 (7)6、收获与心得体会 (7)1、设计题目：学生成绩统计程序①在程序界面中单击“读入数据”按钮，从数据文件中将学生姓名信息及三门课程的成绩读入，此时可以在屏幕上显示读入了多少学生的信息（例如：读入了40名学生信息）。

②在程序界面中单击“统计”按钮，计算所有学生数学、英语、计算机的平均分数，统计每个学生三门课的平均分。

2、设计思路①划分功能模块分为四个模块：标准模块、全局变量模块、输入数据模块、统计模块。

②确定各模块的算法标准模块：定义结构体变量stu。

全局变量模块：定义全局变量，以便各程序使用、存储、共享各变量数据。

输入数据模块：运用for循环，“依次输入各学生的姓名和数学、英语、计算机的分数”，存入结构体数组；嵌入if条件语句，以输入姓名是空时为标志，结束输入，并把此时的i 的值减1后，赋值给t，t便是读入的学生人数。

统计模块：使用for循环，将结构体数组里各组的数学、英语、计算机三科分数平均，定义一个新的数组，存储求得的平均分，再依次输出各学生的各科成绩和平均分。

3、过程图示4、程序清单Dim a(100) As stu '存储学生信息Dim ave(100) As Double '存储学生平均成绩Dim t As Integer '记录读入学生人数Dim i As Integer '循环控制变量Private Sub Command1_Click()Print "依次输入各学生的姓名和数学、英语、计算机的分数："For i = 1 To 100 '输入学生各项信息a(i).name = InputBox("姓名：")If a(i).name = "" Then '当输入姓名为空时，结束输入t = i - 1Print ""Print "读入了" & t; "名学生信息" '显示读入多少名学生信息Exit ForEnd Ifa(i).x = InputBox("数学：")a(i).y = InputBox("英语：")a(i).z = InputBox("计算机：")Next iEnd SubPrivate Sub Command2_Click()Print ""Print "姓名数学英语计算机平均分数"Print "——————————————————————"For i = 1 To tave(i) = (a(i).x + a(i).y + a(i).z) / '计算各学生平均成绩Print a(i).name; " "; a(i).x; " "; a(i).y; " "; _a(i).z; " "; ave(i) '输出统计的所有学生的各科成绩和平均成绩Print "——————————————————————"Next iEnd Sub自定义类型标准模块程序：Type stu '设自定义类型为stuname As String '姓名x As Double '数学y As Double '英语z As Double '计算机End Type5、更完善的方案统计功能，不应该只是统计单个学生的平均分，而是需能统计所有学生的列平均分（单科成绩平均分），甚至统计出总分、最高分和最低分。

---------------------------------------------------------------最新资料推荐------------------------------------------------------ 基于VB的学生成绩管理系统设计说明学生成绩管理系统设计说明（本设计以 VB 为前台对数据库进行操作） 1. 需求本系统主要用于学校的学生成绩管理。

1. 用户身份的验证2. 学生基本信息管理3. 按班级选课4. 学生成绩的管理 2. 总体设计本系统包括：标准模块、系统登录模块、主界面模块、系统管理模块、学生基本信息管理模块、选课模块、成绩管理模块。

1. 标准模块定义公共变量和过程。

2. 系统登录模块进行用户身份的验证。

3. 主界面模块作为系统总界面，供用户进行各项选择。

4. 系统管理模块用户管理及系统退出。

5. 学生基本信息管理模块学生基本信息的录入和查询。

6. 选课模块为班级选课。

7. 成绩管理模块进行学生成绩的录入及查询。

3. 数据库设计及配置 3.1. 数据库设计该数据库由以下几个表组成：用户表、学生基本信息表、班级课程表、学生成绩表。

3.1.1 用户表包括用户名、密码、是否是超级用户。

字段名称用户名密码是否为超级用户数据类型文本文本布尔 3.1.2 学生基本信息表包括学号、姓名、电话、地址、班级名称、性别。

1/ 18字段名称数据类型学号文本姓名电话地址班级名称性别文本文本文本文本文本 3.1.3 班级课程表包括班级名称、课程名称。

字段名称班级名称课程名称数据类型文本文本 3.1.4 学生成绩表包括学号、课程名称、成绩。

字段名称学号课程名称成绩数据类型文本文本数值（单精度浮点型） 3.2. 数据库中各表关系学生基本信息表与班级课程表通过班级名称字段相关联，学生基本信息表与学生成绩表通过学号字段相关联，班级课程表与学生成绩表通过课程名称字段相关联。

4. 系统实现 4.1. 标准模块（公有模块） 4.1.1 标准模块中的数据定义用于定义全局变量及过程。