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

题目

在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