[填空題] 下列程序?qū)崿F(xiàn)的功能是：當(dāng)在窗體上單擊時(shí)，將隨機(jī)產(chǎn)生100個(gè)3位數(shù)，并把它們寫到D盤根目錄下的文件myfile1．Dat中。 Private Sub
2021-07-20
[填空題] 下列程序?qū)崿F(xiàn)的功能是：當(dāng)在窗體上單擊時(shí)，將隨機(jī)產(chǎn)生100個(gè)3位數(shù)，并把它們寫到D盤根目錄下的文件myfile1．Dat中。
Private Sub Form_Click()
Dim k As Integer
Open 【13】
Randomize
For i=1 To 10
k=100+Int(899*Rnd)
【14】
Next i
【15】
End Sub
正確答案：[AC]"d:myfilel．dat" For Random As #A0 [AD]Put#A0,i,k[AE]Close #A0
參考解析：要使用文件，首先必須打開文件，本題沒有說明該文件是隨機(jī)文件還是順序文件，因此用隨機(jī)文件和順序文件均可以，本題以隨機(jī)文件處理為例。故[13]應(yīng)填打開文件的語句，為“"d:myfilel．dat" For Random As #10”。打開文件后，本題通過一個(gè)For循環(huán)向文件中寫入數(shù)，該循環(huán)執(zhí)行了10次，每一次產(chǎn)生一個(gè)三位數(shù)，并把該數(shù)寫到文件中去。向隨機(jī)文件寫入數(shù)據(jù)要用Put語句，故[14]處應(yīng)填“Put #10，i，k”。文件讀寫完畢后，應(yīng)關(guān)閉文件，所以[15]處應(yīng)填“Close #10”。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。