在工程中的标准模块中定义了如下数据类型： Type fruitorange As Integerapple As Integer End Type 在窗体上有—命令按钮Command1，要求当单击命令按钮时在C:\根目录下的顺序文件myfrtac.txt 中写入一条记录，下列能够完成改操作的事件过程是______ 。

A．Private Sub Command1_Click() Dim myfrt As fruit myfr orange = 5 myfr apple = 10 Open “c:\myfrt txt” For Output As #1 Print #1, myfr orange; myfr apple Close #1 End Sub

B．Private Sub Command1_Click() Dim myfrt As fruit myfr orange= 5 myfr apple= 10 Open “c:\myfrta txt”For Input As #1 Print #1, myfrt, orange; myfr apple Close #1 End Sub

C．Private Sub Command1_Click() Dim myfrt As fruit myfr orange= 5 myfr apple = 10 Open “c:\myfrta txt” For As #1 Print #1, myfr orange; myfr apple Close #1 End Sub

D．Private Sub Command1_Click() Dim myfrt As fruit myfr orange = 5 myfr apple= 10 Open “c:\myfrta.txt” For Output As #1 Print myfr orange; myfr apple Close #1 End Sub

甲、乙两人在相距10千米的A、B两地相向而行，甲每小时走x千米，乙每小时走2x千米，两人同时出发1.5小时后相遇，列方程可得（    ）．