string s
int i
s=trim(sle_1.text)

for i = 1 to len(s)
if mid(s,i,1) = ' ' then
messagebox('系统提示!','有空格!')
return
end if
end for