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

cStr = alltirm(thisform.text1.value)

try

if val(cStr) < 100 &&將字元型轉化成數值型並檢測是否小於100

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

endif

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

thisform.releas()

endtry

&&條件滿足了賦值

with thisform

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

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

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

endwith