问题
填空题
假设某文件存储的多个用户自定义类型记录,使用Get语句将数据从文件中读出的所有记录放到某数组中。完成该程序。
定义用户自定义的数据类型:
Type Record
ID As Integer
Name As String * 20
End Type
Sub GetRecord()
Dim MyRecord As Record, Position
Open"TESTFILE"For Random As #1 Len=______
Position=3
Get #1, Position, MyRecord
Close #1
End Sub
答案
参考答案:Len(MyRecord)