我自己写的源代码：：
Private Type Student
    Student_ID As String * 8
    Student_Name As String * 6
    Student_score1 As Integer
    Student_score2 As Integer
    Student_score3 As Integer
End Type


Private stu As Student
Dim FileName As String
Dim intCurRecord As Integer
Dim intLastRecord As Integer
Dim intCount As Integer
Dim intFileNum As Integer



Private Sub Cmd_Exit_Click()
    End
End Sub

Private Sub Cmd_Next_Click()
    If intCurRecord < intLastRecord Then
        intCurRecord = intCurRecord + 1
    Else
        If MsgBox("已经是最后一条记录了，是否回到首记录？", vbYesNo + vbQuestion) = vbYes Then
            intCurRecord = 1
        ReadStudentInfo
        End If
    End If
   
    Get #intFileNum, intCurRecord, stu
    ReadStudentInfo
    Close
End Sub

Private Sub Cmd_Previde_Click()
    If intCurRecord > 1 Then
        intCurRecord = intCurRecord - 1
    Else
        MsgBox "已经到了第一条记录了！！！", vbInformation
    End If
   
    Get #intFileNum, intCurRecord, stu
    ReadStudentInfo
    Close
End Sub
Private Sub ReadStudentInfo()
    Text1.Text = stu.Student_ID
    Text2.Text = stu.Student_Name
    Text3 = stu.Student_score1
    Text4 = stu.Student_score2
    Text5 = stu.Student_score3
   
End Sub

Private Sub Form_Load()
    intFileNum = FreeFile()
    strFileName = App.Path & "\学生成绩信息.txt"
    Open strFileName For Random As #intFileNum Len = Len(stu)
    intLastRecord = LOF(1) / Len(stu)
   
    intCurRecord = 1
    If LOF(intFileNum) <> 0 Then
        Get #intFileNum, intCurRecord, stu
        ReadStudentInfo
    End If
End Sub


 
  实现不了额~~望高手帮忙啊

Option Explicit

Private Type Student
    Student_ID As String * 8
    Student_Name As String * 6
    Student_score1 As Integer
    Student_score2 As Integer
    Student_score3 As Integer
End Type

Private stu As Student
Private FileName As String
Private intCurRecord As Integer
Private intLastRecord As Integer
Private intCount As Integer
Private intFileNum As Integer
Private strFileName As String

Private Sub Cmd_Exit_Click()
    Unload Me
End Sub

Private Sub Cmd_Next_Click()
    If intCurRecord < intLastRecord Then
        intCurRecord = intCurRecord + 1
    Else
        If MsgBox("已经是最后一条记录了，是否回到首记录？", vbYesNo + vbQuestion) = vbYes Then
            intCurRecord = 1
        ReadStudentInfo
        End If
    End If
   
    Get #intFileNum, intCurRecord, stu
    ReadStudentInfo
End Sub

Private Sub Cmd_OutputAll_Click()
    stu.Student_ID = Text1.Text
    stu.Student_Name = Text2.Text
    stu.Student_score1 = Text3.Text
    stu.Student_score2 = Text4.Text
    stu.Student_score3 = Text5.Text
    'Write #intFileNum, stu
    Put #intFileNum, , stu
End Sub

Private Sub Cmd_Previde_Click()
    If intCurRecord > 1 Then
        intCurRecord = intCurRecord - 1
    Else
        MsgBox "已经到了第一条记录了！！！", vbInformation
    End If
   
    Get #intFileNum, intCurRecord, stu
    ReadStudentInfo
End Sub

Private Sub ReadStudentInfo()
    Text1.Text = stu.Student_ID
    Text2.Text = stu.Student_Name
    Text3 = stu.Student_score1
    Text4 = stu.Student_score2
    Text5 = stu.Student_score3
End Sub

Private Sub Form_Load()
    intFileNum = FreeFile()
    strFileName = App.Path & "\学生成绩信息.txt"
    Debug.Print strFileName
    Open strFileName For Random As #intFileNum Len = Len(stu)
    intLastRecord = LOF(1) / Len(stu)
   
    intCurRecord = 1
    If LOF(intFileNum) <> 0 Then
        Get #intFileNum, intCurRecord, stu
        ReadStudentInfo
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Close #intFileNum
End Sub

I do not know

但是我每次运行的时候，各科成绩不能正常显示出来~~还有当按下一条的时候~~出现无效的文件或号码呃~~ ~~这个是我写的数据~~请问怎样才能把它给正常显示出来额啊~~谢谢了~~~