以下提供若干个案例，每个案例下设若干个考题。请根据答案所提供_爱下问搜题

搜题请搜索小程序“爱下问搜题”

问题单项选择题

以下提供若干个案例，每个案例下设若干个考题。请根据答案所提供的信息，在每题下面的A、B、C、D、E五个备选答案中选择一个最佳答案。

3岁患儿，高热10h，头痛，频繁呕吐，查体：体温39℃，血压6.7/4.0kPa(50/30mmHg)，精神不振，咽赤，心肺正常，全身散在大小不等瘀斑，CSF检查：细胞数15×10⁹/L，蛋白微量，糖2.2～3.9mmol/L。

该患儿可能的诊断是

A．败血症，感染性休克

B．流行性脑脊髓膜炎(普通型)

C．流行性脑脊髓膜炎(暴发休克型)

D．流行性脑脊髓膜炎(暴发脑膜脑炎型)

E．流行性脑脊髓膜炎(暴发混合型)

答案

参考答案：C

默写题

（10分）

20．根据课文默写（10分）

①故园渺何处，。

②伤心秦汉经行处，。

③ ，铁马冰河入梦来。

④ ，燕然未勒归无计。

⑤ ，病树前头万木春。

⑥天街小雨润如酥，。

⑦无情有恨何人觉，。

⑧居高声自远，。

⑨ ，且教桃李闹春风。

⑩ ，灵旗空际看。

单项选择题

某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值：Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Thenmax=a(k) End If Next k Print maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。

A．把Ifa(k)＞max Then 改为 If a(k)＜max Then

B．把max=a(k)改为a(k)=max

C．把第2个循环语句For k=1 To 10改为For k=2 To 10

D．把max=O改为max=a(10)