弹出inputbox输入框点击取消时提示类型不匹配

jiweichao 发布于 2013-07-07 18:07， 566 次点击

我是新手不知道哪里错呢？忘高手指正啊！
谢谢！
下面是代码：

程序代码：

Private Sub Form_Load()
Dim a As String
a = InputBox("请输入密码")
If a <> 123456 Then
MsgBox "密码错误"
End
Else
Form1.Show
End If
End Sub

3 回复

LK8682013-07-07 18:32

If a = "" Then MsgBox "空值或取消"

九连阳2013-07-07 21:30

If a <> 123456 Then
改为 If a <> "123456" Then
这样就OK了

jiweichao2013-07-07 21:58

哦知道了谢谢你们啊