VB课程设-117567测绘C111班赵子恒.docVIP

学生成绩处理设计报告 学院 土木工程学院 班级 测绘C111 学号 117567 姓名 赵子恒 成绩 一、设计思路 1.要达到的目的 学习VB程序设计的方法，充分体会VB在程序设计方面的强大功能和，培养运用VB解决实际问题的能力。ProgressBar 控件 ③添加TXT文件 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 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设计