[求助]帮忙看看这句错在哪里
帮忙看看这句错在哪里.红色的那句.
Private Type student
IntNo As String * 8
StrName As String * 6
StrSex As String * 2
End Type
Dim stu As student
Dim Nosum As Integer
Dim nFile As Integer
Private Sub Form_Load()
nFile = FreeFile
Open "D:\student.dat" For Random As #nFile Len = Len(stu)
Nosum = Int(LOF(nFile) / Len(stu))
Label1.Caption = "共" & Nosum & "条记录"
Seek #nFile, Nosum + 1
End Sub
Private Sub Command1_Click()
stu.StrName = Text1.Text
stu.IntNo = Text2.Text
If Option1(0).Value = True Then
stu.StrSex = "男"
Else
stu.StrSex = "女"
End If
Put #nFile,stu
End Sub
错误提示:Compile error
Expected:list separator
