下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d：\stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。Type student No As Long Name As String * 20 English As IntegerEnd TypePrivate Sub form_ Click () Dim k As student, i As Integer【8】 Open "d:\stu1. dat" for Random As #10 Len = Reclen for i = 1 To 5 k. No= InputBox(“请输入学号”) k. Name = InputBox (“请输入姓名”) k. English= InputBox (“请输入英语成绩”) 【9】 Next i【10】 Print k. No; k. Name; k. English Close #10End Sub
