Type recordtype
name As String
age As Integer
tel As String
End Type

Dim number As Integer
Dim recordw As recordtype
Private Sub Form_click()
Open "e:\tel.txt" For Random As #1 Len = Len(recordw)
number = LOF(1) / Len(recordw)
enter = Chr$(13) + Chr$(10)
msg$ = "1.建立文件"
msg$ = msg$ + enter + enter + "请选择操作"
resp = InputBox(msg$)
Select Case resp
       Case 1
         file_write
End Select
End Sub

Sub file_write()
Do
  recordw.name = InputBox$("enter name")
  recordw.age = InputBox("enter age")
  recordw.tel = InputBox$("enter tel")
  number = number + 1
  Put #1, number, recordw
Loop Until recordw.name = "done"
End Sub

请教一下为什么会出错?

下午翻了一下书,总算看出来了!
原来随机文件要有定长才行,唉,去了一上午
Type recordtype
name As String*10
age As Integer
tel As String*15
End Type
 string后面不加数超为128计算机不认识了,唉,可怜耽误一个上午!
请和我一样范同样错误的人注意呀!!!!