Type Books
Name As String * 10
TelNum As String * 20
E.nd Type
在窗体上画一个名为 Command1 的命令按钮,要求当执行事件过程 Command1_Click 时,在顺序文件Person.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是
A. ) Private Sub Command1_Click()
D.im B As Books
Open “ Person.txt ” For Output As #`1
B.Name=InputBox( “ 输入姓名 ” )
B.TelNum=InputBox( “ 输入电话号码 ” )
Write #1,B.Name,B.TelNum
C.lose #1
E.nd Sub
B. ) Private Sub Command1_Click()
D.im B As Books
Open “ Person.txt ” For input As #`1
B.Name=InputBox( “ 输入姓名 ” )
B.TelNum=InputBox( “ 输入电话号码 ” )
Print #1,B.Name,B.TelNum
C.lose #1
E.nd Sub
C. ) Private Sub Command1_Click()
D.im B As Books
Open “ Person.txt ” For Output As #`1
B.Name=InputBox( “ 输入姓名 ” )
B.TelNum=InputBox( “ 输入电话号码 ” )
Write #1,B
C.lose #1
E.nd Sub
D. ) Private Sub Command1_Click()
Open “ Person.txt ” For input As #`1
Name=InputBox( “ 输入姓名 ” )
TelNum=InputBox( “ 输入电话号码 ” )
Print #1, Name, TelNum
C.lose #1
E.nd Sub