VB课程设-31-072025-学生成绩处理.doc

此文档收集于网络，如有侵权，请联系网站删除学生成绩处理设计报告学院 材料学院 班级 材料074 学号 072025 姓名 屈旭光 成绩 一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力学会利用VB的标准控件、文件操作和ActiveX控件利用这些知识，根据文件中的数据绘制出学生成绩的柱状图表学会EXCEL类型库的使用，由此解决一些相关问题2.关键问题的解决文本文件的读取和写入；算出平均数，绘制柱状图表；添加Progressbarkongjian 控件，绘制进度条；读写EXCEL表。 二、模块之间的调用关系，或程序流程图调用form2根据数据，输入成绩绘制进度条绘制柱状图导入EXCEL保存EXCEL调用form3进入form2三、部分程序关键源代码及注释fileno = FreeFile 分配空间给文件filenoOpen App.Path & 1.txt For Input As #fileno 读取1。Txt文件数据并指定文件号的空间ii = 1Do While Not EOF(fileno) Input #fileno, sname(ii), smath(ii), sphysics(ii), senglish(ii), scomputer(ii)ii = ii + 1LoopClose #fileno 循环至文件尾，并关闭文件fileno = FreeFileOpen App.Path & 1.txt For Input As #filenoFor i = 1 To ii s_aver(i) = (smath(i) + sphysics(i) + senglish(i) + scomputer(i) / 4 Next 将数组中的数据写入2.txt文件 Private Sub Form_Load()Line (700, 200)-(700, 6000)Line (700, 6000)-(13000, 6000)For j = 1 To 10 Line (700, 6000 - 500 * j)-(700 + 500, 6000 - 500 * j)Next jFor j = 0 To 10 Label2(j).Caption = j * 10 Label2(j).Top = 6000 - 500 * j - 100 Label2(j).Left = 300Next jFor j = 0 To 9 Label4(j).Caption = Label4(j).BackColor = QBColor(j + 1) Label4(j).Top = 700Label4(j).Left = 2000 + j * 1000Next j 绘制柱状图If ProgressBar1.Value 78 ThenTimer1.Enabled = FalseLabel7.Caption = 平均分： & 78ElseProgressBar1.Value = ProgressBar1.Value + 1End If 绘制进度条Set ExcelApp = CreateObject(Excel.Application) 创建EXCEL对象Set Excelbook = ExcelApp.Workbooks.Add 打开已经存在的EXCEL工件薄文件ExcelApp.Visible = True 设置EXCEL对象可见Set Excelsheet = Excelbook.Worksheets(1) 设置活动工作表 Excelsheet.Cells(1, 1) = 姓名 给单元格赋值CommonDialog1.CancelError = True Commondialog作用是连接对话框On Error GoTo ErrhandlerCommonDialog1.Filter = 所有文件(*.*)|*.*|文本文件(*.txt)|*.txt & |word文档(*.doc)|*.docCommonDialog1.Flags = &H4&CommonDialog1.ShowSavesFile = CommonDialog1.FileNameExit SubErrhandler:Exit Sub 保存EXCEL 工件薄文件四、设计方案的完善及目前存在的问题1设计方案要完善的地方 应该增加些功能，诸如：输入学生数据等 图表的姓名成绩都是用标签贴上去。表格中的数据都是手动输入的，太过于繁琐。2. 目前存在的问题能打开“另存为”的界面却无法真正存储。五、本 次设计的收获及心得体会通过这次编程实践，我学会了利用VB的标准控件、文件操作和ActiveX控件,根据文本文件中的数据处理学生成绩，并绘制出相应的柱状图表。根据老师的提示和课本上的知识基本完成了扩充部分的内容，了解和学习了读写EXCEL表，并学会了利用VB储存EXCEL文件。这次实践可以使我对课本知识有更深的了解和认识，同时也给我提供了学习课本外知识的机会。从中我学习VB在实际中的一些应用知识。2.关键问题的解决 通过学习解决了这次编程中的一些难点：设计程序界面选取ProgressBar 控件;添加Excel类型库（扩充部分）;绘制柱状图表；六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议能否把“学生成绩柱状图”换成“动态图或者曲线图”，