VB学生成绩管理系统

合集下载

学生信息管理系统VB

河北联合大学《软件设计基础（VB）》课程设计报告设计名称：学生信息管理系统姓名：学号：专业班级：学院：设计时间：设计地点：学校机房目录1.课程设计目的 ···············································································2.课程设计任务与要求 ······································································3.课程设计说明书 ············································································4.课程设计成果 ···············································································5.程序调试过程 ···············································································6.设计问题的不足和改进方案 ·····························································7.课程设计心得 ···············································································8.附录 ···························································································9.参考文献 ·····················································································4．课程设计成果运行结果（可用屏幕抓图的方法说明）（五号，宋体）(多页)图1图2图3图41.登陆界面有账号和密码保护功能如图12.学生信息管理界面如图23.保存界面如图34.学生信息查询界面如图4。

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。

巧用ExcelVBA统计学生成绩

巧用ExcelVBA统计学生成绩说明：这是本人刚开始学VBA的时候为学校做的学生成绩统计模板，在末用VBA以前，每次学校考试的成绩统计都是用公式重复操作，非常麻烦，耗时长而且很容易出错，用VBA程序做的成绩统计不仅快而且非常准确，现在把它公布出来，与大家分享。

内容包括计算总分、统计三率、统计语数外三科总和、按年级及班级排名次、生成年级报表、排考场等等。

