以下程序代码用来实现如下功能：单击命令按钮弹出对话框，在其中输入正数后单击确定，弹出一个提示信息显示刚才输入的正数，否则提示"error"。请填空。 Private Sub Command1_Click() Dim a As Integer，b As String a=InputBox("请输入一个正数") If a ＞ 0 Then ______ Else b=MsgBox("error"，0) End If End Sub

陈某，女性，50岁。平素心情抑郁，腹痛胀闷，痛无定处，痛引少腹，时作时止，得嗳气或矢气则舒，遇忧思恼怒则剧，舌淡红，苔薄白，脉弦。此病证的证机概要是（）

A.湿热内结，气机壅滞，腑气不通

B.食滞内停，运化失司，胃肠不和

C.肝气郁结，气机不畅，疏泄失司

D.寒凝胃脘，阳气被遏，气机阻滞

E.肝气郁结，横逆犯胃，胃气阻滞