患者男性，35岁。半个月前出现发热、寒战、继之高热。全身肌肉酸痛，患者面颊、颈、上胸部皮肤潮红，球结膜高度充血，似酒醉貌。4天后出现皮疹，先见于躯干、很快蔓延至四肢。血象：白细胞计数正常。嗜酸细胞减少，血小板减少。

下列有助于确诊的检查是（）.

A.血常规

B.咽拭子培养

C.嗜异性凝集试验

D.肥达试验

E.外斐反应

若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。
Private Sub Command1_Click()
Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2#
For i= 1 To 4
a(i) = i
Next i
For i=3 To 6
b(i) = i
Next i
s1 = Factorial (

A．
s2 = Factorial (

B．
Print "s1="; s1; "s2="; s2
End Sub
Function Factorial(a() As Integer)
Dim t#, i%
t=1
For i = LBoun

C．s1=24 s2=24

D．s1=360 s2=360