弹出inputbox输入框点击取消时提示类型不匹配
我是新手不知道哪里错呢？ 忘高手指正啊！谢谢！
下面是代码：
程序代码：Private Sub Form_Load()
Dim a As String
a = InputBox("请输入密码")
If a <> 123456 Then
MsgBox "密码错误"
End
Else
Form1.Show
End If
End Sub
谢谢！
下面是代码：
程序代码：
程序代码：Private Sub Form_Load()
Dim a As String
a = InputBox("请输入密码")
If a <> 123456 Then
MsgBox "密码错误"
End
Else
Form1.Show
End If
End Sub
2013-07-07 18:07
2013-07-07 21:58