pb 中怎么用代码判断文本框中输入的是不是数字？

int i,li_num
li_num=len(sle_1.text)
string ls_value
for i=1 to li_num
ls_value=mid(sle_1.text,i,1)
if ls_value<'0' or ls_value >'9' then
messagebox("","不是数字")
return
end if
next
你看这样可以满足你的要求吗？有什么意见再说