[填空题] 假设某文件存储的多个用户自定义类型记录，使用Get语句将数据从文件中读出的所有记录放到某数组中。完成该程序。 定义用户自定义的数据类型： Type RecordID As Intege

[填空题] 假设某文件存储的多个用户自定义类型记录，使用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