Option ExplicitSub 成绩统计()'**************************************************变量声明部分**************************************************Dim i As Integer, j As Integer, k As Integer '定义循环变量Dim MFBZ As Integer, ZF As Integer, SZ As Integer '满分标准、总分变量、三总变量Dim Ddbj As Integer, MC As Integer, Dkf As Integer '断点标记、年级名次、单科分总和Dim PJF, JGL, LHL, YXL '三率变量Dim QK As Integer, JGRS As Integer, LHRS As Integer, YXRS As Integer '缺考、及格、良好、优秀人数Dim BJS As Integer, BJRS As Integer '班级数、班级人数Dim YBendrow As Integer, TJBendrow As Integer, BBendrow As Integer '各工作表最大行数Dim endcol As Integer, Shtcount As Integer '各工作表最大列数及工作表总数Dim YB As String, TJB As String, BB As String, S As Variant '定义工作表名变量Dim StateTime As Single, EndTime As Single '程序开始、结束时间Dim M As String '考试次数'************************************************************** *********************************************On Error Resume Next '错误处理Application.ScreenUpdating = False '关闭屏幕刷新'M = InputBox("这是本学期第几次考试：")YB = InputBox("请输入您要进行统计的工作表名：") '取得所要操作的工作表名If YB = "" ThenExit SubEnd IfShtcount = ActiveWorkbook.Sheets.Count '当前工作薄中的工作表总数Sheets(YB).Select '选定工作表TJB = YB & "统计"BB = YB & "报表"StateTime = Timer '开始时间'*****************删除旧工作表*****************Application.DisplayAlerts = False '屏蔽删除对话框For Each S In Sheets '删除旧表，准备统计If = TJB Or = BB ThenS.DeleteEnd IfNext SApplication.DisplayAlerts = True '打开对话框显示YBendrow = ActiveSheet.Range("c65536").End(xlUp).Row '当前工作表最大行数Range(Cells(3, 15), Cells(YBendrow, 19)).ClearContents '删除以前统计结果，为新的统计做准备'*****************计算总分*****************For i = 3 To YBendrow '行循环ZF = 0For j = 6 To 14 '列循环If Cells(i, j).Value <> "" And Cells(i, j).Value <> -1 ThenZF = ZF + Cells(i, j).ValueEnd IfNext jCells(i, 15).Value = ZFNext i'*****************计算三总*****************For i = 3 To YBendrowSZ = 0For j = 7 To 9If Not Cells(i, j) = "" And Not Cells(i, j) = -1 ThenSZ = SZ + Cells(i, j)End IfNext jCells(i, 18) = SZNext i'*****************排年级名次*****************For i = 3 To YBendrowMC = Application.WorksheetFunction.Rank(Cells(i, 15), _Range(Cells(3, 15), Cells(YBendrow, 15)), 0) '调用工作表函数计算当前总分在总分列的位次Cells(i, 16).Value = MC '将位次填入相应的单元格Next i'*****************排班级名次*****************Range("A2").CurrentRegion.Select '选定排序区域Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range _("O3"), Order2:=xlDescending, Header:=xlGuess,OrderCustom:=1, MatchCase _:=False, Orientation:=xlT opToBottom, SortMethod:=xlPinYin, DataOption1:= _xlSortNormal,DataOption2:=xlSortNormal '按班级升序和总分降序自动排序BJS = Application.WorksheetFunction.Max(Range(Cells(3, 2), Cells(YBendrow, 2))) '计算班级数For i = 3 To YBendrow '开始循环If Cells(i, 2).Value <> Cells(i - 1, 2) Then '设置转换班级时的标记点Ddbj = Cells(i - 1, 2).Row '当班级改变时，定义一个行变量（标记点）End IfIf Cells(i, 2) = Cells(i - 1, 2) ThenIf Cells(i, 15) <> Cells(i - 1, 15) ThenCells(i, 17) = i - Ddbj '行号减标记点即为名次ElseCells(i, 17) = Cells(i - 1, 17) '如果当前总分等于上一个总分，则名次相同End IfElseCells(i, 17) = 1 '各班第一个人的名次为1End IfNext i'*****************排三总名次*****************For i = 3 To YBendrow '开始循环MC = Application.WorksheetFunction.Rank(Cells(i, 18), Range(Cells(3, 18), Cells(YBendrow, 18)), 0) '调用工作表函数Cells(i, 19).Value = MCNext i'**********************************统计三率**********************************Sheets.Add after:=Worksheets(YB) = TJBWorksheets(TJB).Select'设计表头Cells(2, 1) = "班级"Cells(2, 2) = "项目"Cells(2, 3) = "政治"Cells(2, 4) = "语文"Cells(2, 5) = "数学"Cells(2, 6) = "英语"Cells(2, 7) = "物理"Cells(2, 8) = "化学"Cells(2, 9) = "生物"Cells(2, 10) = "历史"Cells(2, 11) = "地理"Range("a1:k1").MergeRange("a1").FormulaR1C1 = YB & "成绩(三率)统计表"Range("A1").Font.Size = 22endcol = Range("A2").End(xlToRight).ColumnFor j = 1 To BJS '行循环Cells(j + 2, 1) = jCells(j + 2, 2) = "平均分"Cells(j + BJS + 2, 1) = jCells(j + BJS + 2, 2) = "及格率(%)"Cells(j + BJS * 2 + 2, 1) = jCells(j + BJS * 2 + 2, 2) = "良好率(%)"Cells(j + BJS * 3 + 2, 1) = jCells(j + BJS * 3 + 2, 2) = "优秀率(%)"For k = 3 To endcol '列循环If k = 3 Then '判断总分MFBZ = 100ElseIf k < 7 ThenMFBZ = 150ElseMFBZ = 100End IfWorksheets(YB).Select '对源表进行统计QK = 0 '设置初始值BJRS = 0Dkf = 0JGRS = 0LHRS = 0YXRS = 0For i = 3 To YBendrow '行循环If Cells(i, 2) = j ThenBJRS = BJRS + 1If Cells(i, k + 3) = -1 Then '统计缺考人数QK = QK + 1ElseDkf = Dkf + Cells(i, k + 3) '计算班级单科总分End IfIf Cells(i, k + 3) >= MFBZ * 0.6 Then '及格人数统计JGRS = JGRS + 1End IfIf Cells(i, k + 3) >= MFBZ * 0.7 Then '良好人数统计LHRS = LHRS + 1End IfIf Cells(i, k + 3) >= MFBZ * 0.85 Then '优秀人数统计YXRS = YXRS + 1End IfEnd IfNext iIf BJRS = 0 Or Dkf = 0 Then '筛选空班级PJF = ""JGL = ""LHL = ""YXL = ""ElsePJF = Dkf / (BJRS - QK) '计算三率JGL = JGRS / (BJRS - QK) * 100LHL = LHRS / (BJRS - QK) * 100YXL = YXRS / (BJRS - QK) * 100End IfWorksheets(TJB).Select '填入目标表相应位置If BJRS = 0 Or Dkf = 0 ThenCells(j + 2, k) = ""Cells(j + BJS + 2, k) = ""Cells(j + BJS * 2 + 2, k) = ""Cells(j + BJS * 3 + 2, k) = ""ElseCells(j + 2, k) = PJFCells(j + 2, k).NumberFormatLocal = "0.00" '设置结果显示格式(保留两位小数)Cells(j + BJS + 2, k) = JGLCells(j + BJS + 2, k).NumberFormatLocal = "0.00"Cells(j + BJS * 2 + 2, k) = LHLCells(j + BJS * 2 + 2, k).NumberFormatLocal = "0.00"Cells(j + BJS * 3 + 2, k) = YXLCells(j + BJS * 3 + 2, k).NumberFormatLocal = "0.00"End IfNext kNext j'删除空班级行Worksheets(TJB).SelectTJBendrow = Range("A65536").End(xlUp).RowFor i = TJBendrow To 3 Step -1If Cells(i, 4).Value = "" ThenCells(i, 4).EntireRow.DeleteEnd IfNext i'设置“统计”表的格式Range("A3").SelectActiveWindow.FreezePanes = True '冻结窗格Cells.HorizontalAlignment = xlCenter '居中对齐Columns("A:A").ColumnWidth = 3.5 '列宽Columns("B:B").ColumnWidth = 8.38 '列宽Columns("C:E").ColumnWidth = 6.88 '列宽Columns("F:K").ColumnWidth = 5.63 '列宽'选中全部单元格，将单元格内部图案改为白色Cells.SelectWith Selection.Interior.ColorIndex = 2.Pattern = xlSolid.PatternColorIndex = xlAutomaticEnd With'设置数据区域外边框为粗线，内部为细线TJBendrow = Range("a65536").End(xlUp).RowRange(Cells(2, 1), Cells(TJBendrow, endcol)).SelectCall 设置边框 '调用“设置边框”子过程Cells(1, 1).Select'********************生成年级报表*********************Sheets.Add after:=Worksheets(TJB) = BBWorksheets(YB).SelectRange("a2").CurrentRegion.CopyWorksheets(BB).SelectRange("a2").PasteSpecialColumns("d:e").Delete shift:=xlT oLeftColumns("a:a").Delete shift:=xlT oLeftBBendrow = Range("a65536").End(xlUp).Row + 1Worksheets(TJB).Selectendcol = Cells(2, 256).End(xlToLeft).ColumnTJBendrow = Cells(2, 1).End(xlDown).RowRange(Cells(3, 1), Cells(TJBendrow, endcol)).Copy Worksheets(BB).Cells(BBendrow, 1) '将统计表中的数据拷到报表中Worksheets(BB).SelectRange("A3").SelectActiveWindow.FreezePanes = True '冻结窗格Cells.HorizontalAlignment = xlCenter '居中对齐Columns("A:A").ColumnWidth = 3.5 '设置列宽Columns("B:B").ColumnWidth = 8.38Columns("C:K").ColumnWidth = 6.88Columns("L:L").ColumnWidth = 3.5Columns("M:N").ColumnWidth = 4.63Columns("O:O").ColumnWidth = 3.5Columns("P:P").ColumnWidth = 4.88Cells.Select '选中全部单元格，将单元格内部图案改为白色With Selection.Interior.ColorIndex = 2.Pattern = xlSolid '设置内部图案.PatternColorIndex = xlAutomatic '内部颜色设为自动End WithBBendrow = Range("A65536").End(xlUp).Rowendcol = Range("IV2").End(xlToLeft).ColumnRange(Cells(2, 1), Cells(BBendrow, endcol)).SelectSelection.Sort Key1:=Cells(3, 13), Order1:=xlAscending, Header:=xlGuess, _MatchCase:=False '对报表按总名次升序排列Range("A1:P1").Merge '合并单元格Range("A1").Font.Size = 22Range("A1").NumberFormatLocal = Left(YB, 2) & "##" & "班期末调研考试成绩报表"ActiveSheet.Spinners.Add(2.25, 1.5, 18.75, 24).Select '添加微调项，控制表头显示格式With Selection.Value = 0.Min = 0.Max = 10.SmallChange = 1.LinkedCell = "$A$1".Display3DShading = True.Placement = xlMoveAndSize.PrintObject = FalseEnd WithBBendrow = Range("a65536").End(xlUp).Rowendcol = Range("IV2").End(xlToLeft).ColumnRange(Cells(2, 1), Cells(BBendrow, endcol)).SelectCall 设置边框 '调用“设置边框”子过程For k = 11 To 3 Step -1 '删除空列If Cells(3, k) = "" ThenCells(3, k).EntireColumn.DeleteEnd IfNext k'************************************************************** *********************************************'恢复统计前顺序Sheets(YB).SelectRange("a2").CurrentRegion.SelectSelection.Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range _("E3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _:=False, Orientation:=xlT opToBottom, SortMethod:=xlPinYin, DataOption1:= _xlSortNormal, DataOption2:=xlSortNormal '按考场升序和座号升序排序Cells(1, 1).SelectEndTime = TimerMsgBox "运行程序共用时：" & EndTime - StateTime & "秒"Application.ScreenUpdating = TrueEnd SubSub 编排考场()Dim i As Integer, j As Integer, k As Integer, l As IntegerDim M As StringDim endrow1 As Integer, endrow2 As IntegerSheets("考场编排").Selectendrow2 = Range("b65536").End(xlUp).Rowk = Application.WorksheetFunction.Sum(Range(Cells(2, 2), Cells(endrow2, 2)))M = InputBox("请输入您准备编排考场的工作表名：")If M = "" ThenExit SubElseSheets(M).SelectEnd IfRange("A2").CurrentRegion.Select '选定排序区域Selection.Sort Key1:=Range("O3"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _:=False, Orientation:=xlT opToBottom, SortMethod:=xlPinYin, DataOption1:= _xlSortNormal,DataOption2:=xlSortNormal '按总分降序自动排序endrow1 = Range("c3").End(xlDown).Rowl = Application.WorksheetFunction.CountA(Range(Cells(3, 3), Cells(endrow1, 3)))If l <> k ThenMsgBox "您的考场编排工作表未准备好!" & Chr(13) & Chr(10) & "请编排好后再运行此程序!"Exit SubEnd IfRange(Cells(3, 4), Cells(endrow1, 5)).ClearContentsFor i = 1 To endrow2 - 1For j = 1 To Sheets("考场编排").Cells(i + 1, 2).Value endrow1 = Range("e65536").End(xlUp).Row Cells(endrow1 + 1, 4) = iCells(endrow1 + 1, 5) = jNext jNext iEnd SubSub 设置边框() '子过程With Selection.Borders(xlEdgeLeft) '设置边框.LineStyle = xlContinuous.Weight = xlThick.ColorIndex = 3End WithWith Selection.Borders(xlEdgeT op).LineStyle = xlContinuous.Weight = xlThick.ColorIndex = 3End WithWith Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous.Weight = xlThick.ColorIndex = 3End WithWith Selection.Borders(xlEdgeRight).LineStyle = xlContinuous.Weight = xlThick.ColorIndex = 3End WithWith Selection.Borders(xlInsideVertical).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 3End WithWith Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 3End WithCells.Select '选中全部单元格，将单元格内部图案改为白色With Selection.Interior.ColorIndex = 2'.Pattern = xlSolid '设置内部图案'.PatternColorIndex = xlAutomatic '内部颜色设为自动End WithEnd SubSub 删除工作表()Dim i As WorksheetApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseFor Each i In SheetsIf <> "高一" ThenIf <> "高二理科" ThenIf <> "高二文科" ThenIf <> "考场编排" ThenIf <> "总分分布统计表" Theni.DeleteEnd IfEnd IfEnd IfEnd IfEnd IfNext iApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub想开源文件的朋友请告诉我，我可以发给你。

