导致妇人杂病的原因不外虚、积冷、结气三个方面。

阅读程序：
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
Print Sum
End Sub
程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15