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

学生成绩处理设计报告 学院 材料学院 班级 材料074 学号 072025 姓名 屈旭光 成绩 一、设计思路 1.要达到的目的 ①培养学生综合利用语言进行程序设计的能力 2.关键问题的解决 ①文本文件的读取和写入； ②算出平均数，绘制柱状图表； ③添加Progressbarkongjian 控件，绘制进度条； ④读写EXCEL表。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 fileno = FreeFile 分配空间给文件fileno Open App.Path \1.txt For Input As #fileno 读取1。Txt文件数据并指定文件号的空间 ii = 1 Do While Not EOF(fileno) Input #fileno, sname(ii), smath(ii), sphysics(ii), senglish(ii), scomputer(ii) ii = ii + 1 Loop Close #fileno 循环至文件尾，并关闭文件 fileno = FreeFile Open App.Path \1.txt For Input As #fileno For 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 j For j = 0 To 10 Label2(j).Caption = j * 10 Label2(j).Top = 6000 - 500 * j - 100 Label2(j).Left = 300 Next j For j = 0 To 9 ……………… Label4(j).Caption = Label4(j).BackColor = QBColor(j + 1) Label4(j).Top = 700 Label4(j).Left = 2000 + j * 1000 ……………… Next j 绘制柱状图 If ProgressBar1.Value 78 Then Timer1.Enabled = False Label7.Caption = 平均分： 78 Else ProgressBar1.Value = ProgressBar1.Value + 1 End 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 Errhandler CommonDialog1.Filter = 所有文件(*.*)|*.*|文本文件(*.txt)|*.txt |word文档(*.doc)|*.doc CommonDialog1.Flags = H4 CommonDialog1.ShowSave sFile = CommonDialog1.FileName Exit Sub E