填空题下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。 Private Sub Form_Click() Dim k As Integer Dim n As Integer，i As Integer n=Len(k) Open{{U}} 【13】 {{/U}}As#10 Len=n For i=1 To 10 k=InputBox("请输入一个整数") {{U}} 【14】 {{/U}} Next i {{U}}【15】 {{/U}} Get #10，，k Print k End Sub

1、

【正确答案】 1、[13]"D:/a1.dat"For Random[14]Put #10，i，k[15]Seek #10,5

【答案解析】[解析] 根据分析可知，本题打开的文件可以先写后读，既可以读又可以写，同时又发现文件读写使用Get#和Put#语句，因此，应该用随机方式打开文件，故[13]处应填“"D:/a1.dat"For Random”。通过一个For循环输入10个数，并把它们写到文件中去，因此[14]处应填“Put #10，i，r”。为读出第5个整数，必须首先把记录指针移到第5条记录处，可使用Seek#语句，故[15]处应填“Seek　#10,5”。