Vb课程设计-学生成绩处理.doc

××××课程设计报告（VB） 编号 w20

学生成绩处理设计报告

一、设计思路
1.要达到的目的
学习VB程序设计的方法，充分体会VB在程序设计方面的强大功能和特点，培养运用VB解决实际问题的能力。通过本次课程设计，使学生进一步巩固课堂上学到的知识，能利用VB中的基本控件和数组编写一个小的应用软件 —学生成绩处理。
2.关键问题的解决
①设计程序界面
②选取ProgressBar 控件
③添加TXT文件
二、模块之间的调用关系，或程序流程图
调用
调用
调用
调用
读取文件、计算平均分

Singleplayer模块
doubleplayers模块
Singlehelp模块
doublehelp模块

三、部分程序关键源代码及注释
Dim data(100, 3) As String
Dim num As Integer
Private Sub Command1_Click(Index As Integer)
Close #1

Select Case Index
Case 0
Open "d:\成绩.txt" For Append As #1
Dim flag As Boolean
For i = 0 To 3
If Text1(i) = "" Then
MsgBox "请确认学号,姓名,分数都已输入", vbOKOnly, "提示"
flag = True
End If
Next
If Not flag Then
Write #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text)
MsgBox "添加成功"
End If
Case 1
Picture1.Cls
Dim StrLine As String, a() As String
Dim x As Integer, b As Integer
Open "D:\成绩.txt" For Input As #1
i = 0
Do While Not EOF(1)
Line Input #1, StrLine
If StrLine <> "" Then
a() = Split(StrLine, ",")
For j = 0 To 3
data(i, j) = a(j)
Next
End If
i = i + 1
Loop
num = i
For x = 0 To num
For j = 0 To 3
Picture1.Print data(x, j) + " ";
Next
Picture1.Print
Next
Case 2
Picture2.Cls
Open "d:\成绩.txt" For Input As #1
While Not EOF(1)
Line Input #1, StrLine
ss = ss + StrLine + vbCrLf
Wend

Picture2.Print ss
End Select
Close #1
End Sub

Private Sub Form_Load()
Open "D:\成绩.txt" For Append As #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方
①添加1个图片框和一个命令按钮控件，将命令按钮的caption属性设为“按平均分排序”。
②对程序的调用。
③对编程语言的进一步书写。
五、本次设计的收获及心得体会
通过对“学生成绩处理”进行VB编程，使我发现了自己的一个很大的毛病：自以为是。本来以为VB很简单，自己学得很好，结果却远非所料，许多东西都不知道。自己学习的那点知识如同大海的一叶扁舟，根本不值得提。
通过对“学生成绩处理”进行VB编程，使我发现原来VB如此的美妙，许多自己常用的东西原来基本上都可以用VB进行编辑。VB的用处之大，太让我兴奋了。
有时，我为了自己编了一个程序而感到欣慰，太棒了。我为学VB而感到自豪，虽然我懂得不算太多，但毕竟可以做一些简单的程序，今后有机会一定要好好学习VB。
通过对“学生成绩处理”进行VB编程，使我又懂得了一些简单的命令及一些简单的控件，如porogressbar控件，timer控件，文件的打开及写入，画直线及其用直线能画出的图形，可以说是收获颇丰吧。
最后还得谢谢老师的检查及指导。
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
希望能多加一些控件，多一些我们已经学过的程序，那样也算可以学以至用了吧，当然，有一些没学过的程序也好，可以提高自己的自学能力。
2．对本次设计的意见和建议
这次设计的不算很完美，以后一定要好好学习VB，把一些程序设计得更完美，努力提高自己的自学能力和创新设计能力，以便学好VB这门课程，我想不论自己投身什么行业，学好VB是很必要的，能使用VB编程都是一个很有用的能力，我们应该掌握这个技术。