问题 配伍题 B1型题

喻昌著有()
张仲景著有()
皇甫谧著有()
陈实功著有()
龚延贤著有()

A.《金匮要略》

B.《外科正宗》

C.《医门法律》

D.《黄帝针灸甲乙经》

E.《万病回春》

答案

参考答案:C,A,D,B,E

填空题

在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为tUser和tPass,还有“确定”和“退出”两个命令按钮,名称分别为cmdEnter和cmdQuit。在tUser和tPass两个文本框中输入用户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确。如果输入的用户名称为cueb,用户密码为1234,则显示提示框,提示框标题为“欢迎”,显示内容为“密码输入正确,欢迎进入系统!”。提示框中只有一个“确定”按钮,当单击“确定”按钮后,关闭该窗体。如果输入不正确,则提示框显示内容为“密码错误!”,同时清除tUser和tPass两个文本框中的内容,并将光标置于tUser文本框中。当单击窗体上的“退出”按钮后,关闭当前窗体。窗体界面如右图所示。下面给出部分代码,请补充完整。


Private Sub cmdEnter_Click()
Dim name As String, pass As String
name=Nz(Me!tUser)
pass=Nz(Me!tPass)
’******************* Add *******************
(13)
’******************* Add *******************
MsgBox "密码输入正确, 欢迎进入系统!", vbOKOnly+vbCritical, "欢迎"
DoCmd.Close
Else
MsgBox "密码错误!", vbOKOnly ’显示消息框
Me!tUser="" ’使文本框清空
Me!tPass=""
’******************* Add *******************
(14)
’******************* Add *******************
End If
End Sub
Private Sub cmdQuit_Click()
’******************* Add *******************
(15)
’******************* Add *******************
End Sub

单项选择题 A1型题