患者，女性，21岁，平素体弱，16岁月经来潮。经期经常错后，3天前月经来潮，量少，色淡质稀，头晕眼花，心悸失眠，面色苍白或萎黄，舌淡苔薄，脉细无力。该患者诊断为（）

A.月经不调，气虚

B.月经不调，阴虚血热

C.月经不调，肝郁血热

D.月经不调，血虚

E.月经不调，气滞

下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823)
For i = 【5】
For j = 【6】
If a(i) 【7】 a(j) Then
al = a(i)
a(i) = a(j)
a(j) = al
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub