有如下程序：
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 arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后，单击窗体，消息框的输出结果为______。

鳖甲经砂炒醋淬后，其作用是

A．入肝消积，软坚散结
B．改变药性，活血止血
C．引药入肝，活血止痛
D．养阴清热，潜阳息风
E．引药入肝，破瘕散结