假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type 要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下 列能够完成该操作的事件过程是：

A．Private Sub Command1_Click() Dim B As BooksOpen "c:\Person.txt" For Output As #1B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNumClose #1 End Sub

B．Private Sub Command1_Click() Dim B As BooksOpen "c:\Person.txt" For Input As #1B.Name = InputBox("输入姓名")B.TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1 End Sub

C．Private Sub Command1_Click() Dim B As BooksOpen "c:\Person.txt" For Output As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码") Write #1, B Close #1 End Sub

D．Private Sub Command1_Click() Dim B As BooksOpen "c:\Person.txt" For Input As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNumClose #1 End Sub

潜移默化：是指人的性格、思想和习惯等在不知不觉中受到外界影响而逐渐发生变化。
下列哪一项不是属于潜移默化( )

A．小王以前总是不爱开口，而到了一所大学后，由于他的同学都爱说话，三年后，他好像变了一个人，非常爱说话。

B．小李以前不爱看书，但在图书馆工作了一年后，由于那里的人都爱看书，他变得也爱看书了。

C．小张总觉得朋友不可信，但在他交了好多知心朋友之后，他逐渐对朋友改变了看法。

D．小赵以前学习不好，但自从来了个好老师，而且这个老师总是特别地帮助他，经过两个月的时间，他的成绩提高了许多。