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

《VB课程设学生成绩处理报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、××××课程设计报告（VB）编号：××学生成绩设计报告学院机械学院班级机设074学号050378姓名李兴业成绩一、设计思路1.要达到的目的①用VB对象的思想来完成程序的设计，培养自己综合利用VB语言进行程序设计的能力。②学会VB的标准控件，文件基本操作和ActiveX控件的运用③用VB程序绘制图表④用VB对数据的处理⑤对文件进行保存2.关键问题的解决①设计程序界面要在窗体上添加ProgressBar控件，请参考下列说明：执行“工程”菜单中的“部件”命令，或在工具箱的空白处单击鼠标右键，在弹出的快捷菜单中选择“部件”命令，打开“部

2、件”对话框，在“控件”选项卡的控件列表中，选中MicrosoftWindowsCommonControls6.0（即在其前面的方框中加上对勾），即可把公用控件添加到工具箱中。②选取ProgressBar控件MicrosoftWindowsCommonControls6.0是一个控件组，它包含多个控件。其中常用的是：ImageList——图像列表控件Toolbar——工具栏控件StatusBar——状态栏控件ProgressBar——进程条控件选取ProgressBar控件，并将其添加到窗体上。③添加Excel类型库（扩充部分）　

3、VB本身提自动化功能可以读写EXCEL表，其方法如下：　　※在工程中引用MicrosoftExcel类型库：　　从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。二、模块之间的调用关系，或程序流程图调用调用调用调用Gamestart模块Singleplayer模块doubleplayers模块Singlehelp模块doublehelp模块××××课程设计报告（VB）编号：××三、部分程序关键源代码及注释成

4、绩输出：Picture1.Print"姓名";Spc(10);"数学";Spc(10);"物理";Spc(10);"英语";Spc(10);"计算机"Printfileno=FreeFileOpenApp.Path&"chengji0.txt"ForInputAs#filenoii=1DoWhileNotEOF(fileno)Input#fileno,Nam(ii),Math(ii),Phy(ii),English(ii),Computer(ii)Picture1.PrintNam(ii),Math(ii),Phy(ii),E

5、nglish(ii),Computer(ii)ii=ii+1LoopClose#filenoii=ii-1Fori=1ToiiS_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=500y0=7500Forj=1To10Form2.Line(x

6、0+Gap*j,y0-S_Aver(j)*70)-(x0+Gap*j+500,y0),QBColor(j+1),BFForm2.Line(x0+Gap*j,700)-(x0+Gap*j+500,900),QBColor(j+1),BFNextj进度条控制：PrivateSubCommand3_Click()Timer1.Enabled=TrueCallTimer1_TimerEndSubPrivateSubTimer1_Timer()DimaAsIntegera=0ProgressBar1.Value=0Doa=a+1Progr

7、essBar1.Value=ProgressBar1.Value+1Label15.Caption=ProgressBar1.ValueLoopUntilProgressBar1.Value>77Timer1.Enabled=False××××课程设计报告（VB）编号：××EndSub表格绘制：SetExcelApp=CreateObject("Excel.Application")'打印表格SetExcelbook=ExcelApp.Workbooks.AddExcelApp.Visible=TrueSetExcelsheet

8、=Excelbook.Worksheets(1)Excelsheet.Cells(1,1)="姓名"Excelsheet.Cells(1,2)="数学"Excelsheet.Cells(1,3)="物理"Excelsheet.Cells(1,4)="英语"Exc