1樓：漢天空
程式很經典，
text1.text 不是純數字經過 str(val(text1.text)) 轉換的結果就不會等於 text1.text。
主要還是要了解 val 、str 函式的作用，val 是將字元(日期)強行轉換為數字，非數字部分則會被 pass 掉，
str 則是將數字(日期)轉換成字元。
2樓：老牛帶你看奇聞
你可以用isnumeric函式來判斷
if not isnumeric(text1.text) then msgbox "出錯"
3樓：匿名使用者
先把空格去掉 a=trim(text1.text)逐位判斷是否是數字
for i=1 to len(a)
if not isnumeric(mid(a,i,1)) then msgbox "出錯"
next i
4樓：
把以上的綜合一下,一個數字的規則,第一個字元可以是付號或數字,如果第一個為付號的話,第二個不能為點,只能為一個數字,如果第一個是零,則第二個必須為點,如果第一個是別的數字,則符合正常規則,後面可以是點或別的數字;一個數字中只能有一個點,後面的全部是數字,這是判斷一個字串是不是數字的規則,按這個邏輯寫就可以啦,
這是這個驗證的解題思路
5樓：匿名使用者
private sub text1_keypress(keyascii as integer)
if keyascii > 48 and keyascii < 57 then
msgbox "輸入正確。"
else
msgbox "請輸入數字."
end if
end sub
6樓：匿名使用者
if not isnumeric(text1.text) then msgbox "出錯"
vb入門問題，關於vb的小問題
也不知道你是不是喜歡學習程式設計。如果不喜歡就應付考試就可以了。喜歡的話，一開始不知道看什麼就上圖書館找書看去吧，看得多了，你就慢慢知道學什麼了。慢慢來吧，做一些實用的小程式，為以後工作打基礎吧。關於vb的小問題 setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。h是1...
VB裡關於Checkbox的小問題
已看到了補充部分，其實下面 就可以實現上述目標，或者你也可以把它放在timer控制元件內實時監視。建議用控制元件陣列check1 index 0 7 然後用下面 判斷即可。當然，不管控制元件陣列元素有多少，下面 均適用 private sub check1 click index as intege...
關於vb的問題！關於VB的問題
在文字框的text屬性裡設為 中國。不就ok了。剛測試過，沒問題的，你在form里加個command1，點選後，可以實現你說的效果，有問題，訊息問我。private declare sub sleep lib kernel32 byval dwmilliseconds as long private...