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

学生成绩设计报告 学院 机械学院 班级 机设074 学号 050378 姓名 李兴业 成绩 一、设计思路 要达到的目的 用思想来完成程序的设计培养综合利用语言进行程序设计的能力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