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

老张出差去成都，完成工作之后报名参加了成都某旅行社组织的“乐山一峨眉山二日游”，双方约定了行程，其中包括了“峨眉山观日出”，并签订了旅游合同。游览峨眉山那天，导游要求旅游团早上4点起床集合，然后乘车去峨眉山观日出。但是，旅游车出发之后没有直接到景点，而是转了一大圈，接了几拔旅游团队之外的其他旅游者，直到7点30分才到达峨眉山停车场，峨眉山观日出成了泡影。旅游者认为，旅游行程中包含了峨眉山观日出，旅行社就应该按观日出时间安排客人上山去观日出，既然没有安排观赏，旅行社就该赔偿损失。旅行社则辩称，游客游峨眉山那天是阴天，根本不可能实现峨眉山观日出，能否可以观日出，受天气限制，这是不可抗拒的，因此拒绝赔偿。请问： (1)旅游者没有能够观赏到日出，旅行社是否应该承担违约责任 (2)旅行社能不能免除责任旅行社应当赔偿旅游者哪些违约金