VB课程设学生成绩处理报告.doc

学生成绩设计报告学院 机械学院 班级 机设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类型库。二、模块之间的调用关系，或程序流程图调用调用调用调用Gamestart模块Singleplayer模块doubleplayers模块Singlehelp模块doublehelp模块三、部分程序关键源代码及注释成绩输出：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), bx0 = 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), BFNext j进度条控制：Private Sub Command3_Click() Timer1.Enabled = True Call Timer1_TimerEnd SubPrivate 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 = FalseEnd 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.FileNameExit SubErrhandler: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的打开和保存。在程序设计过程中我学到了一些以前没用过的控件和文件在Visu