题目内容

症见心烦不寐，小便短赤，可选用

A. 朱砂安神丸
B. 半夏厚朴汤
C. 龙胆泻肝汤
D. 归脾汤
E. 六味地黄丸

查看答案

搜索结果不匹配？点我反馈

更多问题

眩晕耳鸣，面色无华，爪甲不荣，夜寐多梦，舌淡苔白，脉细弱常见于

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 String10 TelNum AS String20 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指明鼠标当前位置的坐标

查看答案

症见心烦不寐，小便短赤，可选用

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

假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum AS String*20 End Type 要求在执行事件过程Commandl Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是（ ）。

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

假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String10 TelNum AS String20 End Type 要求在执行事件过程Commandl Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是（）。