当前位置:文档之家› VB课程设学生成绩处理报告

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

学生成绩设计报告

学院机械学院班级机设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类型库。

二、模块之间的调用关系,或程序流程图

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

三、部分程序关键源代码及注释

成绩输出:

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

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.FileName

Exit Sub

Errhandler:

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的打开和保存。

在程序设计过程中我学到了一些以前没用过的控件和文件在Visual Basic程序设计的操作,对以前常用的标签和控件运用的有了更深的了解和熟练

六、对该题目和VB设计的意见和建议

1. 对该题目的意见和建议

题目出的很好,很使用,可以在以后对学生成绩处理引用中这个程序。难度有点高。

2.对本次设计的意见和建议

设计的不太成功,但是象这样的实际实践机会并不多,希望学校常做这样的设计。

下载文档原格式(Word原格式,共4页)
相关文档
  • vb课程设计报告

  • 数字图像处理课设报告

  • vb学生成绩管理系统

  • vb课程设计报告书

  • 现代信号处理课设报告

  • vb课程设计报告精选

相关文档推荐: