[ASP ] inputbox讀不了非數字輸入@@
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
→
03/24 18:23, , 1F
03/24 18:23, 1F
推
03/24 21:48, , 2F
03/24 21:48, 2F
→
03/24 21:48, , 3F
03/24 21:48, 3F
推
03/24 22:05, , 4F
03/24 22:05, 4F
→
03/24 22:05, , 5F
03/24 22:05, 5F
→
03/24 22:05, , 6F
03/24 22:05, 6F
→
03/24 22:06, , 7F
03/24 22:06, 7F
推
03/25 10:26, , 8F
03/25 10:26, 8F
→
03/25 10:26, , 9F
03/25 10:26, 9F