下列程序实现的功能是：当在窗体上单击时 从键盘上读入5个学生的学号 姓名 英语成绩并存入到文件d：/
下列程序实现的功能是：当在窗体上单击时，从键盘上读入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
请帮忙给出正确答案和分析，谢谢！
参考解答
410***264
2023-07-22 13:17:00
正确答案：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”。
相似问题
以下程序用随机函数模拟掷骰子 统计掷50次骰子出现各点的次数。阅读该程序 并在【 】和【 】处填上正
以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【 】和【 】处填上正确的内容。 Private Sub Command1_ Click()
属性窗口分为4个部分 这4个部分分别是______。请帮忙给出正确答案和分析 谢谢！
属性窗口分为4个部分，这4个部分分别是______。请帮忙给出正确答案和分析，谢谢！
下列程序段在窗体上输出______ 在立即窗口中输出______。 S1='software' S2
下列程序段在窗体上输出______，在立即窗口中输出______。 S1="software" S2="hardware" S3="computer" Print Right(S1, 3) Picture1 Print Mid(
以下程序找出50以内所有能构成直角三角形的整数组。请在程序【 】处填上正确内容。 Private S
以下程序找出50以内所有能构成直角三角形的整数组。请在程序【 】处填上正确内容。 Private Sub Command1_ Click() for a = 1 To 50 for b
以下程序的功能是：从键盘上输入若干个学生的考试分数 当输入负数时结束输入 然后输出其中的最高分数和最
以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在【 】和【 】处填入适当的内容
