1樓：
private sub text1_keypress(keyascii as integer)
timer1.enabled = falseif keyascii < 48 or keyascii > 58 then '判斷是否數字
if keyascii = 32 or keyascii = 13 then '不是數字的情況：判斷是否結束符號-空格或回車
text2.setfocus '是結束符號則將焦點移到第二個空else '是其他符號則彈窗，並置零
msgbox "請輸入數字,以回車或空格鍵結束！"
keyascii=0
text1.text = ""
text1.setfocus
end if
end if
end sub
2樓：匿名使用者
text1.text = ""
前面來一句keyascii =0
3樓：匿名使用者
text1.text = ""
後面加一句：
keyascii = 0
4樓：匿名使用者
是有點奇怪。
用單步除錯的方法，結果為空。
但是直接執行就不是空。
放在keydown中不為空，放在keyup中為空。
因此我推斷出，keypress或者keydown中時，**執行和按鍵事件重合，按鍵結束，也執行結束，而輸入到keyup中才結束。
5樓：匿名使用者
msgbox "請輸入數字,以回車或空格鍵結束！"，，這句話執行後直接就end sub了，當然不對了。把text1.text=""放在msgbox"請輸入數字……"之前：如
text1.text = ""
text1.setfocus
msgbox "請輸入數字,以回車或空格鍵結束！"
6樓：匿名使用者
keyascii =0
vb程式設計問題，VB程式設計問題
設 text1 text2 text3 text4 command1 label1 4個test輸入資料 command1是按鈕 label1顯示內容 我給你寫一個子程式 其它你在工具欄向視窗託就行了,然後把這個子程式複製到 做就ok了 private command1 click dim maxa...
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
VB程式設計的小問題
拆分 千位 int 數字1 1000 百位 int 數字1 100 mod 10十位 int 數字1 10 mod 10各位 數字1 mod 10 逆序 a int 數字1 1000 b int 數字1 100 mod 10c int 數字1 10 mod 10 d 數字1 mod 10 逆序數 d...