Option ExplicitPrivate Type recordID As Integername As String * 5End TypePublic Sub wrong()MsgBox "發(fā)生錯誤" & vbCrLf & Err.Description, 0 + 16, "錯誤"End SubPrivate Sub Form_Click()On Error GoTo tag1Dim myrecord As record, positionOpen "C:\Users\stoplee\Desktop\新建文本文檔 (2).txt" For Random As #1 Len = Len(myrecord)'Debug.Print Len(myrecord)position = 1Get #1, position, myrecordPrint myrecord.nameClose #1Exit Subtag1:wrongEnd Sub這個例子是書上的 主窗體過程里 那個調試注釋是我自己加的 為毛len（myrecord）等于7 ？？？