眩晕耳鸣，面色无华，爪甲不荣，夜寐多梦，舌淡苔白，脉细弱常见于
A. 肝胆湿热
B. 寒滞肝脉
C. 肝阳上亢
D. 肝气郁结
E. 肝血虚
查看答案
下列程序的执行结果为（ ）。 Private Sub Commandl Click() Dim P AS Integer，q As Integer p=12：q=20 Call Value(P，q) Print P；q End Sub Private Sub Value(ByVal m As Integer，ByVal n As Integer) m=m*2：n=n-5 Print m；n End Sub
A. 20 12 20 15
B. 12 20 12 25
C. 24 15 12 20
D. 24 12 12 15
假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum AS String*20 End Type 要求在执行事件过程Commandl Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是（ ）。
A. Private Sub Commandl Click() Dint B AS B00kS B．Name=InputBox(“输入姓名”) B．TelNum=InputBox(”输入电话号码”) Write#1，B．Name，B．TelNurn Close#1 End Sub
B. Private Sub Commandl Click() Dim B AS Books Open“C：＼Person．txt”For Input As#1 B．Name=InputBox(“输入姓名”) B．TelNum=InputBox(“输入电话号码”) Print#1，B．Name，B．TelNLlm Close#1 End Sub
C. Private Sub Commandl Click() Dim B As Books Open“c：＼Person．txt”For Output As#l Name=InputBox(”输入姓名”) TelNom=InputBox(”输入电话号码”) Write#1，B Close#1 End Sn1h
D. Private Sub Commandl Click() Dim B AS Book Open“c：＼Person．txt”For Input As#1 Name=InputBox(“输入姓名”) TelNum-InputBox(“输入电话号码”) Print#1，B．Name．B．TelNHm Close#1 End Sub
在菜单编辑器中建立一个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程： Private Sub Form—MouseDown(Button AS Integer，Shift As Integer，X AS Single，YAs Single) If Button=1 Then PopupMenu MenuO End If End Sub则以下叙述中错误的是（ ）。
A. 该过程的作用是弹出一个菜单
B. 单击鼠标右键时弹出菜单
C. Menu0是在菜单编辑器中定义的弹出菜单的名称
D. 参数X、Y指明鼠标当前位置的坐标
设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性．运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（ ）。
A. Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Button=2 Then PopupMenu Bs，2 End Sub
B. Private Sub Form Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenU Bs End Sub
C. Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu Bs，0 End Sub
D. Private Sub Form—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If(Button=vbLeftButton)Or(Button=vbRightButton)Then PopupMenu Bs End Sub
微信支付 
支付宝支付