Question

在vf中如何从0000到9999一万个数字中筛选出后两位带4或7的数字和AABB、ABAB、*ABC、*AA的数字?急用

Answer 1

*累死我了,终于搞定了,复制下面代码到programe即可

clear

for i=1111 to 9999

if "4"$str(i,4) or "7"$str(i,4) or (substr(str(i,4),1,1)=substr(str(i,4),2,1) and substr(str(i,4),3,1)=substr(str(i,4),4,1));

or (substr(str(i,4),2,1)=substr(str(i,4),4,1) and substr(str(i,4),1,1)=substr(str(i,4),3,1));

or (val(substr(str(i,4),2,1))+1=val(substr(str(i,4),3,1)) and val(substr(str(i,4),3,1))+1=val(substr(str(i,4),4,1)));

or substr(str(i,4),3,1)=substr(str(i,4),4,1)

str(i,4)

space(1)

endi

endf