[填空题] 下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。Private Sub Form_Click()Dim k As

[填空题] 下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。 Private Sub Form_Click()Dim k As

[填空题] 下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。

Private Sub Form_Click()

Dim k As Integer

Dim n As Integer，i As Integer

n=Len(k)

Open 【13】 As#10 Len=n

For i=1 To 10

k=InputBox("请输入一个整数")

【14】

Next i

【15】

Get #10，，k

Print k

End Sub

正确答案：

[AC]"D:aA.dat"For Random[AD]Put #A0，i，k[AE]Seek #A0,E

参考解析：

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