請參見以下例程:
私有子文本1_Change()
非數字檢查~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
If IsNumeric(Text1。Text) = False和Text1。Text & lt& gt”“那麽
MsgBox "請輸入壹個數字！"，48，“錯誤信息”
SendKeys“{ BKSP }”兩個組合。
如果…就會結束
末端接頭