下列程序执行时,要求输入一个密码,如果密码不正确,则显示出非法用户的对话框。请填空。Const PassW
下列程序执行时,要求输入一个密码,如果密码不正确,则显示出非法用户的对话框。请填空。
Const PassWord="12345678"
Dim inpass As String
inpass=【 】("请输入你的密码","输入密码")
If inpass=PassWord Then Exit Sub
Else
【 】"对不起!你是非法用户。",vbOKOnly+vbCritical,"拒绝"
Unload Me
End If