有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arE(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。

A．25

B．26

C．27

D．28

患者，女，46岁。神经衰弱2年，精神抑郁，情绪不宁，心烦失眠，疲乏，胸胁胀闷，脘腹痞满，不思饮食，苔薄白，脉弦（）。

A.肝气郁结，逍遥散

B.痰热扰神，黄连温胆汤

C.肝郁脾虚，滋水清肝饮

D.心脾两虚，归脾汤

E.心肾不交，交泰丸