基于VB的学生成绩管理系统设计

助手 ”外，还增强了对ＸＬ和Ｈ－Ｍ１Ｐ技术的支持，扩展了Ｔ
ＳＬＳｒｅ在数据挖掘和分析服务领域的应用。Ｑｅｒｖ
ＶＢ使用了可以简单建立应用程序的ＧＩＵ系统，但是又可以开发相当复杂的程序。ＶＢ的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工
Ａｂｔａｔｈｓｐｐｒｄｖｌｐｔｄｎｃｉｖｍｅｔｍａａｅｎｙｔｍ，ｔｃｉｖｈｔｄｎｎｇｍｅｔｓｓｅｔ，ｓｒｃ：Ｔｉａｅｅｅｏｓａｓｕｅｔａｈｅｅｎｎｇｍｅｔｓｓｅｏａｈｅｅｔｅｓｕｅｔｍａａｅｎｙｔｍａｉｃｓａｄｒｉａｉｎａｄａｔｍａｉｎ．ｓｍａｎｆｎｔｎｉｅｕｅｏｏｕｅｓｆｒｓｕｅｔｃｉｖｍｅｔｎｇｍｅｔｔｎａｄｚｔｎｕｏｔｏｏＩｉｃｉｓｔｓｆｃｍｐｔｒｔｄｎｈｅｅｎｔｕｏｈｏａｍａａｅｎ．Ｋｅｒｓｔｄｎｃｉｖｍｅｔ；ｎｏｍａｉｎｍａａｅｎＳｓｅｄｓｇｙｗｏｄ：ＳｕｅｔａｈｅｅｎＩｆｒｔｎｇｍｅｔ；ｙｔｍｅｉｎｏ
种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原

