下列哪一种情况禁忌作为器官移植的供者（）。

A.脓毒症血培养阴性

B.年龄超过50岁

C.乙肝病毒感染

D.患骨肉瘤

E.患脑原发性恶性肿瘤

假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books
Name As String*10
TelNuin As String*20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Clickk()
DimB As Books
　　open"c:\person.txt"For output As #1
　　B.Name=InputBox("请输入姓名")
　　B.TelNum=InputBox("请输入电话号码")
　　write #1，______
　　close #1
End Sub