2. 计算机
  3. 下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d：\stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。 Type student No As Long Name As Stri

下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d：\stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。 Type student No As Long Name As Stri

admin2010-09-11  39
问题 下列程序实现的功能是：当在窗体上单击时，从键盘上读入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 i，k,Get #10，3，k
解析 本题中定义了一个记录类型Student，并通过一个循环读入5条记录型数据存放到指定的文件中去，因此文件的存取方法应是随机存取方式。从打开文件的Open语句可以看到有一个变量RecLen应是写入文件中的记录长度，在该语句的前面应给该变量赋值，故[8]处应填“Reclen= Len(k)”。在循环中每读入一个记录型的变量值，应立即把该变量写到文件中去，应使用Put语句，故在[9]处应填“Put #10，i，k”。要读出随机文件中的某条记录，可使用Get语句，故在[10]处应填“Get #10，3，k”。
转载请注明原文地址:https://jikaoti.com/ti/PEg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)