[單項(xiàng)選擇題] 設(shè)在工程中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類(lèi)型：TyPe Record ID A3 IntegerName As String*20 End
[單項(xiàng)選擇題] 設(shè)在工程中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類(lèi)型：TyPe Record ID A3 IntegerName As String*20 End TyPe 在窗體中添加一個(gè)名為Command1的命令按鈕，假設(shè)d：F1.dat文件中含有5個(gè)用戶(hù)自定義類(lèi)型的記錄。要求當(dāng)執(zhí)行事件過(guò)程Command1_Click時(shí)，隨機(jī)訪問(wèn)該文件，并把文件中的第4條記錄讀出。下列能夠完成該操作的程序段是
A．Private Sub Command1_Click( ) Dim MyRecord As Record，PositionOpen"d：F1.dat"For Random As#1 Len=Len(My RecorPosition=4 Get#1，Position，MyrecordClose #1End Sub
B．Private Sub Command1_Click( )Dim MyRecord As Record，Position Open"d：F1.dat"For Random As #1 Len=Len(MyRecorPosition=4Put #1，Position，MyRecordClose#1 End Sub
C．Private Sub Command1_Click( )Dim MyRecord As Record，PositionOpen"d：F1.dar"For OutPut As #1 Len=Len(My RecorPosition=4Get #1，Position，MyRecordClose#1 End Sub
D．Private Sub Command1_Click( )Dim MyRecord As record，PositionOpen"d：F1.dat"For lnput As #1 Len=Len(MyRecorPosition=4Get #1，Position，MyRecordClose#1End Sub
正確答案：A
參考解析：由于是以隨機(jī)方式訪問(wèn)該文件，故打開(kāi)方式為Random。選項(xiàng)C以O(shè)utput方式打開(kāi)，選項(xiàng)D以Input方式打開(kāi)都是錯(cuò)誤的。同時(shí)由于要讀出第四條記錄，故使用Get#語(yǔ)句。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。