下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a()
a=Array(678，45，324，528，439，387，87，875，273，823)
Fori＝ 【10】
Forj= 【11】
If a(j) 【12】 a(j+1)Then
a1=a(j)
a(j)＝a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i＝1 To 10
Print a(i)
Next i
End Sub

患者，男，52岁，症见心胸剧痛，持续难解，心悸气短，神疲乏力，自汗盗汗，甚者大汗淋漓，手足心热，口渴心烦，舌质紫暗，舌下络脉青紫，脉细数无力。检查：心电图示前侧壁心梗。其治法是（）。

A.益气养阴，祛瘀通络

B.益气温阳，祛瘀通络

C.益气温阳，化瘀通络

D.益气滋阴，健脾化痰

E.益气补血，化痰祛瘀