G1P0，妊娠35周，无明显自觉症状，近2周升高，血压20．8／13．3kPa（156／100mmHg）．浮肿（++），尿蛋白（+），本例应诊断为（）

A.妊娠期高血压

B.子癎前期

C.慢性高血压病并发子癎前期

D.子癎

E.妊娠合并慢性高血压病

设在工程文件中有一个标准模块，其中定义了下列记录类型： 　　Type Books 　　Name As String*10 　　TelNum As String*20 　　End，Type 　　在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 　　()。

A．Private Sub Command1 Click()

Dim B AS Books

Open"Person txt"For Output As#1

B．Name=InputBox(”输入姓名”)

B．relNum=lnputBox(”输入电话号码”)

Wlite#1 B Name，B TelNum

Ch,se#1

End Sub

B．Private Sub Command1 Click()

Dim B AS Books

Open"Person txt"For Input As#1

B．Name=InputBox("输入姓名")

B．TelNum=InputBox("输入电话号码")

Print#1，B．Name，B．TelNam

Close#1

End Sub

C．Private Sub Command1 Click()

Dim BAS Books

Open"Person txt"For Output As#1

B．Name=InputBox("输入姓名")

B．TelNum=InputBox("输入电话号码")

Write#1，B

Close#1

End Sub

D．Private Sub Commandl Click()

Open"Person txt"For Input As#1

Name=lnputBox("输入姓名")

TelNum=lnputBox("输入电话号码")

Prim#1 Name TelNum

Close#1

End Sub