五输穴是特定穴之一。古代医家把经气在经脉中运行的情况，比作自然界的水流，以说明经气的出入和经过部位的深浅及其不同作用。

五输穴说明经气的出入，以下哪一项是错误的：

A:所出为井 B:所溜为荥 C:所滴为输 D:所行为经 E:所人为合

五输穴是特定穴之一。古代医家把经气在经脉中运行的情况，比作自然界的水流，以说明经气的出入和经过部位的深浅及其不同作用。

阴经五输穴的输穴与原穴的关系是：

A:输穴与原穴合而为一 B:输穴与原穴异位同名 C:输穴与原穴分别设立 D:只有输穴，没有原穴 E:只有原穴，没有输穴

某男性患者，23岁，因发热、伴淋巴结无痛进行性肿大2个月入院。既往无输血史。入院后确诊为非霍奇金淋巴瘤。给予化疗和放疗治疗后，病情明显好转。三个月后又复发、高热、伴消化道出血。淋巴结、肝、脾大。化验全血细胞减少，周围血见到幼稚淋巴细胞，骨穿确诊为淋巴瘤合并淋巴肉瘤白血病。立即给予化疗，因血小板10×10/L，连续输注血小板2次，出血症状未见改善，血小板数量不增，考虑患者血小板输注无效。

判断血小板输注无效的依据是

A:输后thR<10%，输后20hR<5% B:输后thR<20%，输后20hR<10% C:输后thR<25%，输后20hR<15% D:输后thR<30%，输后20hR<20% E:输后thR<35%，输后20hR<25%

某男性患者，22岁。因发热、伴淋巴结无痛进行性肿大2个月入院。既往无输血史。入院后确诊为非霍奇金淋巴瘤。给予化疗和放疗治疗后，病情明显好转。3个月后又复发、高热、伴消化道出血。淋巴结、肝、脾大。化验全血细胞减少，周围血见到幼稚淋巴细胞，骨穿确诊为淋巴瘤合并淋巴肉瘤白血病。立即给予化疗，因血小板10×10/L，连续输注血小板2次，出血症状未见改善，血小板数量不增，考虑患者血小板输注无效。

判断血小板输注无效的依据是

A:输后1hR<10%，输后20hR<5% B:输后1hR<20%，输后20hR<10% C:输后1hR<25%，输后20hR<15% D:输后1hR<30%，输后20hR<20% E:输后1hR<35%，输后20hR<25%

以下语句执行时，从键盘上输入Zhang，执行结果是______。 Dim a As String a=InputBox("Input"，""，"Name") Print a

A:Input B:Name C:Zhang D:空字符串

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

A:Private Sub Command1_Click() Dim B As Books Open"c:/Perso txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write #1, Name, TelNum Close #1 End Sub B:Private Sub Command1_Click() Dim B As Books Open"c:/Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话导码") Print #1, Name, TelNum Close #1 End Sub C:Private Sub Command1_Click() Dim B As Books Open"c:/Perso txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Close #1 End Sub D:Private Sub Command1_Click() Dim B As Books Open "c:/Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, TelNum Close #1 End Sub

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

A:Prirate Sub Commandl Click() Dim B As Books Open"C:/Persotxt"For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write #1,Name,TelNum Close #1 End Sub B:Pdrate Sub Commandl Cliok() Dim B As Books Open"c:/Persotxt"For Input As #1 Name=InputBox("输入姓名") TeINum=InputBox("输入电话号码") Print #1,Name,TelNum Close #1 End Sub C:Private Sub Commandl Click() Dim B As Books Open"c:/Persotxt"For Output As #1 Name=InputBox("输入姓名") TelNunl=InputBox("输入电话号码") Write #1,B Close #1 End Sub D:Private Sub Commandl Click() Dim B As Books Open"c:/Persotxt"For Input As #1 Name=InputBox("输入姓名") Temum=InputBox("输入电话号码") Write #1,Name,TelNuin Close #1 End Sub