![[填空题] 假设某文件存储的多个用户自定义类型记录，使用Get语句将数据从文件中读出的所有记录放到某数组中。完成该程序。定义用户自定义的数据类型：Type RecordID As Intege,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%81%87%E8%AE%BE%E6%9F%90%E6%96%87%E4%BB%B6%E5%AD%98%E5%82%A8%E7%9A%84%E5%A4%9A%E4%B8%AA%E7%94%A8%E6%88%B7%E8%87%AA%E5%AE%9A%E4%B9%89%E7%B1%BB%E5%9E%8B%E8%AE%B0%E5%BD%95%EF%BC%8C%E4%BD%BF%E7%94%A8Get%E8%AF%AD%E5%8F%A5%E5%B0%86%E6%95%B0%E6%8D%AE%E4%BB%8E%E6%96%87%E4%BB%B6%E4%B8%AD%E8%AF%BB%E5%87%BA%E7%9A%84%E6%89%80%E6%9C%89%E8%AE%B0%E5%BD%95%E6%94%BE%E5%88%B0%E6%9F%90%E6%95%B0%E7%BB%84%E4%B8%AD%E3%80%82%E5%AE%8C%E6%88%90%E8%AF%A5%E7%A8%8B%E5%BA%8F%E3%80%82%E5%AE%9A%E4%B9%89%E7%94%A8%E6%88%B7%E8%87%AA%E5%AE%9A%E4%B9%89%E7%9A%84%E6%95%B0%E6%8D%AE%E7%B1%BB%E5%9E%8B%EF%BC%9AType+RecordID+As+Intege.png "[填空题] 假设某文件存储的多个用户自定义类型记录，使用Get语句将数据从文件中读出的所有记录放到某数组中。完成该程序。定义用户自定义的数据类型：Type RecordID As Intege,第1张")
[填空题] 假设某文件存储的多个用户自定义类型记录，使用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)
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）