A-A+
下列程序实现的功能是:当在窗体上单击时 从键盘上读入5个学生的学号 姓名 英语成绩并存入到文
问题详情
下列程序实现的功能是:当在窗体上单击时,从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d:stu1.dat中,然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。 Type student No As Long Name As String * 20 English As Integer End Type Private Sub form_ Click () Dim k As student, i As Integer 【 】 Open "d:stu1. dat" for Random As 10 Len = Reclen for i = 1 To 5 k. No= InputBox(“请输入学号”) k. Name = InputBox (“请输入姓名”) k. English= InputBox (“请输入英语成绩”) 【 】 Next i 【 】 Print k. No; k. Name; k. English Close 10 End Sub
请帮忙给出正确答案和分析,谢谢!
参考答案
正确答案:Reclen=Len(k)Put #10 ikGet #103k
本题中定义了一个记录类型Student,并通过一个循环读入5条记录型数据存放到指定的文件中去,因此文件的存取方法应是随机存取方式。从打开文件的Open语句可以看到有一个变量RecLen应是写入文件中的记录长度,在该语句的前面应给该变量赋值,故[8]处应填“Reclen=Len(k)”。在循环中每读入一个记录型的变量值,应立即把该变量写到文件中去,应使用Put语句,故在[9]处应填“Put#10,i,k”。要读出随机文件中的某条记录,可使用Get语句,故在[10]处应填“Get#10,3,k”。