患者，女，28岁，已婚。剖宫产后8天，高热寒战2天，恶露量时多时少，色紫黯，有臭气，烦躁口渴，尿少色黄，大便干燥，舌红苔黄，脉数其治法是（）

A.活血化瘀

B.清热凉血

C.清热泻火化湿

D.清热解毒，凉血化瘀

E.清热解毒，活血祛瘀

下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。
Private Sub Command1_Click( )
Dim a, Tmp As Integer
a = Array (678,45,324,528,439,387,87,875,273,823)
For i = 【12】
Forj =0 To 9
Ifa (i)＜a(j) Then
Tmp = a(i): a(i) = a(j) i a(j) = Tmp
End If
Next j,i
For i = 0 To 9
Print a(i)
Next
End Sub