高校问答网络电话升级:帮忙改下VBScipt代码~~~~
来源：百度文库 编辑：高校问答 时间：2024/05/08 04:56:14
我是VBS初学者，我在网页上嵌了一段VBS代码如下：
Sub ts
Dim a,b
a=1
set b=Document.forms("x")
Do while a<=(b.txt.value)
a=a*3
MsgBox "这个提示将会出现"&b.txt.value&"次"
Loop
End Sub
其中X为包含输入框的表格~~~
其意图只是想开个玩笑，浏览者输入几，这个提示就会出现几次，可是实际并不是如此，无论输入多少都会无休止的弹出提示，不得不用任务管理器结束~~~~
请问是哪里出了问题？怎样改可以实现？先谢过！
上面打错了一点 a=a+1~~~~
另外 我试了一下3楼的建议，这里b.txt.value值的确为输入值，但不排除它以字符形式存在~~~~还望继续指教~~~按2楼的建议提交后无法显示
Sub ts
Dim a,b
a=1
set b=Document.forms("x")
Do while a<=(b.txt.value)
a=a*3
MsgBox "这个提示将会出现"&b.txt.value&"次"
Loop
End Sub
其中X为包含输入框的表格~~~
其意图只是想开个玩笑，浏览者输入几，这个提示就会出现几次，可是实际并不是如此，无论输入多少都会无休止的弹出提示，不得不用任务管理器结束~~~~
请问是哪里出了问题？怎样改可以实现？先谢过！
上面打错了一点 a=a+1~~~~
另外 我试了一下3楼的建议，这里b.txt.value值的确为输入值，但不排除它以字符形式存在~~~~还望继续指教~~~按2楼的建议提交后无法显示
Sub ts
Dim a,b
a = 1
set b=Document.forms("x")
If not isnumeric(b.txt.value) Then
Msgbox "非数值"
Else
Do while a <= CInt(b.txt.value)
a = a + 1
MsgBox "这个提示将会出现" & b.txt.value & "次"
Loop
end if
End Sub
既然能显示么，这个函数应该没问题的，把你这个页面相关的代码贴出来吧。
这应该是取值的问题了。
建议你在DO WHILE语句的前面输入
msgbox b.txt.value
来看看结果。
我们不知道到你的页面情况，所以也不能确定取值方式是否正确。