作者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