窗体界面:
(用于记录学生信息)

控件:
CommandButton
TextBox
Label
OptionButton

代码:

'在VB中,对汉字字符长度的定义,偶尔会出现Bug.标准定义Len("例")=2,
'但是VB偶尔会认为是1.例如Textbox.Maxlength属性定义Len("例")=1
Type studentType   '定义studentType
  iNo As String * 5  '学号
  strName As String * 10  '姓名
  bolSex As Boolean '性别
End Type

Dim recView As Integer       '检索时候输入的
Dim recSum As Integer         '总记录数
Private Sub cmdAppend_Click()  '追加记录
student.iNo = txtNo.Text
student.strName = txtName.Text
'使用IIF语句
student.bolSex = IIf(optMale.Value, True, False)
If txtNo.Text = "" Or txtName.Text = "" Then
    MsgBox "输入数据错误.", vbCritical, "追加记录"
   txtNo.Text = ""
   txtName.Text = ""
   txtNo.SetFocus
   Else
  Open App.Path & "\student.dat" For Random As #1 Len = Len(student)
     recSum = LOF(1) / Len(student) + 1
     Put #1, recSum, student
  Close #1
txtNo.Text = ""
txtName.Text = ""
txtNo.SetFocus
End If
'显示当前总记录数
  Open App.Path & "\student.dat" For Random As #1 Len = Len(student)
    If LOF(1) = 0 Then
        lblRec.Caption = "文件总记录数: 0"
     Else
       Get #1, LOF(1) / Len(student), student
       recSum = LOF(1) / Len(student)
      lblRec.Caption = "文件总记录数: " & recSum
   End If
  Close #1
End Sub
Private Sub cmdCheck_Click() '检索
 txtNo.Text = ""
 txtName.Text = ""
   tempStr = InputBox("输入要检索的姓名.", "检索记录", , Me.Left, Me.Top)
   Open App.Path & "\student.dat" For Random As #1 Len = Len(student)
    ad = LOF(1)
    recSum = LOF(1) / Len(student)  '当前总记录数
    For i = 1 To recSum  '索引
      Get #1, i, student
      '用Instr语句,返回在student.strName字符串中第一次出现tempStr字符串的位置
      'Instr支持模糊查询
      If InStr(student.strName, tempStr) > 0 Then
       txtName.Text = Trim(student.strName)
        txtNo.Text = Trim(student.iNo)
        optMale.Value = IIf(student.bolSex = True, True, False)
        optFemale.Value = IIf(student.bolSex = False, True, False)
      End If
    Next i
    If txtNo.Text = "" Then MsgBox "无此对应记录.", vbInformation, "检索记录"
  Close #1
End Sub
Private Sub cmdEraser_Click() '删除文件
If MsgBox("删除所有记录吗?", vbExclamation + vbYesNo, "删除文件") = vbYes _
Then Kill (App.Path & "\student.dat"): lblRec.Caption = "文件总记录数: 0"
End Sub
Private Sub cmdView_Click()
'顺序查看记录,输入正确记录数后,显示对应的学号与姓名
  recView = Val(InputBox("输入要检索的记录号.", "顺序查看", , Me.Left, Me.Top)) '接受记录数
If recView = 0 Then
    MsgBox "记录号输入有误.", vbCritical, "顺序查看"
    Else
     Open App.Path & "\student.dat" For Random As #1 Len = Len(student)
           Get #1, recView, student
     Close #1
      txtNo.Text = Trim(student.iNo)
      txtName.Text = Trim(student.strName)
      optMale.Value = IIf(student.bolSex = True, True, False)
      optFemale.Value = IIf(student.bolSex = False, True, False)

If txtNo.Text = "" Then MsgBox "无此对应记录.", vbCritical, "顺序查看"
End If
End Sub
Private Sub Form_Load()
'显示文件当前总记录数
Open App.Path & "\student.dat" For Random As #1 Len = Len(student)
If LOF(1) = 0 Then '如果文件内容是空的
   lblRec.Caption = "文件总记录数: 0"
   Close #1
Else               '如果文件里面有记录
    Get #1, LOF(1) / Len(student), student
    recSum = LOF(1) / Len(student)
Close #1
lblRec.Caption = "文件总记录数: " & recSum
End If
End Sub

笔者注:
  Win2000+Vb6.0测试通过。
   仅适合*.dat文件，因为Get和Put语句不能用于*.txt文件。*.dat可用*.txt文件打开查看“文本”内容。
   相比建数据库时用的ADO、DAO等，顺序文件较方便，语言不难。但限于VB本身顺序文件的功能，其建的数据库功能较小。
   限于水平，还望高手指点。