vb项目开发案例全程实录

vb项目开发案例全程实录以VB项目开发案例全程实录为题，我将为您列举10个案例，每个案例包含至少800字的详细描述。

1. 学生成绩管理系统这个案例是一个简单的学生成绩管理系统，使用VB开发。

系统包括学生信息的录入、成绩的录入和查询等功能。

首先，用户可以通过界面输入学生的基本信息，包括姓名、学号、性别等。

然后，用户可以输入学生的各科成绩，并计算出总分和平均分。

最后，用户可以通过学号或姓名查询学生的成绩。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

2. 酒店管理系统这个案例是一个酒店管理系统，使用VB开发。

系统包括客房管理、客户管理、订单管理等功能。

首先，用户可以通过界面查看酒店的各类客房信息，并进行预订和入住操作。

然后，用户可以管理客户信息，包括添加、修改和删除客户信息。

最后，用户可以查看订单信息，包括已预订和已入住的订单，并进行退房操作。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

3. 超市收银系统这个案例是一个超市收银系统，使用VB开发。

系统包括商品管理、库存管理、销售管理等功能。

首先，用户可以通过界面添加、修改和删除商品信息，并查看商品的库存情况。

然后，用户可以进行销售操作，包括添加购物车、结算和打印小票。

最后，用户可以查看销售统计信息，包括每日销售额、每月销售额等。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

4. 图书管理系统这个案例是一个图书管理系统，使用VB开发。

系统包括图书的录入、借阅和归还等功能。

首先，用户可以通过界面添加、修改和删除图书信息，并查看图书的借阅情况。

然后，用户可以进行借阅操作，包括选择图书和输入借阅者信息。

最后，用户可以归还图书，并更新图书的借阅情况。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

5. 学生选课系统这个案例是一个学生选课系统，使用VB开发。

VB学生成绩查询统计系统实验报告

