[填空題] 下列程序?qū)崿F(xiàn)的功能是：從鍵盤(pán)上輸入10個(gè)整數(shù)，并把它們寫(xiě)到“D：”盤(pán)“a1．dat”文件中，然后從中讀出第5個(gè)數(shù)并輸出。 Private Sub F
[填空題] 下列程序?qū)崿F(xiàn)的功能是：從鍵盤(pán)上輸入10個(gè)整數(shù)，并把它們寫(xiě)到“D：”盤(pán)“a1．dat”文件中，然后從中讀出第5個(gè)數(shù)并輸出。 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 10k=InputBox("請(qǐng)輸入一個(gè)整數(shù)") 【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
參考解析：根據(jù)分析可知，本題打開(kāi)的文件可以先寫(xiě)后讀，既可以讀又可以寫(xiě)，同時(shí)又發(fā)現(xiàn)文件讀寫(xiě)使用Get#和Put#語(yǔ)句，因此，應(yīng)該用隨機(jī)方式打開(kāi)文件，故[13]處應(yīng)填“"D:a1.dat"For Random”。通過(guò)一個(gè)For循環(huán)輸入10個(gè)數(shù)，并把它們寫(xiě)到文件中去，因此[14]處應(yīng)填“Put #10，i，r”。為讀出第5個(gè)整數(shù)，必須首先把記錄指針移到第5條記錄處，可使用Seek#語(yǔ)句，故[15]處應(yīng)填“Seek #10,5”。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。