紫苏子具有的功效是（）

A.利水消肿

B.养心安神

C.养血活血

D.滋阴补血

E.降气化痰

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command l-Click () a=0 For I =l T02For j=l To4 if j Mbd2＜＞0 Then a=a+1 End lf a= a +l Next j Next i Ms g Box a End Sub 程序执行后，单击命令按钮，消息框显示的是 【15】 。