男，43岁，农民，急起发热、头痛、全身乏力6天，查体：体温37℃，脉搏122次/分，血压70/60mmHg，神清，呈“酒醉貌”，眼结膜充血，球结膜可见片状出血，注射部位可见大片瘀斑，肺部未闻及异常。

首要的检查是()

A．骨髓培养

B．血培养

C．肝功能检测

D．血、尿常规检查

E．出、凝血时间测定

建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。
Private Type PerData
Name 1 As String
Phon As String *11
Address As String *10
PostCd As String*6
End Type
______’定义PerData类型的变量xData
Pdvate Sub Form Load()
Open"C:\phonBook.txt"For Random As 1
End Sub
Private Sub Command1_Click()
xData.Name1=Text1.Text
xData.Phon=Text2.Text
______=Text3.Text ’地址
xData.PostCd=Text4.Text
Put#1,1,xData
Text1.Text="":Text2.Text=""
Text3.Text="":Text4.Text=""
End Sub
Ptirate Sub Command2_Click()
reno=LOF(1)/Len(xData)
i=1
Do While i＜=reno
Get#1,i,xData
Debug.Print xData.Namel, ______ ,xData.Address,xData.PostCd
i=i+1
Loop
End Sub