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

*累死我了，终于搞定了，复制下面代码到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