学生成绩查询系统一、实习任务 (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环境下功能强大、图形界面丰富的应用软件系统。

vb学生成绩管理系统{完整版}

目录摘要 (3)关键字： (3)引言 (3)一、系统的理论与技术基础 (4)1.1管理信息系统基础 (4)1.2 软件工程理论的概述 (4)1.3 软件工程理论对本系统的指导 (4)二、系统的需求分析 (5)2.1项目开发的背景分析 (5)2.2 项目开发的目标 (5)2.3项目提出的意义 (6)2.4 国内外研究现状 (6)三、系统的开发工具及编程环境 (9)3.1 开发工具的选择 (9)3.3编程环境的选择 (10)3.5 Visual Basic 系统实现菜单选项 (12)3.5 Visual Basic 系统实现菜单选项 (12)四、系统数据库的使用 (13)4.1 系统数据库的选择 (13)4.2 数据的保存和读取 (13)4.3 数据库文件的易用性 (13)4.4 数据库文件格式 (14)4.5教师管理界面编码设计 (16)五、系统代码及开发过程 (18)5.1系统的开发 (18)5.2功能需求描述 (18)5.3代码及图示 (18)5.3.2.主窗口： (18)5.3.3.管理系统： (19)5.3.4.属性： (20)5.3.5.打开系统显示的界面 (20)5.3.6.窗体的尺寸 (21)结论 (22)致谢 (23)参考文献 (24)学生成绩管理系统摘要学生信息管理系统是典型的信息管理系统，经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。

关键字：数据库，智能化，面向对象ABSTRACT：The abstract student information management system is the typical information management system, the process analysis, We use MICROSOFT Corporation VISUAL the BASIC development kit, uses each kind of object-oriented development kit which it provides, especially first in a short time establishes the system application prototype, then, carries on the demand iteration to the initial prototype system, revises and the improvement unceasingly, until forms user satisfaction the feasible system.Key words：Database，intelligence，object-oriented引言随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。

用VB开发学生成绩管理系统

相应功能。
、
系统功能设计
（１）系统主要功能描述。① 用户管理：用来管理系统用户，可数，如果超出指定的次数，则自动关闭程序。
以添加用户名、修改用户密码。 ②学生信息管理：学生基本情况汇总与管理，主要包括对学生成绩的添加、修改、删除和查询等操括对学生成绩的添加、修改、删除、查询和统计等操作。④课程管
表２学生信息表结构
字段名数据类型ＳＮｏ文本Ｓｎａｍｅ文本Ｓｓｅｘ文本Ｓａｇａ数字
Ｓｐｌａｃｅ文本
字段大小７１２２整型
３２
说明学号，主键，必填字段姓名，必填字段性别，必填字段年龄，必填字段
子模块的设计，最后再将制作好的代码打包为安装程序等，详细描述学生成绩管理系统的开发过程。关键词： Ⅶ 语言；Ａｃｃｅｓｓ数据库；成绩管理；模块设计
在中职学校，对于学生基本信息和成绩的管理是学校的一项基
一
不匹配，则根据具体情况弹出相应的警告对话框。为了使系统更
加安全，加人一个窗口级公共对象，用来记录密码输入错误的次（２）ＭＤＩ窗１３ｒ菜单栏设计。在系统中添加ＭＤＩ窗口作为系统主窗口，为其加入菜单栏。根据系统设计中的各功能模块设计菜Ｃｌｉｃｋ事件过程。当选择菜单命令时，显示相应的功能窗口或实现

一种基于VB的成绩管理系统开发

与开发
一
种基于
VB
的成绩管理系统开发
。
一
龙雄辉
( 1 广东工业大学
．
，
李克天
。
，
广东广州
5 10 0 0 6
；
2
．
广州铁路职业技术学院
，
广东广州
5 10 4 3 0
)
一
以来
，
言篡
；
巢 ?
浏览器／服务器
：
绩管理系统
给出了总体设计方案
信息。
多次调试后，程序中使用了两种方法解决该问题：
１把所有需在Ｄｔｇｉ件中显示的数据先用ＳＬ）ａａｒｄ控Ｑ
。
这些优点能够极大地提高学生成
一
绩管理的效率
有必要
，
因此
，
开发
套学生成绩管理系统软件很
同时要求它能够为用户提供充足的信息和方便的
。
操作方式
以下是结合本校管理模式开发学生成绩管理系统的过
程
，
介绍了开发中遇到的数据库选用
之改变。将Ｄｔｒａｇｉ件放置在窗体中之后，把Ｄｔｒａｄ控ａａ，使Ｄｔｇｄ控件与要处理的数ＤＤａａｒｉ据库之间建立联系。在Ｄｔｇｉ修改数据后，更新多个ａｒａｄ中数据表时会出现 “ｎｕｆｉｔｋｙｃｌｎｏｍｔｎｆＩｓｆｃｎｅｏｕｉｅｍｎｉｒａｉｏｆｏｒ

VB语言第5章教案：学生管理系统设计

VB语言第5章教案：学生管理系统设计。

一、需求分析在设计任何一个软件系统之前，我们都必须首先明确其需求。

对于学生管理系统来说，其主要需求包括学生信息的管理、课程管理、成绩管理、考勤管理、教师管理和课表管理等。

在分析每个需求之后，我们可以很清晰地得出学生管理系统的总体结构和模块设计。

二、概要设计在总体设计方面，我们需要对系统中的各个模块进行一个整体规划和设计。

1.学生信息管理模块该模块主要是为了管理学生的基本信息，包括学号、姓名、性别、年龄、联系方式等。

并且可以根据学生的学号和姓名来查询、修改和删除学生的信息。

2.课程管理模块该模块主要是为了对课程进行管理，包括课程编号、名称、授课老师、教材和上课时间等。

并且可以根据课程的编号、名称和任课老师来查询、修改和删除课程信息。

3.成绩管理模块该模块主要是为了管理学生的成绩信息，包括学生的学号、课程编号、成绩等。

并且可以根据学生的学号和课程编号来查询、修改和删除成绩信息。

4.考勤管理模块该模块主要是为了管理学生的出勤情况，包括学生的学号、课程编号、出勤情况等。

并且可以根据学生的学号和课程编号来查询、修改和删除考勤信息。

5.教师管理模块该模块主要是为了管理教师的基本信息，包括教师编号、姓名、性别、年龄、职称、所授课程等。

并且可以根据教师的编号和姓名来查询、修改和删除教师的信息。

6.课表管理模块该模块主要是为了管理课表信息，包括课程编号、课程名称、上课地点、上课时间等。

并且可以根据课程的编号和名称来查询、修改和删除课表信息。

三、详细设计一旦完成了整体设计之后，我们就可以开始详细设计每个模块里面的具体功能了。

1.学生信息管理模块在该模块设计中，我们需要主要实现添加、修改、删除和查询学生的信息功能。

2.课程管理模块在该模块设计中，我们需要主要实现添加、修改、删除和查询课程信息的功能。

3.成绩管理模块在该模块设计中，我们需要主要实现添加、修改、删除和查询成绩信息的功能。

基于VB6 0学生成绩管理系统的设计与实现

基于VB6.0学生成绩管理系统的设计与实现摘要：本论文叙述了学校学生成绩管理的现状以及Visual basic6.0语言的简单介绍。

重点介绍了学生成绩管理系统的实现过程：包括系统分析、系统调查、数据流程分析、功能设计、数据库设计、系统实现、系统测试和调试。

本系统主要功能有用户管理、班级管理、成绩信息管理、学生信息注册、学生成绩排名管理、优秀学生管理、处分学生管理等，重点论述了功能需求、数据库设计等内容。

关键词：学生成绩管理系统功能实现 VB6.0目录第１章引言 (1)1.1成绩管理系统设计概述 ......................... 错误！未定义书签。

1.2设计意义 (1)1.3学生成绩管理系统的目标 (1)第2章设计分析 (1)2设计中要解决的问题............................. 错误！未定义书签。

2.1系统需求分析 (1)2.2.1 系统功能需求分析 (2)2.2.1.1 系统功能体系图 (2)2.1.2 系统基本功能主要模块及功能 (2)2.2.2数据流分析 (3)第3章系统设计 (6)3系统设计原则 (6)3.1系统总体结构设计 (6)3.2系统数据模型设计 (7)3.2.1 E-R图 (7)3.2.2 关系模型 (7)3.3数据字典 (7)3.4系统开发与运行环境确定 (8)3.4.1 系统开发 (8)3.4.2 系统开发环境 (8)3.4.3运行环境简介 (10)第4章学生成绩管理系统主界面设计、详细设计 (11)4学生成绩管理系统用户管理模块界面设计和详细设计 (11)4.1班级管理模块界面设计、详细设计 (12)4.2学生档案信息管理模块界面设计、详细设计 (12)4.3成绩管理模块界面设计、详细设计 (13)第5章系统评价 (14)5系统主要功能、特点评价 (14)5.1系统存在不足与改进方案 (14)5.1.1系统存在的不足 (14)5.1.2 系统改进方案 (14)结束语 (15)致谢 (16)参考文献 (17)第１章引言自上个世纪90年代以来，计算机技术的迅猛发展和推广普及，为各行各业突飞猛进的发展带来了新生的动力，推动了其他各个行业向更高的层次进步。

VB+SQL学生信息管理系统

计算机网络数据库设计题目: 学生信息管理系统学号xx姓名xx专业xxxx日期2006年12月8日随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。

面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。

通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。

本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。

本系统主要包括学生信息查询、教务信息维护和学生选课三部分。

其功能主要有：⒈有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。

⒉学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。

⒊学生信息的修改。

⒋班级管理信息的输入，包括输入班级设置、年级信息等。

⒌班级管理信息的查询。

⒍班级管理信息的修改。

⒎学生课程的设置和修改。

学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。

该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。

通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。

通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。

本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。

第12章用VB+SQL Server 2005开发学生成绩管理系统

成绩表(T_CJB) 初始记录
成绩 80 69 78 89 54 67 66 87 97 91 69
16
3．实验步骤（1）打开SQL Server Management Studio管理控制台（企业管理器），在对象资源管理器的树形目录中找到xscjglxt数据库并展开它，选择数据库对象“表”，右击“表”对象，则弹出其快捷菜单，如图12-6所示。（2）从弹出的快捷菜单中选择“新建表”命令，则在对象资源管理器窗口的右面弹出“表结构设计”(表设计器)面板，如图12-7所示。该设计器的上半部分是一个表格，在这个表格中输入“学号”、 “姓名”、“性别”、“出生日期”、“院系”等列的属性，表格的每一行对应一个列定义，其含义如下：
26
图12-11 “关系图”快捷菜单
27
（2）在弹出的快捷菜单中选择“新建数据库关系图”命令，则弹出“添加表” 对话框，在这个“对话框”内可以选择要建立关系图的相关表，如图12-12所示。在这个对话框中选择表T_XSB、T_KCB和T_CJB，并单击“添加”按钮进行表添加操作，然后关闭“添加表”对话框。（3）在SQL Server Management Studio管理控制台（企业管理器）中关闭 “对象资源管理器”和“属性”面板，会完整出现“关系图”窗口，如图12-13所示。
17
图12-6 “表”快捷菜单
18
图12-7 表结构设计窗口
19
①列名：合法的列名称，如“学号”、 “姓名”等。 ② 数据类型：数据类型是一个下拉列表框，包括了所有的系统数据类型和用户自定义的数据类型，可从中选择需要定义的数据类型。数据类型后括号内数值表示该字段选择数据类型需要占用内存的字节数。 ③ 允许空：单击可以切换是否允许该列数值为空值的状态，勾选说明允许为空值，空白表示不允许为空值，默认状态表示允许为空值。

基于Excel VBA的成绩管理系统的探索与实现

２０２０年１１月２５日第４卷第２２期现代信息科技Modern Information TechnologyNov.2020 Vol.4 No.22112020.11收稿日期：2020-09-28基金项目：云南省教育厅科学研究基金项目（2020J1176）基于Ｅｘｃｅｌ　ＶＢＡ的成绩管理系统的探索与实现杨发友，曹瀚天，黄恩相，张光福，铁卫华（云南水利水电职业学院，云南昆明 650499）摘要：文章以云南水利水电职业学院的成绩管理为研究对象，以Excel 2010为平台，采用VBA 编程，设计了一款能够自动汇总班级成绩并可以统计出补考学生名单的成绩管理系统。

利用Excel VBA 实现学生成绩管理的自动化处理，提高工作效率和数据处理能力，加强数据处理结果的准确性，实现学生成绩信息管理工作流程的系统化、规范化和自动化，降低工作量，提高工作效率。

关键词：VBA ；自动生成；排版；成绩管理中图分类号：TP311.52文献标识码：A文章编号：2096-4706（2020）22-0011-05Ｅｘｐｌｏｒａｔｉｏｎ　ａｎｄ　Ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　ｏｆ　Ａｃｈｉｅｖｅｍｅｎｔ　Ｍａｎａｇｅｍｅｎｔ　ＳｙｓｔｅｍＢａｓｅｄ　ｏｎ　Ｅｘｃｅｌ　ＶＢＡYANG Fayou ，CAO Hantian ，HUANG Enxiang ，ZHANG Guangfu ，TIE Weihua （Yunnan Water Resources and Hydropower Vocational College ，Kunming 650499，China ）Abstract ：The article takes the achievement management of Yunnan Water Resources and Hydropower Vocational College asthe research object ，uses Excel 2010 as the platform ，and uses VBA programming to design a achievement management system that can automatically summarize class results and make statistics on the list of students who take the retake exam. Using Excel VBA to realize the automatic processing of student achievement management ，improve work efficiency and data processing ability ，strengthen the accuracyof data processing results ，realize the systematization ，standardization and automation of student achievement information management workflow ，reduce workload and improve work efficiency.Keywords ：VBA ；automatic generation ；typesetting ；achievement management0 引言经过多年的教育信息化发展，以互联网为基础的成绩管理系统在各级各类学校中得到了普及。

学生成绩管理信息系统

摘要随着信息系统的普及，学生成绩管理系统依据开发要求主要应用于教育系统，完成对日常的教育工作中学生成绩档案的数字化管理。

开发本系统可使学院教职员工减轻工作压力，比较系统地对教务、教学上的各项服务和信息进行管理，同时，可以减少劳动力的使用，加快查询速度、加强管理，以及国家各部门关于信息化的步伐，使各项管理更加规范化。

本系统在开发过程中，采用Visual Basic作为开发工具，Access作为后台数据库，注意使其符合操作的业务流程，并力求系统的全面性、通用性，使得本系统不只适用于一家教育机构。

在开发方法的选择上，选择了生命周期法与原型法相结合的方法，遵循系统调查研究、系统分析、系统设计和系统实施四个主要阶段进行设计，而在具体的设计上，采取了演化式原型法，随着用户的使用及对系统了解的不断加深，对某一部分或几部分进行重新分析、设计、实施。

本论文主要从系统分析、系统设计、系统实施与使用等几个方面进行介绍。

关键词：学生成绩管理信息系统；Visual Basic 6.0；Access 2000Student achievement management systemStudent:LIANG Ren-ren Teacher:QIN Li-taoAbstract：With the development of information systems , Student achievement management system is mainly applied to education system which manage as the daily teaching education al administration and computeration of teachers and students.Developing grade Management System cannot only ruduce thep resure of the staff and system atically manage the service and information,but also decrease the use of lab our force,accelerate there quiring speed,improve management,speed the pace of concernad national department automated information retrieval to standardize the managements.In developing procedure, ,we use VB and database Access 2000 technology to exploit this system. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it. This system can achieve fundamentally adding、modification and deleting functions in student score and student information facts. The system also includes extra function: security 、updating、expanding 、safeguard etc.Keywords：Student achievement management system；Visual Basic 6.0；Access 2000目次摘要 (I)ABSTRACT (II)绪论 (1)1 系统分析 (2)1.1系统需求分析 (2)1.2系统可行性分析 (2)1.2.1经济上可行性 (2)1.2.2技术上可行性 (2)1.2.3运行上可行性 (3)2 系统设计原理分析 (3)2.1基础数据的处理问题 (3)2.2开发工具设计分析 (3)3 系统设计 (4)3.1系统结构体系设计 (4)3.1.1 功能模块 (5)3.1.2身份认证 (6)3.2数据库结构设计 (7)3.2.1数据结构 (7)3.2.2表结构 (8)3.3系统性能要求设计 (11)3.3.1安全可靠性 (11)3.3.2操作灵活性 (11)3.3.3可维护性 (11)4 系统测试实施 (11)4.1软件测试 (11)4.1.1测试软件 (11)4.1.2测试环境 (12)4.1.3测试内容 (12)4.1.4 测试过程 (12)4.1.5 测试结果 (13)4.1.6数据测试结果图 (13)结论 (15)谢辞 (17)参考文献 (18)绪论随着社会的发展和经济时代的到来，管理信息系统在各行各业都越来越重要，特别是教育事业。

软件工程学生成绩管理系统

延安大学计算机学院《软件工程》实验报告题目：学生成绩管理系统班级：软件14学生学号：学生姓名：1、学生成绩管理系统分析与设计1.1 功能分析在本课程设计中，是对学生成绩的信息进行管理，学生的信息不仅包括学生本身信息，也包括任课教师的信息。

学生信息包括学生学号、姓名、年级、班级和成绩信息，任课教师的信息包括任课教师的教师号,教师姓名和所教课程。

课程表包括课程编号、课程名称、教师号，成绩表包括学生学号、课程编号、成绩和学期。

本系统还额外增加了登陆用户留言的功能，因此本课程设计中要用到四个表，即学生信息表、登陆用户表、课程表、成绩表。

对学生证信息的处理包括信息的录入、查询、修改及删除。

1.2 系统的开发运行环境本系统前端实现: html+css+javaScript本系统后端实现: php+mysql本系统运行环境: windows 71.3 系统总体设计学生成绩管理系统的总体模块设计如下图1所示图1 学生成绩管理系统的功能模块图2 数据库设计2.1 数据库概念结构学生实体E-R图如图2所示。

图2 学生实体E-R图教师实体E-R图如图3所示图3 教师实体E-R图课程实体E-R图如图4所示图4 课程实体E-R图成绩实体E-R图如图5所示图5 成绩实体E-R图2.1 完整实体E-R图如图6所示。

图6 总E-R图2.2 数据库逻辑结构2.2.1 关系模型在学生成绩管理系统中，存在四个实体（学生，教师，课程，成绩），三个联系（管理，拥有，学习），在学生实体中，学号作为其关键字；在教师实体中，教师号作为其关键字；在课程实体中，课程编号作为其关键字；在成绩实体中，学号作为其关键字。

实体关系模式：学生（学号，姓名，年级，班级）教师（教师号，教师名，任课）课程（课程号，课程名称，教师号）选课（学号，成绩，学期，课程号）联系关系模式：拥有（学号，课程编号）管理（学号，课程编号）学习（学号，课程编号）3.2.2视图的设计CREAT TABLE admin (ID int(4) PRIMARY KEYName nvarchar(20)Password nvarchar(20)Type int(4))2.3 数据库的实现学生成绩管理系统数据表如下所示。

学生成绩管理系统(详细操作过程)精讲

学生成绩管理系统我将把我的实现步骤完整的写出来，我是在VC 6.0版本下用MFC实现的。

我创建的基于单文档的应用程序，过程不介绍,大家都会。

下面的是我系统菜单：思路:刚进入系统时，只有“登录”菜单可用，其他三个菜单项都是灰色不可用的。

当用户点“进入系统”菜单项时,用户输入用户名、密码和用户类型，系统将根据相应的用户权限使相应的菜单可用，并且“进入系统”菜单项变为不可用。

如：如果用户类型是学生,那么只有学生权限菜单可用，而“教师权限”和“管理员权限”都不可用,同时“进入系统”变为不可用.“学生权限”下只有“查询成绩"，因为学生只可以查询自己相应的成绩；“教师权限"下有“查询学生成绩”和“增改删学生成绩”两个菜单项，因为教师除了可以查询学生成绩还可以增加、修改和删除学生成绩；“管理员权限”下有“管理学生"和“管理教师"两个菜单项。

整体设计：因为我们要设置系统菜单的状态,所以必须在CMainFrame中添加相应的函数和代码,具体步骤如下:【步骤1】由于系统要使用ODBC类操作数据库,所以需要在stdafx。

h中加入代码：#include 〈afxdb。

h〉【步骤2】在CMainFrame中的OnCreat（)中添加代码如下，实现菜单的初始化工作,当用户没进入系统之前，只有“登陆”菜单下的“进入系统”菜单项可用，而“退出系统"和其他3个权限菜单都不可用，即都是灰色的。

