VB课程设-设计模板.docVIP

学生成绩的文件管理设计报告 学院 土木工程学院 班级 测绘C111 学号 117534 姓名 白玉 成绩 一、设计思路 1.要达到的目的 ①能够按照要求画出界面。 ②要求实现顺序、随机和二进制三种访问文件的方式。 ③使用Option控件进行项目的选择。 ④使用TEXT文本框控件显示读入文件的内容 2.关键问题的解决 ①利用Open App.Path \score.txt For Input As #fileno语句将\score.txt文件打开。 ②利用For…next循环和Do…loop循环读取数据和处理数据。 ③利用If…ElseIf…EndIf循环读取数据。 ④利用If…ElseIf…EndIf循环判断输入分数正确性（扩充部分）。 ⑤利用Do…loop循环查找成绩（扩充部分）。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Private Sub Command1_Click() Dim english, math, com As Integer Dim name As String name = Text1.Text english = Val(Text2.Text) math = Val(Text3.Text) com = Val(Text4.Text) If english 100 Or english 0 Or math 100 Or math 0 Or com 100 Or com 0 Then 判断输入分数正确性 Dim msg, style, title, response msg = 输入分数不正确。 style = vbOKOnly title = 提示信息 response = MsgBox(msg, style, title) Else If Option1.Value Then Open App.Path \score1.txt For Append As #1 保存成绩操作 Print #1, name, Write #1, english, math, com Close #1 ElseIf Option2.Value Then Dim stu1 As ID, stu As ID Dim i As Integer Open App.Path \score2.txt For Random As #30 Len = Len(stu1) Do While Not EOF(30) i = i + 1 Get #30, i, stu Loop Close #30 Open App.Path \score2.txt For Random As #3 Len = Len(stu1) = name stu1.english = english stu1.math = math = com Put #3, i + 1, stu1 Close #3 ElseIf Option3.Value Then Open App.Path \score3.txt For Binary As #50 Do While Not EOF(50) i = i + 1 Get #50, , stu Loop Close #50 Open App.Path \score3.txt For Binary As #5 = name stu1.english = english stu1.math = math = com Put #5, 1 + 12 * i, stu1 Close #5 End If End If End Sub Private Sub Command2_Click() If Option1.Value Then Dim str1 As String Text5.Text = Open App.Path \score1.txt For Input As #2 顺序文件读取操作