Question

用VF编写一个程序：任意输入一个字符串,要求提取出数字,如果没数字,弹出对话框,并清空输入框要求重新输入

Answer 1

你这是在表单里做吧?
放一个文本框,用来输入, 比如名字叫text1
再放一个命令按钮,command1

在command1的click事件中增加代码:
c1=alltrim(thisform.text1.value)
c2=''
for i= 1 to len(c)
x=substr(c1,i,1)
if between(asc(x),48,57)
c2=c2+x
endif
endfor
if empty(c2)
messagebox('没有数字','提示')
else
thisform.text1.value=c2
endif