假定在工程文件中有一个标准模块,其中定义了如下记录类型 Type BooksName As String*10TelNum As String*20 End Type 要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是:
A.Ptivate Sub Command1_Click()Dim B As BooksOpen"c:\Persotxt"For Output As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1,Name,TelNumClose#1 End Sub
B.Private Sub Command1_Click()Dim B As BooksOpen"c:\Persotxt"For Input As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1,Name,TelNumClose#1 End Sub
C.Private Sub Command1_Click()Dim B As BooksOPQl"c:\Persotxt"For Output As#1Nallle=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1,BClose#1 End Sub
D.Private Sub Command1_Click()Dim B As BooksOpen"c:\Persotxt"For lnput As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1,Name,TelNumClose#1 End Sub