1、课程设计报告（VB） 编号 w20学生成绩处理设计报告一、设计思路1.要达到的目的学习 VB 程序设计的方法，充分体会 VB 在程序设计方面的强大功能和特点，培养运用VB 解决实际问题的能力。通过本次课程设计，使学生进一步巩固课堂上学到的知识，能利用 VB 中的基本控件和数组编写一个小的应用软件 学生成绩处理。2.关键问题的解决设计程序界面选取 ProgressBar 控件添加 TXT 文件二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释Dim data(100, 3) As StringDim num As IntegerPrivate Sub Command1_Click(
2、Index As Integer)Close #1Select Case IndexCase 0Open “d:成绩.txt“ For Append As #1Dim flag As BooleanFor i = 0 To 3If Text1(i) = “ ThenMsgBox “请确认学号,姓名,分数都已输入“, vbOKOnly, “提示“flag = True调用调用调用 调用读取文件、计算平均分Singleplayer 模块 doubleplayers 模块Singlehelp 模块 doublehelp 模块课程设计报告（VB） 编号 w20End IfNextIf Not flag
3、 ThenWrite #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text)MsgBox “添加成功“End IfCase 1Picture1.ClsDim StrLine As String, a() As StringDim x As Integer, b As IntegerOpen “D:成绩.txt“ For Input As #1i = 0Do While Not EOF(1)Line Input #1, StrLineIf StrLine “ Thena() = Split(StrLine,
4、 “,“)For j = 0 To 3data(i, j) = a(j)NextEnd Ifi = i + 1Loopnum = iFor x = 0 To numFor j = 0 To 3Picture1.Print data(x, j) + “ “;NextPicture1.PrintNextCase 2Picture2.ClsOpen “d:成绩.txt“ For Input As #1While Not EOF(1)Line Input #1, StrLiness = ss + StrLine + vbCrLfWendPicture2.Print ssEnd SelectClose
5、#1End SubPrivate Sub Form_Load()Open “D:成绩.txt“ For Append As #1课程设计报告（VB） 编号 w20End SubPrivate Sub Form_Unload(Cancel As Integer)Close #1End Sub四、设计方案的完善及目前存在的问题1设计方案要完善的地方添加 1 个图片框和一个命令按钮控件，将命令按钮的 caption 属性设为“按平均分排序”。对程序的调用。对编程语言的进一步书写。五、本次设计的收获及心得体会 通过对“学生成绩处理”进行 VB 编程，使我发现了自己的一个很大的毛病：自以为是。本来以为
6、VB 很简单，自己学得很好，结果却远非所料，许多东西都不知道。自己学习的那点知识如同大海的一叶扁舟，根本不值得提。通过对“学生成绩处理”进行 VB 编程，使我发现原来 VB 如此的美妙，许多自己常用的东西原来基本上都可以用 VB 进行编辑。VB 的用处之大，太让我兴奋了。有时，我为了自己编了一个程序而感到欣慰，太棒了。我为学 VB 而感到自豪，虽然我懂得不算太多，但毕竟可以做一些简单的程序，今后有机会一定要好好学习 VB。通过对“学生成绩处理”进行 VB 编程，使我又懂得了一些简单的命令及一些简单的控件，如 porogressbar 控件，timer 控件，文件的打开及写入，画直线及其用直线能画出的图形，可以说是收获颇丰吧。 最后还得谢谢老师的检查及指导。六、对该题目和 VB 设计的意见和建议1. 对该题目的意见和建议希望能多加一些控件，多一些我们已经学过的程序，那样也算可以学以至用了吧，当然，有一些没学过的程序也好，可以提高自己的自学能力。2对本次设计的意见和建议这次设计的不算很完美，以后一定要好好学习 VB，把一些程序设计得更完美，努力提高自己的自学能力和创新设计能力，以便学好 VB 这门课程，我想不论自己投身什么行业，学好 VB 是很必要的，能使用 VB 编程都是一个很有用的能力，我们应该掌握这个技术。
