[單項(xiàng)選擇題] 設(shè)在工程文件中有—個標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型：

Type Books

Name As String *10

TelNum As String*20

End Type

在窗體上畫—個名為Command1的命令按鈕，要求當(dāng)執(zhí)行事件過程Command1_Click時，在順序文件Petson.txt中寫入一條Books類型的記錄。下列能夠完成該操作的事件過程是 ______。

A． Private Sub Command1_ Click()

Dim B As Books

Open "Person.txt" For Output As #1

B. Name=InputBox(“輸入姓名”)

B. TelNum=InputBox(“輸入電話號碼”)

Write #1, B. Name, B. TelNum

Close #1

End Sub

B． Private Sub Command1_ Click()

Dim B As Books

Open "Person.txt" For Input As #1

B. Name=InputBox(“輸入姓名”)

B.TelNum=InputBox(“輸入電話號碼”).

Print #1, B. Name, B.TelNum

Close #1

End Sub

C． Private Sub Command1_Click()

Dim B As Books

Open "Person.txt" For Output As #1

B.Name= InputBox(“輸入姓名”)

B.TelNum=InputBox(“輸入電話號碼”)

Write #1，B

Close #1

End Sub

D． Private Sub Command1_ Click()

Open "Person. txt" For Input As #1

Name=InputBox(“輸入姓名”)

TelNum=InputBox(“輸入電話號碼”)

Print #1, Name, TelNum

Close #1

End Sub

正確答案：

A

參考解析：

[知識點(diǎn)] 自定義類型、文件的寫操作[評析] 文件的打開格式為：Open文件名(可包含路徑)For文件打開方式[Access 訪問權(quán)限][Shared]As文件號文件打開方式有如下幾種：Output：指定順序輸出文件。Input：指定順序輸入文件。Append：指定順序輸出方式。與Output不同的是，當(dāng)用Append方式打開文件時，文件指針被定位在文件末尾。如果對文件執(zhí)行寫操作，則寫入的數(shù)據(jù)附加到原來文件的后面。 題目要求當(dāng)執(zhí)行事件過程Command1_Click時，在順序文件Person.txt中寫入一條Books類型的記錄，因此Person.txt文件是Output方是打開的，因此選項(xiàng)B、D錯誤。數(shù)據(jù)寫入磁盤文件所用的命令是Write #或Print #命令，形式為Print #件號，[輸出列表]，Write #破件號，表達(dá)式。選項(xiàng)A、D中的表達(dá)方式都是正確的。記錄變量的輸入和輸出都必須指明到記錄元素。格式為：記錄變量.元素名。選項(xiàng)D中是直接在過程中引用記錄變量，因此是錯誤的。