vb课程设-31-072025-学生成绩处理

《vb课程设-31-072025-学生成绩处理》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、学生成绩处理设计报告学院材料学院班级材料074学号072025姓名屈旭光成绩一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力②学会利用VB的标准控件、文件操作和ActiveX控件③利用这些知识，根据文件中的数据绘制出学生成绩的柱状图表④学会EXCEL类型库的使用，由此解决一些相关问题2.关键问题的解决①文本文件的读取和写入；②算出平均数，绘制柱状图表；③添加Progressbarkongjian控件，绘制进度条；④读写EXCEL表。二、模块之间的调用关系，或程序流程图调用for

2、m2根据数据，输入成绩绘制进度条绘制柱状图导入EXCEL保存EXCEL调用form3进入form2三、部分程序关键源代码及注释fileno=FreeFile分配空间给文件filenoOpenApp.Path&"1.txt"ForInputAs#fileno读取1。Txt文件数据并指定文件号的空间ii=1DoWhileNotEOF(fileno)Input#fileno,sname(ii),smath(ii),sphysics(ii),senglish(ii),scomputer(ii)ii=ii+1

3、LoopClose#fileno循环至文件尾，并关闭文件fileno=FreeFileOpenApp.Path&"1.txt"ForInputAs#filenoFori=1Toiis_aver(i)=(smath(i)+sphysics(i)+senglish(i)+scomputer(i))/4Next将数组中的数据写入2.txt文件PrivateSubForm_Load()Line(700,200)-(700,6000)Line(700,6000)-(13000,6000)Forj=1To10L

4、ine(700,6000-500*j)-(700+500,6000-500*j)NextjForj=0To10Label2(j).Caption=j*10Label2(j).Top=6000-500*j-100Label2(j).Left=300NextjForj=0To9………………Label4(j).Caption=""Label4(j).BackColor=QBColor(j+1)Label4(j).Top=700Label4(j).Left=2000+j*1000………………Nextj绘制柱状

5、图IfProgressBar1.Value>78ThenTimer1.Enabled=FalseLabel7.Caption="平均分："&78ElseProgressBar1.Value=ProgressBar1.Value+1EndIf绘制进度条SetExcelApp=CreateObject("Excel.Application")创建EXCEL对象SetExcelbook=ExcelApp.Workbooks.Add打开已经存在的EXCEL工件薄文件ExcelApp.Visible=True设

6、置EXCEL对象可见SetExcelsheet=Excelbook.Worksheets(1)设置活动工作表Excelsheet.Cells(1,1)="姓名"给单元格赋值CommonDialog1.CancelError=TrueCommondialog作用是连接对话框OnErrorGoToErrhandlerCommonDialog1.Filter="所有文件(*.*)

7、*.*

8、文本文件(*.txt)

9、*.txt"&"

10、word文档(*.doc)

11、*.doc"CommonDialog1.Flags

12、=&H4&CommonDialog1.ShowSavesFile=CommonDialog1.FileNameExitSubErrhandler:ExitSub保存EXCEL工件薄文件四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①应该增加些功能，诸如：输入学生数据等②图表的姓名`成绩都是用标签贴上去。③表格中的数据都是手动输入的，太过于繁琐。2.目前存在的问题①能打开“另存为”的界面却无法真正存储。五、本②次设计的收获及心得体会通过这次编程实践，我学会了利用VB的标准控件、文件操作和Ac

13、tiveX控件,根据文本文件中的数据处理学生成绩，并绘制出相应的柱状图表。根据老师的提示和课本上的知识基本完成了扩充部分的内容，了解和学习了读写EXCEL表，并学会了利用VB储存EXCEL文件。这次实践可以使我对课本知识有更深的了解和认识，同时也给我提供了学习课本外知识的机会。从中我学习VB在实际中的一些应用知识。2.关键问题的解决通过学习解决了这次编程中的一些难点：①设计程序界面②选取ProgressBar控件;②③添加Excel类型库（扩充部分）;④