有如下程序：
Private Sub Command1_Click()
as="A WORKER IS HERE"
x = Len(a$)
For i=1 To x - 1
b$ =Mid$(a$, i,3)
If b$ ="WOR" Then S=S+ 1
Next
Print S
End Sub
单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

以下疾病是珠蛋白肽链结构异常所致的是（）

A.海洋性贫血

B.镰状细胞贫血

C.遗传性棘形细胞增多症

D.PNH

E.TTP