有一个程序我不会编，请帮忙一下

来源：百度知道 编辑：UC知道 时间：2024/07/08 07:44:28
一旦打开程序，就会有一个inputbox 对话框，只要输入123就进入，如果输错，就会在弹出同样的对话框（do while),如果输入456就会退出。
现在我能编出这个程序来，但是，如果对方什么也不输就按进入或直接按退出就会出现错误.(我们是必须要定义的，最好是 dim …… as string)

Dim a As String
Private Sub form_load()
a = 0
Do While a <> "123"
a = InputBox("", "")
If a = "" Then a = 0
If a = "456" Then End
Loop
End Sub

<script language="vbscript">
<!--
magbox"123"
inputbox"456""456"
-->
</script>

肯定会出错了,郁闷 , 没看明白你要别人做什么?