在表單的init事件里寫：thisform.text1.value=“”&&初始化text1，讓其輸入的值為字符型

按鈕事件：

cStr=alltirm(thisform.text1.value)

try

ifval(cStr)<100&&將字符型轉化成數值型并檢測是否小于100

thisform.releas()&&小于100則退出表單

endif

CATCH&&如果字符包含了非法字符（val(cStr)會拋出錯誤，則跳到此處）則退出表單

thisform.releas()

endtry

&&條件滿足了賦值

withthisform

.textbox2.value=subst(cStr,1,1)

.textbox3.value=subst(cStr,2,1)

.textbox4.value=subst(cStr,3,1)

endwith