第一篇：Vb课程设计-期末成绩处理
期末成绩处理课程设计报告（VB）编号：28
期末成绩处理设计报告
一、设计思路
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表示表名，可以使用字符型变量代替。Set XlSheet = XlBook.Worksheets(“Sheet1”)XlSheet.Range(“A1:IV65536”).Clear '★给EXCEL对象中的表的单元格附值? '★保存 EXCEL 文件 XlBook.Save '★另存为
'XlBook.SaveAs(“文件名”)
期末成绩处理课程设计报告（VB）编号：28
'★关闭工作簿
XlBook.Close(True)'★结束 EXCEL 对象 'xlExcel.Quit '★释放xlApp对象 Set XlApp = Nothing MsgBox “写入Excle成功” End Sub Private Sub Command3_Click()'★创建EXCEL对象
Set XlApp = CreateObject(“Excel.Application”)'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & “book.xls”)'★设置EXCEL对象可见(或不可见)XlApp.Visible = True End Sub
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方 ① 操作有点繁琐 2.目前存在的问题
① 开始时出现错误，但不影响使用
五、本次设计的收获及心得体会
加强了对VB的理解，让我更加明白VB的实际作用。
六、对该题目和VB设计的意见和建议
1.对该题目的意见和建议
不要单个输入，应该直接输入多个同学的成绩。2．对本次设计的意见和建议 难度应该降低点。
第二篇：VB 课程设计
学生成绩管理系统一、功能描述
首先简单地阐述本人所要实现系统的目的，然后应较详细的叙述本系统所要实现的功能。
************ *******
二、概要设计
1、系统功能模块框图设计
根据功能描述，建立系统的体系结构，即将整个系统分解成若干子功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能。
程序流程框图如图所示：（仅供参考）
图1 程序流程图
2、数据库设计
包括数据库的组成说明，数据库中各表的结构说明（包括字段名、字段类型等），可以包含图片例如下表：
表1 学生信息表
三、详细设计
详细说明主要窗体的实现过程，包括窗体的设计图片及其上所包含的控件名和属性设置；
详细说明主要操作的代码实现过程，包括过程间的调用关系（注：在此给出不完全代码）。如下所示：
1、账号登录
帐号登录模块中登录与注册两按钮，单击注册会进入注册模块中，单击登录会进入系统进行下一步的操作，帐号文本框与数据库相连接，当在帐号文本框输入帐号后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该帐号，且该帐号的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该账号或密码与帐号不相匹配，则会提示“帐号或密码错误”，帐号文本框会得到焦点，让重新输入。
（1）窗体截图（如图2）
图2 注册窗体
（2）功能实现
2、学生信息查询窗体
图3 查询窗体
四、调试中存在的问题及解决方法
包括调试过程中遇到的主要问题及采取的解决方法。例如：
1、注册账号出现的错误
数据库中帐号被设为主键，当注册时的帐号与数局库中的帐号有相同时就会出错。
2、解决方法：在写入数据库前先进行查询数据库
五、心得体会
本人在本次实习中取得的收获、遇到的困难、如何面对和克服各种困难、本系统的不足之处，将要改进的思想等。
六、参考文献
[1] 罗朝盛.Visual Basic 6.0程序设计教程(第3版).人民邮电出版社，2009年2月
[2] [3]
七、附录
包括全部源程序清单(程序中应有足够的注释)。
第三篇：VB课程设计
课程设计
学 院 班 级
指导老师
姓 名 学 号 成 绩
2013年 月 10
日
一．课程设计题目
学生管理系统
二．功能描述
按设定的用户名密码进行登录后，可按需求进行对数据库中已有的学生信息及成绩进行查询，添加，删除，修改等操作。
三．概要设计
登录界面功能：让用户进行登录。主界面功能：让用户选择进行哪项操作。
查询学生信息菜单功能：输入学生学号，对该学生的个人信息以
及成绩进行查询，若直接点击查询按钮，则显示全部学生个人信息及成绩。
编辑学生信息菜单功能：可对数据库中已有的学生信息进行查
询，添加，删除，修改等操作。
学生信息维护菜单功能：可对数据库中已有的学生成绩进行查
询，添加，删除，修改等操作。
四．详细设计
五．效果以及存在问题
说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。
登录界面
登录学生管理系统
按查询条件查询
打开修改学生信息子窗口
学生成绩维护子窗口
垂直窗口排列
关于窗口
不足：1.没有实现用户登录界面中的注册功能
2.没有实现主界面中文件下的新建和保存功能。
六．心得体会
经过几天的苦战，终于把课程设计粗略的做完了。刚开始做的时候，毫无头绪，一片茫然。好在书本上有类似的实验，可以供参考。尽管如此，真正做起项目来，还是有着这样那样的困难，有时一个空格少打都会出错，导致我检查了半天才发现问题所在。由于VB语法还运用不熟练，很多代码都是模仿书本上的敲的，许多代码往往能编译通过，但很多都会抛出各种异常，让人头疼。有时系统就给出个有个参数没有被指定值，就可以让人搞的焦头烂额。因此，写程序真的也很需要强大的耐心，只要熬下去了，当你做出程序时，也会倍有成就感。目前，程序是基本写完了，平常学的理论都得到了运用，感觉自己的能力也增强了。一句话，实践才是硬道理。
七．附录代码
（附上各模块代码）
1.登录界面
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Static n As Integer
If txtName.Text = “abc” And txtPassWord.Text = “123” Then
Dim form2 As New Form2()
form2.Show()
Me.Close()
Else
n = n + 1
If n < 5 Then
MsgBox(“请输入正确的用户名和密码！”, MsgBoxStyle.Critical)
Else
MsgBox(“请输入正确的用户名和密码！”, MsgBoxStyle.Critical)
Button1.Enabled = False
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click
Dim form3 As New Form3()
form3.Show()
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
End Sub End Class
2.查询学生菜单代码
Public Class Form6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS_KC As New OleDb.OleDbDataAdapter
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS_KC As New OleDb.OleDbCommand
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS_KC As New DataSet
Dim objDsXS As New DataSet
objConn.ConnectionString = “Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'”
objCommXS.CommandText = “ Select * From XS ”
objCommXS_KC.CommandText = “ Select * From XS_KC ”
objCommXS_KC.Connection = objConn
objDaXS_KC.SelectCommand = objCommXS_KC
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS_KC.Fill(objDsXS_KC, “XS_KC”)
objDaXS.Fill(objDsXS, “XS”)
objConn.Close()
DataGridView1.DataSource = objDsXS_KC.Tables(“XS_KC”)
DataGridView2.DataSource = objDsXS.Tables(“XS”)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS_KC As New OleDb.OleDbDataAdapter
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS_KC As New OleDb.OleDbCommand
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS_KC As New DataSet
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = “"
If Trim(TxtXH.Text)<> ”“ Then
WhereStr = ” 学号like “ + Trim(TxtXH.Text)
End If
objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“
objCommXS.CommandText = ” Select * From XS “
objCommXS_KC.CommandText = ” Select * From XS_KC “
If WhereStr <> ”“ Then
objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr
objCommXS_KC.CommandText = objCommXS_KC.CommandText & ”where“ & WhereStr
End If
objCommXS_KC.Connection = objConn
objDaXS_KC.SelectCommand = objCommXS_KC
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS_KC.Fill(objDsXS_KC, ”XS_KC“)
objDaXS.Fill(objDsXS, ”XS“)
objConn.Close()
DataGridView1.DataSource = objDsXS_KC.Tables(”XS_KC“)
DataGridView2.DataSource = objDsXS.Tables(”XS“)
End Sub End Class
3编辑学生信息菜单
Public Class Form7
Dim objDs As New DataSet
Dim objxstable As DataTable
Dim objda As New OleDb.OleDbDataAdapter
Dim wherestr As String
Public Sub refreshdata()
objda.Update(objDs, ”XS“)
objxstable.Clear()
bindgridview(wherestr)
End Sub
Public Sub bindgridview(ByVal strXH As String)
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
WhereStr = ”“
If Trim(TxtXH.Text)<> ”“ Then
wherestr = ” 学号like“ + Trim(TxtXH.Text)
End If
objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:XSCJ.mdb'“
objComm.CommandText = ” Select * From XS “
If WhereStr <> ”“ Then
objComm.CommandText = objComm.CommandText & ”where“ & WhereStr
End If
'把objConn设置为objConn的数据连接
objComm.Connection = objConn
objda.SelectCommand = objComm
'创建INSERT Command
Dim InsCommand As New OleDb.OleDbCommand(”INSERT INTO XS(学号,姓名,专业名,性别,出生日期,总学分,备注)VALUES(?,?,?,?,?,?,?)“, objConn)
InsCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)
InsCommand.Parameters.Add(”姓名“, OleDb.OleDbType.VarChar, 8, ”姓名“)
InsCommand.Parameters.Add(”专业名“, OleDb.OleDbType.VarChar, 10, ”专业名“)
InsCommand.Parameters.Add(”性别“, OleDb.OleDbType.VarChar, 2, ”性别“)
InsCommand.Parameters.Add(”出生日期“, OleDb.OleDbType.Date, Nothing, ”出生日期“)
InsCommand.Parameters.Add(”总学分“, OleDb.OleDbType.Integer, Nothing, ”总学分“)
InsCommand.Parameters.Add(”备注“, OleDb.OleDbType.VarChar, Nothing, ”备注“)
objda.InsertCommand = InsCommand
'创建Delte Command
Dim delcommand As New OleDb.OleDbCommand(”DELETE * from XS where 学号=?“, objConn)
delcommand.Parameters.Add(”学号“, OleDb.OleDbType.Char, 6, ”学号“)
objda.DeleteCommand = delcommand
'创建Update Command
Dim updCommand As New OleDb.OleDbCommand(”UPDATE XS SET 学号=?,姓名=?,专业名=?,性别=?,出生日期=?,总学分=?,备注=? WHERE 学号=?“, objConn)
updCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)
updCommand.Parameters.Add(”姓名“, OleDb.OleDbType.VarChar, 8, ”姓名“)
updCommand.Parameters.Add(”专业名“, OleDb.OleDbType.VarChar, 10, ”专业名“)
updCommand.Parameters.Add(”性别“, OleDb.OleDbType.VarChar, 2, ”性别“)
updCommand.Parameters.Add(”出生日期“, OleDb.OleDbType.Date, Nothing, ”出生日期“)
updCommand.Parameters.Add(”总学分“, OleDb.OleDbType.Integer, Nothing, ”总学分“)
updCommand.Parameters.Add(”备注“, OleDb.OleDbType.VarChar, Nothing, ”备注“)
updCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)
objda.UpdateCommand = updCommand
objConn.Open()
'打开数据库连接
objda.Fill(objDs, ”XS“)'填充数据
objxstable = objDs.Tables(”XS“)
objConn.Close()
'关闭数据集
'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了
DataGridView1.DataSource = objDs.Tables(”XS“)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellContentClick
TxtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString '显示学号
TxtStuXM.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString '显示姓名
TxtZY.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString '显示专业
TxtXB.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString '显示性别
TxtCSRQ.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString '显示出生日期
TxtStuZXF.Text = DataGridView1.CurrentRow.Cells.Item(5).Value.ToString '显示总学分
TxtBZ.Text = DataGridView1.CurrentRow.Cells.Item(6).Value.ToString '显示备注
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = ”“
If Trim(TxtXH.Text)<> ”“ Then
WhereStr = ” 学号like “ + Trim(TxtXH.Text)
End If
objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“
objCommXS.CommandText = ” Select * From XS “
If WhereStr <> ”“ Then
objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr
End If
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS.Fill(objDsXS, ”XS“)
objConn.Close()
DataGridView1.DataSource = objDsXS.Tables(”XS“)
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
wherestr = ”“
bindgridview(wherestr)
End Sub
Private Sub butAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butAdd.Click
Dim response As MsgBoxResult
response = MsgBox(”确定要添加记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = MsgBoxResult.Ok Then
Dim myRow As DataRow = objxstable.NewRow()
myRow(”学号“)= TxtStuXH.Text
myRow(”姓名“)= TxtStuXM.Text
myRow(”专业名“)= TxtZY.Text
myRow(”性别“)= TxtXB.Text
myRow(”出生日期“)= TxtCSRQ.Text
myRow(”总学分“)= TxtStuZXF.Text
myRow(”备注“)= TxtBZ.Text
objxstable.Rows.Add(myRow)
refreshdata()
End If
End Sub
Private Sub butEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butEdit.Click
Dim response As MsgBoxResult
response = MsgBox(”确定要修改记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = MsgBoxResult.Ok Then '用户选择“确定”
'修改学号
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(0)= TxtStuXH.Text
'修改姓名
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1)= TxtStuXM.Text
'修改专业
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2)= TxtZY.Text
'修改性别
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3)= TxtXB.Text
'修改出生日期
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4)= TxtCSRQ.Text
'修改总学分
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(5)= TxtStuZXF.Text
'修改备注
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(6)= TxtBZ.Text
refreshdata()'更新并刷新显示
End If
End Sub
Private Sub butDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butDelete.Click
Dim response As MsgBoxResult
response = MsgBox(”确定要删除记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = MsgBoxResult.Ok Then '用户选择“确定”
'除学生成绩表当前记录
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()
refreshdata()'更新并刷新显示
End If
End Sub End Class
4.学生成绩维护菜单
Public Class Form4
Dim objDs As New DataSet
Dim objXSTable As DataTable
Dim objDa As New OleDb.OleDbDataAdapter
Dim WhereStr As String
Public Sub refreshdata()
objDa.Update(objDs, ”XS_KC“)
objXSTable.Clear()
bindgridview(WhereStr)
End Sub
Public Sub bindgridview(ByVal strXH As String)
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
WhereStr = ”“
If Trim(TxtXH.Text)<> ”“ Then
WhereStr = ” 学号like“ + Trim(TxtXH.Text)
End If
objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:XSCJ.mdb'“
objComm.CommandText = ” Select * From XS_KC “
If WhereStr <> ”“ Then
objComm.CommandText = objComm.CommandText & ”where“ & WhereStr
End If
'把objConn设置为objConn的数据连接
objComm.Connection = objConn
objDa.SelectCommand = objComm
'创建INSERT Command
Dim InsCommand As New OleDb.OleDbCommand(”INSERT INTO XS_KC(学号,课程号,成绩,学分)VALUES(?,?,?,?)“, objConn)
InsCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)
InsCommand.Parameters.Add(”课程号“, OleDb.OleDbType.VarChar, 4, ”课程号“)
InsCommand.Parameters.Add(”成绩“, OleDb.OleDbType.Integer, Nothing, ”成绩“)
InsCommand.Parameters.Add(”学分“, OleDb.OleDbType.Integer, Nothing, ”学分“)
objDa.InsertCommand = InsCommand
'创建Delte Command
Dim delcommand As New OleDb.OleDbCommand(”DELETE * from XS_KC where 序号=?“, objConn)
delcommand.Parameters.Add(”序号“, OleDb.OleDbType.Char, 6, ”序号“)
objDa.DeleteCommand = delcommand
'创建Update Command
Dim updCommand As New OleDb.OleDbCommand(”UPDATE XS_KC set 学号=?,课程号=?,成绩=?,学分=? where 序号=?“, objConn)
updCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)
updCommand.Parameters.Add(”课程号“, OleDb.OleDbType.VarChar, 4, ”课程号“)
updCommand.Parameters.Add(”成绩“, OleDb.OleDbType.Integer, Nothing, ”成绩“)
updCommand.Parameters.Add(”学分“, OleDb.OleDbType.Integer, Nothing, ”学分“)
updCommand.Parameters.Add(”序号“, OleDb.OleDbType.Integer, Nothing, ”序号“)
objDa.UpdateCommand = updCommand
objConn.Open()
'打开数据库连接
objDa.Fill(objDs, ”XS_KC“)'填充数据
objXSTable = objDs.Tables(”XS_KC“)
objConn.Close()
'关闭数据集
'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了
DataGridView1.DataSource = objDs.Tables(”XS_KC“)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellContentClick
txtStuXKID.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString '显示ID
txtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString '显示学号
txtStuKCH.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString '显示课程号
txtStuCJ.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString '显示成绩
txtStuXF.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString '显示学分
End Sub
Private Sub btnDdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butAdd.Click
Dim response As MsgBoxResult
response = MsgBox(”确定要添加记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = MsgBoxResult.Ok Then
Dim myRow As DataRow = objXSTable.NewRow()
myRow(”学号“)= txtStuXH.Text
myRow(”课程号“)= txtStuKCH.Text
myRow(”成绩“)= txtStuCJ.Text
myRow(”学分“)= txtStuXF.Text
objXSTable.Rows.Add(myRow)
refreshdata()
End If
End Sub
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butEdit.Click
Dim response As MsgBoxResult
response = MsgBox(”确定要修改记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = MsgBoxResult.Ok Then '用户选择“确定”
'修改学号
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1)= txtStuXH.Text
'修改课程号
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2)= txtStuKCH.Text
' 修改成绩
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3)= txtStuCJ.Text
'修改学分
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4)= txtStuXF.Text
refreshdata()'更新并刷新显示
End If
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butDelete.Click
Dim response As MsgBoxResult
response = MsgBox(”确定要删除记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = MsgBoxResult.Ok Then '用户选择“确定”
'除学生成绩表当前记录
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()
refreshdata()'更新并刷新显示
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = ”“
If Trim(TxtXH.Text)<> ”“ Then
WhereStr = ” 学号like “ + Trim(TxtXH.Text)
End If
objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“
objCommXS.CommandText = ” Select * From XS_KC “
If WhereStr <> ”“ Then
objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr
End If
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS.Fill(objDsXS, ”XS_KC“)
objConn.Close()
DataGridView1.DataSource = objDsXS.Tables(”XS_KC“)
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
WhereStr = ”"
bindgridview(WhereStr)
End Sub End Class
5.主菜单界面代码
Public Class Form2
Private Sub quitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles quitMenuItem.Click
Me.Close()
End Sub
Private Sub importscoreMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles importscoreMenuItem.Click
Dim form4 As New Form4
form4.MdiParent = Me
form4.WindowState = FormWindowState.Normal
form4.Show()
End Sub
Private Sub updateinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles updateinfoMenuItem.Click
Dim form7 As New Form7
form7.MdiParent = Me
form7.WindowState = FormWindowState.Normal
form7.Show()
End Sub
Private Sub selectinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles selectinfoMenuItem.Click
Dim form6 As New Form6
Form6.MdiParent = Me
form6.WindowState = FormWindowState.Normal
form6.Show()
End Sub
Private Sub cascadeMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles cascadeMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub horizonMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles horizonMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub verticalMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles verticalMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub aboutMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles aboutMenuItem.Click
Dim form5 As New Form5
form5.MdiParent = Me
form5.WindowState = FormWindowState.Normal
form5.Show()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton1.Click
selectinfoMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton2.Click
updateinfoMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton3.Click
importscoreMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton4.Click
cascadeMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton5.Click
aboutMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton6.Click
quitMenuItem.PerformClick()
End Sub
Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripStatusLabel1.Click
aboutMenuItem.PerformClick()
End Sub End Class
八．参考文库
百度文库，百度知道
第四篇：vb课程设计
Visual Basic课程设计报告
题目1： 贪吃蛇 难度：**** 题目2： 难度： 指导教师：
姓 名： 学 号： 专 业： 班 级： 学 院：
日 期：
目录
1、题目简介...................................................................................................错误！未定义书签。
2、设计思路与总体方案.................................................................................................................3
2.1 窗体Form1.vb【设计】...................................................................................................3 2.2窗体Form2.vb【设计】..................................................................................................11 2.3窗体Form3.vb【设计】..................................................................................................14 2.4 窗体Form4.vb【设计】.................................................................................................14 2.5窗体Form5.vb【设计】....................................................................................................2.6窗体Form6.vb【设计】..................................................................错误！未定义书签。2.6 标准模块..........................................................................................................................14
3、设计过程遇到的主要问题及解决方法...................................................................................16
4、设计中尚存的不足分析...........................................................................................................16
5、心得体会...................................................................................................................................17
6、参考文献...................................................................................................................................17
1.题目简介
贪吃蛇是一种很流行的电子游戏。如图1所示，一条蛇在棋盘状的格子平面上爬行，由键盘控制其转弯；格子上随机出现五个数字（1~5），当蛇的头部碰到数字时会将数字“吃掉”，蛇的身体会变长。当蛇的头撞到障碍物时或碰到自己身体时，游戏结束。游戏结束时，蛇身体越长的分越高。
图1 程序启动时界面如图1所示，游戏平面有20*20个方格构成。使用回车键可以暂
停（如图2所示），蛇爬到边界时，如果未遇到障碍物，会从一侧爬出再从另一侧爬入。如果运动过程中，其头部碰到障碍物或自己，则被撞死，游戏结束。
图2 如果该用户的成绩超过记录成绩，则会显示图3所示的对话框提示输入用户名，以供记录成绩，排行榜界面如图4所示。
图3
图4
选择“设置”菜单命令，打开图5所示的“设置”对话框。在该对话框中可以选
择不同的障碍物形状，也可指定背景和障碍物颜色。
图5 为了使效果更好，我加了背景音乐和速度控制。
2、设计思路与总体方案
(说明用到哪些控件并进行难点分析，说明所使用到的模块、过程、变量、数组、自定义数据类型及其相互关系，必要时给出系统结构图等图表。
对如下事项逐步进行必要的分析、说明：
程序设计的主要思想，程序功能是如何实现的？
设计了几个程序模块(有几个窗体模块、几个标准模块)，各个功能模块的作者及想到之间的关系(模块间是如何传递信息和数据的，采用什么方式，为什么？)？
程序中定义了哪些主要的变量(分别定义了哪些过程级变量？模块级变量和全局变量)，这些变量起什么作用？是否全局变量？ 这里不需要给出大段的源程序，只需要给出关键的实现代码即可。)2.1 窗体Form1.vb【设计】
这是主界面，但也是最难的环节，之后要用到的控件与显示都要在其基础上发展。首先我们要将背景网格和蛇身画出来，由于受到了动态添加控件的启发，我用了powerpacks中的ovalshape来构造蛇身，lineshape来构造线，为了满足蛇的身体长长，用到了数组。由于代码之间有许多调配，在此我所举的代码皆主要起说明作用，实际情况可看源代码。代码如下：
Public num As Integer = 4 ‘记录蛇的长度，即ovalshape的个数
Public j As String‘记录Inputstring的字符串
Public p As Integer = 1‘记录MsgBox所产生的值
Dim w As Integer
Dim d As Integer ‘为键盘方向确定一固定值
Dim recordname As String‘记录玩家名字
Dim bnum As Integer = 1‘记录障碍物的个数
Public recordlist(7)As String ‘记录成绩
Public recordscore(7)As Integer
Public gametime As Integer ‘记录游戏进行所用时间
Public gameinterval As Integer = 200 ‘记录游戏Timer控件interval值
Public score As Integer ‘记录得分
Public direction As Integer
Public line(41)As LineShape
Public food(4)As RectangleShape
Public eye(2)As OvalShape '蛇的眼睛
Public a(num)As OvalShape '蛇的身体
Public word(4)As Label
Imports Microsoft.VisualBasic.PowerPacks Public a(num)As OvalShape ‘a（）为定义蛇身的数组，变量num用来记录蛇身个数
Public line(41)As LineShape Dim canvas = New Microsoft.VisualBasic.PowerPacks.ShapeContainer
For i = 4 To 0 Step-1 a(i)= New OvalShape
a(i).Size = New Size(20, 20)a(i).Top = 360 a(i).Left = 120 + 20 * i a(i).FillStyle = FillStyle.Solid a(i).FillColor = Color.Yellow a(i).Parent = canvas Next
a(0).FillColor = Color.Red ‘給蛇上色 a(0).BackColor = Color.Red Dim i As Integer
canvas.parent = Me.Panel1 For i = 0 To 20 '形成网格,以两点坐标来确定线的位置
line(i)= New LineShape line(i).X1 = 0 line(i).X2 = 400 line(i).Y1 = 20 * i
line(i).Y2 = 20 * i line(i).Parent = canvas Next
For i = 21 To 41 line(i)= New LineShape line(i).X1 = 20 *(i21)line(i).Y1 = 0 line(i).Y2 = 400 line(i).Parent = canvas 蛇已经做好，那么我们可以进行下一步：让蛇随键盘的上下左右运动起来。这一步曾经困扰我很久，但通过上网我发现每一个键盘都对应着一个代码，如：左37，上38，右39，下40。首先得让控件响应键盘事件，其次让蛇动，而蛇的运动可看作蛇头移动，蛇身跟随前一个身体。由此可以用以下代码解决：
Private Sub form_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)Handles Me.KeyDown Select Case e.KeyCode Case 37 If d <> 2 Then d = 0 ‘这样能让蛇不往回走
Case 38 If d <> 1 Then d = 3 Case 39 If d <> 0 Then d = 2 Case 40 If d <> 3 Then d = 1 End Select
End Sub Select Case d Case 2 For i = num To 1 Step-1 a(i).Left = a(i1).Top Next
a(0).Left += 20 Case 1 For i = num To 1 Step-1 a(i).Left = a(i1).Top Next
a(0).Top += 20 Case 0 For i = num To 1 Step-1
a(i).Left = a(i1).Top Next
a(0).Left-= 20 Case 3 For i = num To 1 Step-1 a(i).Left = a(i1).Top Next
a(0).Top-= 20 End Select 然后我们可以来设置食物来让蛇吃，我用rectangleshape控件来制造食物，就像和画出蛇身一样写，但是每当被吃后它有出现，而且不能出现在蛇身上。首先，它是随机出现的，我们可用随机函数，然后可通过判断让它不出现在蛇身上。对于数字1，2，3，4，5；我用lebal控件，然后让其和食物坐标同步，这样看起来就像数字在食物上一样。代码如下：
For i = 0 To 4 If a(0).Top = food(i).Top And a(0).Left = food(i).Left Then ‘判断是否吃到
score += i + 1 ‘分数增加 num += i + 1 ‘蛇身的个数增加 food(i).Visible = False word(i).Visible = False
ReDim Preserve food(4)ReDim Preserve word(4)food(i)= New RectangleShape food(i).Size = New Size(20, 20)Randomize()food(i).Left = Int(Rnd()* 20)* 20 ‘随机确定新坐标
food(i).Top = Int(Rnd()* 20)* 20 L2: For g = 0 To num1 If food(i).Left = a(g).Left And food(i).Top = a(g).Top Then
Call setloction(i)GoTo L2 End If
Next
food(i).FillStyle = FillStyle.Solid food(i).Parent = canvas word(i)= New Label word(i).Text = i + 1 word(i).Size = New Size(10, 10)
word(i).Top = food(i).Top + 5 word(i).Left = food(i).Left + 5 word(i).Parent = canvas ReDim Preserve a(num)‘蛇长长，重新定义动态数组
For k = numii1 If a(0).Top = barrier(k).Top And a(0).Left = barrier(k).Left Then
Timer1.Enabled = False a(0).FillColor = Color.Red lifetime-= 1 If score < 3 Then
If lifetime < 1 Then
MsgBox(“GAME OVER!”, 64, “贪吃蛇”)recordname = InputBox(“GAME OVER!” & Chr(13)& “你的成绩为” & Int(score)& “分用时” & _ Int(gameinterval * gametime / 1000)& ”秒。“ & Chr(13)& ”请留下大名“, ”贪吃蛇“, ”无名氏“)Else
p = MsgBox(”Do you want to continue?“, vbYesNo, ”生命值“ & lifetime)If p = 6 Then
Exit For
End If
End If
Else
If lifetime < 1 Then
recordname = InputBox(”GAME OVER!“ & Chr(13)& ”你的成绩为“ & Int(score)& ”分用时” & _ Int(gameinterval * gametime / 1000)& “秒。” & Chr(13)& “请留下大名?”, “贪吃蛇”, “无名氏”)Else
p = MsgBox(“Do you want to continue?”, vbYesNo, “生命值” & lifetime)If p = 6 Then
Exit For
End If
End If
End If
Call record()Call initialize()Exit For
End If
Next 想要形成障碍物，在此我们需要用到文件的读操作。主要代码如下：
FileOpen(1, filelacation, OpenMode.Input)' 读取墙壁，形成迷宫 bnum = 1 Dim L As Integer
Dim T As Integer
For i = 1 To 419 j = InputString(1, 2)If Val(j)= 1 Then
barrier(bnum)= New RectangleShape barrier(bnum).Left = 20 * L barrier(bnum).Top = 20 * T barrier(bnum).Size = New Size(20, 20)barrier(bnum).FillColor = barriercolor barrier(bnum).FillStyle = FillStyle.Solid barrier(bnum).Parent = canvas bnum += 1 End If
If Val(j)= 0 Then ‘用此方法使读出的内容与坐标对应
End If
If j = vbCrLf Then L-= 1 End If L += 1
If L = 20 Then L = 0 : T += 1 End If
Next
FileClose(1)在此基础上便可调用其它的过程，比较简单。代码如下：
Private Sub 开始ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 开始ToolStripMenuItem.Click If Timer1.Enabled = False Then Timer1.Enabled = True
Exit Sub
End If
If Timer1.Enabled = True Then Timer1.Enabled = False
End If
End Sub
Private Sub 新开局ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 新开局ToolStripMenuItem.Click Call initialize()End Sub
Private Sub 关于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 关于ToolStripMenuItem.Click MsgBox(“贪吃蛇vb2010.2016.3.20”, 64, “版本说明”)End Sub
Private Sub 帮助ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 帮助ToolStripMenuItem1.Click Form3.Show()End Sub
Private Sub 设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 设置ToolStripMenuItem.Click Form2.Show()End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 退出ToolStripMenuItem.Click
End
End Sub
Private Sub 排行榜ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 排行榜ToolStripMenuItem.Click Form6.Show()End Sub
2.2窗体Form2.vb【设计】
这个界面是第二重要的，当然它的设计也较麻烦。设计的障碍物的类型用到了listbox控件，也用到了菜单栏与pictureBox控件。而调用的过程shapeview所用到的内容与Form1.vb中的类似，因此方便好多。
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load ListBox1.Items.Add(“方盒形”)ListBox1.Items.Add(“隧道形”)ListBox1.Items.Add(“螺旋形”)ListBox1.Items.Add(“路障形”)ListBox1.Items.Add(“弯曲形”)ListBox1.Items.Add(“怪异形”)ListBox1.Items.Add(“无障碍形”)PictureBox2.BackColor = Color.DarkGray PictureBox1.BackColor = Color.Aqua TextBox1.Text = lifetime Call shapeview()End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedIndex = 0 Then filelacation = “maze1方盒形.txt” filename = “方盒形” mazenum = 1 End If
If ListBox1.SelectedIndex = 1 Then filelacation = “maze1隧道形.txt” filename = “隧道形” mazenum = 2 End If
If ListBox1.SelectedIndex = 2 Then filelacation = “maze1螺旋形.txt” filename = “螺旋形”
mazenum = 3 End If
If ListBox1.SelectedIndex = 3 Then filelacation = “maze1路障形.txt” filename = “路障形” mazenum = 4 End If
If ListBox1.SelectedIndex = 4 Then filelacation = “maze1弯曲形.txt” filename = “弯曲形” mazenum = 5 End If
If ListBox1.SelectedIndex = 5 Then filelacation = “maze1怪异形.txt” filename = “怪异形” mazenum = 6 End If
If ListBox1.SelectedIndex = 6 Then
filelacation = “maze1无障碍形.txt” filename = “无障碍形” mazenum = 7 End If
For k = 1 To oldnum121)line1(i).X2 = 10 *(i单车.wav“
'musicname = ”MUSIC陈奕迅-单车.wav“
My.Computer.Audio.Play(My.Application.Info.DirectoryPath & ”MUSIC陈奕迅-单车.wav“)End If
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles RadioButton6.CheckedChanged If RadioButton6.Checked = True Then
'Form1.AxWindowsMediaPlayer1.Ctlcontrols.stop()
My.Computer.Audio.Stop()End If
End Sub End Class
2.6窗体Form5.vb[设计】
此窗体用来调节蛇运动的快慢程度。
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles TrackBar1.Scroll
Dim v As Integer v = TrackBar1.Value timeinterval = 500 /(2 ^ v)Label3.Text = TrackBar1.Value End Sub
2.7窗体Form6.vb[设计】
此窗体用来显示玩家的成绩，用到了listBox控件来显示成绩，点击清除所有记录可还原，recordlist（）用来记录文件中的每一行。Public Class Form6
Public Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load For i = 1 To 7 ListBox1.Items.Add(Form1.recordlist(i))Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click ListBox1.Items.Clear()FileOpen(1, My.Application.Info.DirectoryPath & ”clear.txt“, OpenMode.Input)For i = 1 To 7 Form1.recordlist(i)= LineInput(1)ListBox1.Items.Add(Form1.recordlist(i))Next
FileClose(1)End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub End Class
2.8标准模块
定义各种变量
Imports Microsoft.VisualBasic.PowerPacks Module Module1
Public barriercolor As System.Drawing.Color = Color.DarkGray
‘记录障碍物的颜色
Public panalcolor As System.Drawing.Color = Color.Aqua ‘记录面板的颜色
Public oldnum As Integer
Public oldnum1 As Integer
Public bnum1 As Integer
Public filelacation As String = ”maze1螺旋形.txt“
Public filename As String = ”螺旋形"
Public timeinterval As Integer = 1000 Public mazenum As Integer = 2 ‘为每一个障碍物类型做标记
Public lifetime As Integer = 1 ‘生命次数
Public barrier(400)As RectangleShape End Module
3、设计过程遇到的主要问题及解决方法
3.1刚开始时对于画出后面的线条时我是添加了41个Lineshape控件，一个个确定等距的坐标将其画下，废了我好大的气力，但后来受到了动态添加控件的触动用数组将其解决。
3.2如何引发键盘事件曾一度困扰我，了解了键盘下所代表的代码意义，之前一直使用的是select case keycode代码，怎么也无法使其响应。后来看看课本上关于键盘的代码，随便使用了select case e.keycode代码，令我欣慰的是竟然成功了。
3.3下一个是如何在界面上显示出障碍物。根据所提供的文件夹，了解起大概用法，为了让我编程更容易，我对其文件做了一定的修改。
3.4最难的是过程之间的调用与联系，解决的办法就是不断的进行调试，修改。比如在我编写重新开局的菜单代码时总是会出现两只蛇；又如在编写排行榜时便不是很方便的能使用listbox.Items.remove这行代码，因此我得另辟蹊径。
4、设计中尚存的不足分析
4.1由于我采用的编写方法是将完成这个贪吃蛇游戏所需满足的要求分开，一个一个的进行攻破，我会发现越往后编写越要考虑到之前的内容，在解决程序之间的关系会越麻烦，调试的次数更多。而且编完后纵观全局会发现代码的结构较混乱，重复性高，他人难以看的明白。
4.2 在定义变量时我尽量定义其为全局变量和模块级变量。部分变量为了简单或难以翻译为英文的仅仅使用了字母代替，对读代码有一定困难。
4.3 我所犯下的最大错误就是使用控件来显示蛇，因为在运行程序时蛇身会随着长度的增加闪烁的愈发厉害。可能是控件太多，程序运行不流畅，效率不高。
4.4 我想在游戏中添加一些音乐，并且用到了循环播放的代码，但是至今我还是没有想到如何能将播放中的音乐暂停。还有的就是怎样才能同时播放两种声音。
4.5 对于排行榜的编写存在一些问题，比如：怎样才能使显示的行间距更开；如何才能使所显示的各项指标在其对应的列下，在这一点上有很大的缺陷。可能程序要用到dictionary方法。
4.6 当我运行程序时，如果我点了界面上的某条线的话，蛇就不再响应键盘事件了，必须使用ctrl+方向键才能使其响应键盘事件。应该是我点击时失去了焦点导致无法正常运行。
5、心得体会
这个程序从难度上讲足足有四颗星，因此我想说我确实摸索了很久，从界面的制作排版到代码的编写。由于计算机编程知识当初只学了些皮毛，很多次我在编程时不断调试却依然出现这样那样的毛病，可能是无意中拼写错误，但有些确实是因为不了解vb的某些较为冷僻的用法所致。这段时间，常会向同学请教，也自觉地去借了些书看看，基本上完成了要求，但是功能、界面都还不是很完善，我会借助以后的时间继续去加工的，我需要的是学以致用。
我体会到了编写程序是个有条理的逻辑过程，首先必须有个大致的思路，整体的规划出来。然后再是分步地去具体完成，尤为重要的是需要投入相当一部分精力去精益求精，这样你的成果才不会是毛糙的。思维调动是件另人愉快的事情，而我们应该去学会享受脑力劳动的过程，哪怕是一次次地失利。这就是2个月的课程设计所教会我的。
6、参考文献
[2].王栋，visual basic程序设计实用教程，北京，清华大学出版社
第五篇：VB学生成绩管理系统课程设计报告
VB程序设计 课程设计报告
班 级：***** 姓 名：***** 序 号：***** 指导老师：*****
目录
1、课设的目的..............................................................................................................................2
2、界面设计和功能设计............................................................................................................2
3、系统功能实施...................................................................................................................11
4、总结........................................................................................................................................30
一、课设的目的
1.本次课程设计提高了我们的实践动手能力
5.通过本次课程设计，熟悉用户界面的设计
2.通过本次课程设计，进一步理解计算机程序设计的思路与方法
3.本次课程设计之后，达到能熟练使用各种常见的VB控件，理解面向对象的思想 4.经过本次课程设计，我们进一步熟练运用VB的语言元素和流程控制语句
6.经过本次课程设计，熟悉数据访问控件ADO及相关对象的使用，能基于ADO控件实现Access的数据访问与操纵
二、界面设计和功能设计
1、下面的界面为用户登陆界面：
用户名和密码均已设定，用户名为zgzy，密码为11201，只有输入正确，然后点击“登陆“按钮才能进入主界面。如果用户名或密码三次输入错误，则系统自动退出。当你点击“退出“按钮时，弹出一个对话窗，界面如下：
在对话框上点击“是”按钮，则退出系统，如果点击“否”，则该界面不变。
2、当用户名和密码均输入正确，点击“登陆”按钮，进入主界面——“学生成绩管理系统”界面，该界面是其他子界面的入口，界面如下：
3、进入主界面后，点击“学生管理（删除添加）”，进入学生管理界面，界面如下
该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击“添加“按钮，可以将数据录入到数据库中，如果此时点击”删除“按钮，则刚才输入的数据就会被删除，点击”保存“按钮时，输入的数据就会自动保存在数据库里，点击”返回主窗体“按钮，该窗体消失，主窗体出现。
4、在主界面点击“各科成绩查询“按钮，出现如下界面：
该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果——
5、在主界面点击“姓名查询“按钮后，会出现如下界面：
该界面与上一界面相似，在文本框输入要查询的姓名后，点击“查询“按钮，就会在DataGrid控件上显示所要查询的结果。下面为输入条件后查询的结果——
5、在主界面点击“班级查询“按钮后，会出现如下界面：
在文版框中输入所要查询的班级，DataGrid控件上就会显示所要查询的结果。下面为输入条件后查询的结果——
6、在主界面上点击“各科成绩段查询“按钮后，会出现如下界面：
点击“计算分数段统计“按钮后，就会出现所要查询的结果。下面为查询的结果——
7、在主界面点击“计算总分“按钮后，出现如下界面：
点击“清除总分”按钮后，出现如下界面
8、在主界面点击“排名“按钮后，出现如下界面：
在该界面上点击“排名“按钮后，在DataGrid控件上会显示出按成绩高低排名的结果，点击”清除排名“按钮后，刚才结果消失，显示原来结果。下面为所现实的结果——
9、在主界面点击“统计直方图“按钮后，出现如下界面：
在该界面点击各个按钮后，就会出现与之相关科目的成绩统计直方图，下面为查询的结果——
10、在主界面点击“优等生“按钮后，出现如下界面：
点击按钮查询后，结果就会在界面上显示出来。下面为所查询的结果——
三、系统功能实施
以上展示的是系统的所有界面，怎样才能让这所有的功能实现呢？数据库和ADO控件的使用便是其中的关键。
1、建立如下数据库
(学号、姓名、班级、英语、数学、VB、总分、排名)
2、建立如下图的所有界面：
3、ADO控件和DataGrid控件以及数据库的连接步骤：（这一步在设计界面的同时完成）
（1）、如何加载ADO控件： 步骤1：
步骤2：
步骤3：
各个界面的ADO控件如何连接数据库（分两步）：
步骤1：
如下面界面中的5个步骤
步骤2：
选中ADO控件Adodc1，点击鼠标右键选择属性，然后界面设置如下：
控件绑定数据库的字段操作说明：
属性设置说明：下面以学号为例，姓名、班级等都可参考此。将学号对应的文本框Text1连接Adodc1显示数据库中的学号，需要设置DataSource和DataField两个属性,首先选中Text1文本框，并进行下面的两步操作，即可绑定数据库的学号字段。
设置DataSource:
设置DataField:
（2）、如何加载DataGrid控件 控件DataGrid，可以实现数据的批量处理，该控件在控件库Microsoft DataGrid Control 6.0中。
说明：DataGrid控件属性设置
以下为各个界面所对应的代码——
该界面代码如下：
Private Sub Command1_Click()If Text1.Text = “zgzy” And Text2.Text = “11201” Then Form1.Show Unload me Else MsgBox “用户名或密码错误,请重新输入”, vbMsgBoxSetForeground, “系统提示！” End If
Static t As Integer t = t + 1 If t >= 3 Then End End Sub
Private Sub Command2_Click()a = MsgBox(“确定要退出本系统吗？”, 3 + 32 + 256, “系统提示！”)
If a = 6 Then Unload Me End If End Sub
该界面代码如下：
Private Sub Command1_Click()xsglfrm.Show End Sub Private Sub Command10_Click()ydsfrm.Show End Sub Private Sub Command3_Click()jszffrm.Show End Sub Private Sub Command4_Click()
pmfrm.Show End Sub Private Sub Command5_Click()
zftjtfrm.Show End Sub Private Sub Command6_Click()
cjcxfrm.Show End Sub Private Sub Command7_Click()
xmcxfrm.Show End Sub Private Sub Command8_Click()
bjcxfrm.Show End Sub Private Sub Command9_Click()
gkcjfrm.Show End Sub
该界面代码如下：
Private Sub Command1_Click()Me.Adodc1.Recordset.AddNew End Sub
Private Sub Command2_Click()If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then
Exit Sub End If Me.Adodc1.Recordset.Delete Me.Adodc1.Recordset.MoveNext If Me.Adodc1.Recordset.RecordCount = 0 Then
Exit Sub End If If Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLast End Sub
Private Sub Command4_Click()Me.Adodc1.Recordset.Save End Sub
Private Sub Command5_Click()
Unload Me
mainfrm.Show End Sub
该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “ ” + kc_条件 Me.Adodc1.Refresh End Sub
Private Sub Form_Load()kc_条件 = “>=92” kc = “vb” End Sub
Private Sub Option1_Click()
kc = “VB” End Sub Private Sub Option2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub
该界面代码如下：
Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_条件 + “'” Me.Adodc1.Refresh End Sub
Private Sub Form_Load()kc = “name” End Sub
该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_条件 + “'” Me.Adodc1.Refresh End Sub
Private Sub Form_Load()kc = “class” End Sub
该界面代码如下：
Private Sub Command1_Click()
Dim vb_A As Integer
Dim vb_B As Integer
Dim vb_C As Integer
Dim vb_D As Integer
Dim vb_E As Integer
Dim Math_A As Integer
Dim Math_B As Integer
Dim Math_C As Integer
Dim Math_D As Integer
Dim Math_E As Integer
Dim English_A As Integer
Dim English_B As Integer
Dim English_C As Integer
Dim English_D As Integer
Dim English_E As Integer
Me.Adodc1.RecordSource = “select * from stu where vb>=90”
Me.Adodc1.Refresh
vb_A = Me.Adodc1.Recordset.RecordCount
Me.Text1 = vb_A
Me.Adodc1.RecordSource = “select * from stu where vb>=80 and vb<90”
Me.Adodc1.Refresh
vb_B = Me.Adodc1.Recordset.RecordCount
Me.Text2 = vb_B
Me.Adodc1.RecordSource = “select * from stu where vb>=70 and vb<80”
Me.Adodc1.Refresh
vb_C = Me.Adodc1.Recordset.RecordCount
Me.Text3 = vb_C
Me.Adodc1.RecordSource = “select * from stu where vb>=60”
Me.Adodc1.Refresh
vb_D = Me.Adodc1.Recordset.RecordCount
Me.Text4 = vb_D
Me.Adodc1.RecordSource = “select * from stu where vb<60”
Me.Adodc1.Refresh
vb_B = Me.Adodc1.Recordset.RecordCount
Me.Text5 = vb_E
Me.Adodc1.RecordSource = “select * from stu where math>=90”
Me.Adodc1.Refresh
Math_A = Me.Adodc1.Recordset.RecordCount
Me.Text6 = Math_A
Me.Adodc1.RecordSource = “select * from stu where math>=80 and math<90”
Me.Adodc1.Refresh
Math_B = Me.Adodc1.Recordset.RecordCount
Me.Text7 = Math_B
Me.Adodc1.RecordSource = “select * from stu where math>=70 and math<80”
Me.Adodc1.Refresh
Math_C = Me.Adodc1.Recordset.RecordCount
Me.Text8 = Math_C
Me.Adodc1.RecordSource = “select * from stu where math>=60 ”
Me.Adodc1.Refresh
Math_D = Me.Adodc1.Recordset.RecordCount
Me.Text9 = Math_D
Me.Adodc1.RecordSource = “select * from stu where math<60”
Me.Adodc1.Refresh
Math_E = Me.Adodc1.Recordset.RecordCount
Me.Text10 = Math_E
Me.Adodc1.RecordSource = “select * from stu where english>=90”
Me.Adodc1.Refresh
English_A = Me.Adodc1.Recordset.RecordCount
Me.Text11 = English_A
Me.Adodc1.RecordSource = “select * from stu where english>=80 and english<90”
Me.Adodc1.Refresh
English_B = Me.Adodc1.Recordset.RecordCount
Me.Text12 = English_B
Me.Adodc1.RecordSource = “select * from stu where english>=70 and english<80”
Me.Adodc1.Refresh
English_C = Me.Adodc1.Recordset.RecordCount
Me.Text13 = English_C
Me.Adodc1.RecordSource = “select * from stu where english>=60”
Me.Adodc1.Refresh
English_D = Me.Adodc1.Recordset.RecordCount
Me.Text14 = English_D
Me.Adodc1.RecordSource = “select * from stu where english<60”
Me.Adodc1.Refresh
English_E = Me.Adodc1.Recordset.RecordCount
Me.Text15 = English_E End Sub
Private Sub Form_Load()
Text1.Text = “"
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text5.Text = ”“
Text6.Text = ”“
Text7.Text = ”“
Text8.Text = ”“
Text10.Text = ”“
Text11.Text = ”“
Text12.Text = ”“
Text13.Text = ”“
Text14.Text = ”“
Text15.Text = ”“ End Sub
代码如下
Private Sub Command1_Click()'计算总分 Dim vb As Integer
Dim math As Integer Dim english As Integer Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
vb = Me.Adodc1.Recordset.Fields(”vb“).Value
math = Me.Adodc1.Recordset.Fields(”math“).Value
english = Me.Adodc1.Recordset.Fields(”english“).Value
Me.Adodc1.Recordset.Fields(”total“).Value = vb + math + english
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext Next i End Sub
Private Sub Command2_Click()'清除总分 Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields(”total“).Value = Null
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext Next i End Sub
该界面代码如下：
Private Sub Command1_Click()Me.Adodc1.RecordSource = ”select * from stu order by total desc“ Me.Adodc1.Refresh Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields(”mc“).Value = i
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext
Next i End Sub
Private Sub Command2_Click()Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields(”mc“).Value = Null
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext Next i End Sub
该界面代码如下：
Private Sub Command1_Click()
Me.Adodc1.Refresh
'填充表格数据
MSChart1.RowCount = 1
MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.MoveFirst
For lngI = 1 To Me.Adodc1.Recordset.RecordCount
MSChart1.Column = lngI
'用Data属性向MSChart数据网格填充数据
MSChart1.Data = Val(Adodc1.Recordset.Fields(”vb“).Value)
MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value
Adodc1.Recordset.MoveNext
Next lngI
MSChart1.RowLabel = ”VB成绩直方图“ End Sub
Private Sub Command2_Click()Me.Adodc1.Refresh
'填充表格数据
MSChart1.RowCount = 1
MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.MoveFirst
For lngI = 1 To Me.Adodc1.Recordset.RecordCount
MSChart1.Column = lngI
'用Data属性向MSChart数据网格填充数据
MSChart1.Data = Val(Adodc1.Recordset.Fields(”math“).Value)
MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value
Adodc1.Recordset.MoveNext
Next lngI
MSChart1.RowLabel = ”Math成绩直方图“ End Sub
该界面代码如下
Private Sub Command1_Click()Dim vb As Integer Dim math As Integer Dim english As Integer
Me.Adodc1.RecordSource = ”select * from stu where((math+english+vb)/3>=90)or((math+english+vb)/3>=85 and(math=100 or english=100 or vb=100))or((vb+english+math)/3>=85 and((vb>=95 and english >=95)or(english>=95 and math>=95)or(math>=95 and vb>=95)))and(mc<=3)and(vb>=60 and english>=60 and math>=60)" Me.Adodc1.Refresh End Sub
四、总结和体会
经过好几天的努力我的课程设计终于完成了。在没有做课程设计以前觉得课程设计好难，我可能做不了，但是通过这次做课程设计发现自己错了。课程设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高，它并不可怕。通过这次课程设计使我明白了自己原来知识还比较欠缺，自己要学习的东西还太多，以前上课没怎么认真听，现在知道它重要了，幸好为时不晚，我以后要更加的努力学好vb。在这次课程设计中也使我们的同学关系更进一步了，同学之间互相帮助，有什么不懂的大家在一起商量，听听不同的看法对我们更好的理解知识，所以在这里非常感谢帮助我的同学。此外，还得出一个结论：世上无难事，只怕有心人。
在设计过程中，我通过查阅有关资料，与同学交流经验和自学等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，也培养了我独立工作的能力，树立了对自己工作能力的信心，相信会对今后的学习工作生活有非常重要的影响。而且大大提高了动手的能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次课程设计的最大收获和财富，使我终身受益。
点击咨询 