VB课程设学生成绩处理报告
- 格式:doc
- 大小:46.50 KB
- 文档页数:4
长江大学Yangtze universityVB课程设计实习报告专业班级﹕储运11001学生学号﹕201007078学生姓名﹕彭壮班级序号﹕16指导老师﹕冯翠丽完成时间﹕2011-12—22一.设计题目学生成绩管理系统二.设计思路从文本中读取文件数据,利用VB的顺序结构,选择结构,循环结构编写程序代码,最终将各代码写入界面设计中的各菜单下.三.程序实现的目标本程序将实现从文本中读取数据,赋值数据,运算数据,实现对学生的加权平均值,名次,全班每门课的分数段,不及格同学名单,优等生名单等运算,并写入文件。
四.程序设计框图五。
运行结果原始成绩课程学分原始成绩和原始课程学分文件读取原始课程文件加权平均分成绩排名每门课程的班级平均分加权平均分分布每门课程及分布成绩条优等生名单不及格学生名单成绩查询系统按姓名查找示例﹕按学号查找示例﹕按名次查找示例﹕六.源程序模块代码:Type xscjbxh As Stringxm As Stringcj(1 To5)AsIntegeraver As SinglemcAs IntegerEndTypeType kechen编号AsInteger课程名As String学分As SingleEnd TypePublic stu() As xscjbPublic ke() AskechenPublicN%, M%,Zxf%Public str As String窗体代码:①Form1:Public Function space1(ByVal sssAs String)Dimx%x =InStr(sss, "")DoWhilex> 0sss=Replace(sss,”", ”")x = InStr(sss," ”)Loopspace1 = sssEndFunctionPrivate Sub ajqfspm_Click()Dim t!, k As SingleForm1.ClsForm1.FontSize= 12Form1。
一.课程设计题目学生成绩管理系统二.功能描述系统主要由四部分组成:系统用户的管理、学生成绩的管理、学生信息的管理、,学生成绩信息的统计,其中还包括登录界面等模块。
各模块的主要功能如下:(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环境下功能强大、图形界面丰富的应用软件系统。
辽宁工业大学可视化编程技术课程设计(论文)题目:学生成绩管理系统院(系):软件学院专业班级: 计算机网络技术071班学号:0714060653学生姓名:刘育辰指导教师: 胡峰教师职称: 助教起止时间: 2008.12。
1至2008。
12。
14课程设计(论文)任务及评语目录第1章课程设计目的与要求ﻩ11。
1 课程设计目的 (1)1。
2 课程设计的实验环境 (1)1。
3 课程设计的预备知识ﻩ11.4 课程设计要求ﻩ1第2章课程设计内容 (2)2。
1 系统功能设计ﻩ22.2 系统详细设计 (4)122。
3系统运行与测试ﻩ第3章课程设计总结ﻩ14参考文献 (15)ﻬ第1章课程设计目的与要求1.1课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后,进行的一次全面的综合训练,其目的在于加深对可视化编程技术基本知识的理解,掌握运用VB开发应用程序的基本方法及基本技巧。
1.2课程设计的实验环境硬件要求能运行Windows9.X操作系统的微机系统。
软件:MicrosoftVisualBasic 6.0Microsoft Access 20031。
3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧.1.4课程设计要求按课程设计指导书提供的课题,每个小组设计一个完整的管理系统应用程序。
要求根据规定设计系统的具体要求,按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。
应根据基本学时分配合理安排设计时间,并独立完成各方面的设计。
选择同一题目的同学,可以共同协作完成一个应用程序的开发任务。
要求书写详细的设计说明书,对有复杂的代码段和程序段的部分,应画出程序流程图,写出全部的代码。
在界面设计中,需画出每个窗体的布局,进行属性说明,杜绝雷同。
第2章课程设计内容2。
1系统功能设计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).对教师用户的添加和删除工作。
学生成绩设计报告
学院机械学院班级机设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 "姓名"; Spc(10); "数学"; Spc(10); "物理"; Spc(10); "英语"; Spc(10); "计算机"
Print
fileno = FreeFile
Open App.Path & "\chengji0.txt" For Input As #fileno
ii = 1
Do While Not EOF(fileno)
Input #fileno, Nam(ii), Math(ii), Phy(ii), English(ii), Computer(ii)
Picture1.Print Nam(ii), Math(ii), Phy(ii), English(ii), Computer(ii)
ii = ii + 1
Loop
Close #fileno
ii = ii - 1
For i = 1 To ii
S_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。
Form2.Line (400, 500)-(700, 500), b
x0 = 500
y0 = 7500
For j = 1 To 10
Form2.Line (x0 + Gap * j, y0 - S_Aver(j) * 70)-(x0 + Gap * j + 500, y0), QBColor(j + 1), BF Form2.Line (x0 + Gap * j, 700)-(x0 + Gap * j + 500, 900), QBColor(j + 1), BF Next j
进度条控制:
Private Sub Command3_Click()
Timer1.Enabled = True
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
Dim a As Integer
a = 0
ProgressBar1.Value = 0
Do
a = a + 1
ProgressBar1.Value = ProgressBar1.Value + 1
Label15.Caption = ProgressBar1.Value
Loop Until ProgressBar1.Value > 77
Timer1.Enabled = False
End Sub
表格绘制:
Set ExcelApp = CreateObject("Excel.Application") '打印表格
Set Excelbook = ExcelApp.Workbooks.Add
ExcelApp.Visible = True
Set Excelsheet = Excelbook.Worksheets(1)
Excelsheet.Cells(1, 1) = "姓名"
Excelsheet.Cells(1, 2) = "数学"
Excelsheet.Cells(1, 3) = "物理"
Excelsheet.Cells(1, 4) = "英语"
Excelsheet.Cells(1, 5) = "计算机"
Excelsheet.Cells(1, 6) = "平均分"。
ExcelApp.Visible = True
表格保存:
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt" & "|word文档(*.doc)|*.doc"
CommonDialog1.Flags = &H4&
CommonDialog1.ShowSave
File = CommonDialog1.FileName
Exit Sub
Errhandler:
Exit Sub
Open File For Output As #MicrosoftExcel - Book1
Write #Excelsheet,
Close #Excelsheet
Excelbook.Close (True)
Excelbook.Application.Quit
Set Excelsheet = Nothing
Set Excelbook = Nothing
四、设计方案的完善及目前存在的问题
1.设计方案要完善的地方
①加些对成绩处理的多方面运用,比如说对学生单科成绩的排序和总成绩的排序
②多添加写控件,运用控件
2. 目前存在的问题
①在柱状图绘制中,标签的添加是手动加的显得有些慢
②form3中的表格的保存,只显示对话框而找不到保存的内容
③progressbar控件,还不能很好的使用
五、本次设计的收获及心得体会
通过对“学生成绩处理”进行Visual Basic程序设计,我发现自己原来学的Visual Basic程序设计知识是相当不足,在Visual Basic程序设计过程中有许多知识点都是现学和同学问的,比如“rogressBar“控件的的运用,Excel的打开和保存。
在程序设计过程中我学到了一些以前没用过的控件和文件在Visual Basic程序设计的操作,对以前常用的标签和控件运用的有了更深的了解和熟练
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
题目出的很好,很使用,可以在以后对学生成绩处理引用中这个程序。
难度有点高。
2.对本次设计的意见和建议
设计的不太成功,但是象这样的实际实践机会并不多,希望学校常做这样的设计。