填空题

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为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