int CMainFrame：:OnCreate(LPCREATESTRUCT lpCreateStruct）｛//使“退出系统”和其他3个权限菜单都不可用，即都是灰色的GetMenu()-〉GetSubMenu(0）—> EnableMenuItem(1,MF_BYPOSITION | MF_DISABLED ｜MF_GRAYED）;GetMenu（）—> EnableMenuItem（1,MF_BYPOSITION ｜MF_DISABLED ｜MF_GRAYED）;GetMenu(）—> EnableMenuItem(2，MF_BYPOSITION ｜MF_DISABLED ｜MF_GRAYED）;GetMenu（）-〉EnableMenuItem(3,MF_BYPOSITION ｜MF_DISABLED | MF_GRAYED）;}【步骤3】在CMainFrame中添加自己定义的函数void SetMenuSta(int type），此函数在登陆对话框的OnOK(）中被调用，即当用户进入系统后使“进入系统”菜单项不可用，并根据用户类型使相应菜单可用。

VB制作学生成绩统计分析系统

用VB制作学生成绩统计分析系统一.程设计的目的和意义每个学校都要举行考试，有的班级更是经常考试。

为了掌握学生的学习情况，老师们不得不花费大量时间和精力对考试成绩进行统计分析，因此，开发一个统计分析软件，具有重要的意义。

为强化和巩固所学的知识，本文所采用的程序是建立在以教材《VB程序设计使用教程》所涉及内容为基础之上的。

二.系统功能设计在本系统中，将主要实现如下的一些功能：1.对各分数段的人数及所占比例进行统计2.对最高分、最低分、平均分进行查询3.对不及格人数及所占比例进行统计4.将成绩分布用直方图表示出来三.设计思路在对课程项目进行分析以后，认为系统应有如下几条要求：1.要有系统登录界面2.要有成绩录入框3.要有统计结果显示界面4.要能对成绩进行保存四.设计流程图五.设计界面、基本控件使用方法简介：1.按退出键，关闭界面，退出程序。

2.按进入键，进入成绩输入界面，如下图所示。

3.建议在1028*768显示分辨率下使用。

1.因文件写入和读出之间有“系统误差”，所以用逗号开头，以消除“误差”2.按确定键，系统自动将成绩保存在“d:\kcsj\cjb.txt”文件，并对文件数据进行读入和运算处理，将统计结果显示在显示界面。

3.按取消键，则返回登录界面。

1.本界面为统计结果显示界面。

2.按返回键，关闭本界面，返回上一界面，即成绩输入界面。

3.按退出键，关闭各界面，结束程序。

六.关键程序//后为该程序段解释Private Sub Form_load()Dim sg() As Single, im(9) As IntegerDim int1, int2, int3 As Integer: Dim x, y, sb, sg1 As SingleDim n, m, z As IntegerDim a, b, c As IntegerOpen "d:\kcsj\cjb.txt" For Input As #1 //打开文件im(0) = -1n = 0Do While Not EOF(1)n = n + 1ReDim Preserve sg(n)Input #1, sg(n)Loop //读入数据Close #1 //关闭文件m = 2Do While m <= nSelect Case sg(m)Case Is >= 90im(9) = im(9) + 1Case Is >= 80im(8) = im(8) + 1Case Is >= 70im(7) = im(7) + 1Case Is >= 60im(6) = im(6) + 1Case Is >= 50im(5) = im(5) + 1Case Is >= 40im(4) = im(4) + 1Case Is >= 30im(3) = im(3) + 1Case Is >= 20im(2) = im(2) + 1Case Is >= 10im(1) = im(1) + 1Case Is >= 0im(0) = im(0) + 1Case Elsea = 1End Selectm = m + 1Loop //将各成绩按分数段分类统计L15.Caption = n – 2 //显示班级人数int2 = 0Do Until int2 > 9L1(int2).Caption = im(int2) //显示各分数段人数sb = im(int2) * 100 / (n - 2)L1(int2 + 10).Caption = Format(sb, "0.0") //显示各分数段人数比例int2 = int2 + 1Loopa = 1:b = 0Dob = b + sg(a)a = a + 1Loop While a <= n - 1Lav.Caption = Format(b / (n - 2), "0.0") //显示平均分For int1 = 2 To n - 2For int2 = int1 + 1 To n - 1If sg(int1) > sg(int2) Thensg1 = sg(int1)sg(int1) = sg(int2)sg(int2) = sg1End IfNextNextLmax.Caption = sg(n - 1) //显示最高分Lmin.Caption = sg(2) //显示最低分z = im(0) + im(1) + im(2) + im(3) + im(4) + im(5)Lren.Caption = z //显示不及格人数Lbi.Caption = Format(z / n, "0") //显示不及格人数所占比例Shape1(0).Height = 0: Shape1(1).Height = 0: Shape1(2).Height = 0: Shape1(3).Height = 0 Shape1(4).Height = 0: Shape1(5).Height = 0: Shape1(6).Height = 0: Shape1(7).Height = 0 Shape1(8).Height = 0: Shape1(9).Height = 0int2 = 0Do Until int2 > 9sb = im(int2) / (n - 2)Shape1(int2).Height = sb * Label7.HeightShape1(int2).Top = Line23.Y1 - Shape1(int2).HeightIf Shape1(int2).Height = 0 ThenShape1(int2).V isible = FalseElse: Shape1(int2).FillStyle = 0End Ifint2 = int2 + 1Loop //显示直方图End Sub七．心得本系统在最简程度上实现了对学生成绩的统计分析，所涉及的也都是基础性的知识。

VB学生成绩管理系统

学生信息管理系统VB

VB课程设计-学生成绩处理系统

巧用ExcelVBA统计学生成绩

基于VB的学生成绩管理系统设计

vb项目开发案例全程实录

VB学生成绩查询统计系统实验报告

vb学生成绩管理系统{完整版}

用VB开发学生成绩管理系统

一种基于VB的成绩管理系统开发

VB语言第5章教案：学生管理系统设计

基于VB6 0学生成绩管理系统的设计与实现

VB+SQL学生信息管理系统

第12章 用VB+SQL Server 2005开发学生成绩管理系统

基于Excel VBA的成绩管理系统的探索与实现

学生成绩管理信息系统

软件工程学生成绩管理系统

学生成绩管理系统(详细操作过程)精讲

VB制作学生成绩统计分析系统

第12章用VB+SQL Server 2005开发学生成绩管理系统