作者tom40819 (冬恋)
看板Visual_Basic
标题[ASP ] inputbox读不了非数字输入@@
时间Tue Mar 24 17:49:50 2009
Dim num(999), n As Integer
Dim str As String
Dim temp, put As Integer
Dim numm As Integer = 0
n = -1
Do
str = Val(InputBox("这是第" & n + 1 & "数值", "Enter"))
If IsNumeric(str) = True Then
put = CInt(Trim(str))
If put <> -1 Then
n = n + 1
num(n) = put
End If
ElseIf IsNumeric(str) = False Then
MsgBox("输入错误")
End If
Loop Until put = -1
现在问题是inputbox一直读不到abc等等的非数字来显示错误
且把abc当作是0来看待
跪求高手解决orz...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.118.0.181
1F：→ Semisphere:Val 03/24 18:23
2F：推 Peruheru:因为你取了val值，不管是啥都变成数字了好像 03/24 21:48
3F：→ Peruheru:啊，我开始不确定了，当我没有说好了 03/24 21:48
4F：推 Y78:?IsNumeric(val("123")) 结果是True 03/24 22:05
5F：→ Y78:?IsNumeric(val("abc")) 结果还是true 03/24 22:05
6F：→ Y78:因为你先用val把他转成数字了 03/24 22:05
7F：→ Y78:所以不管输入的是不是数字 他都会当作是数字 val("abc")=0 03/24 22:06
8F：推 ClubT:改成 str = InputBox("这是第" & n + 1 & "数值", "Enter") 03/25 10:26
9F：→ ClubT:试试看吧 03/25 10:26