cls
a(1)=6:a(2)=8:a(3)=9
for a=1 to 3:b(1)=a
for b=1 to 3:b(2)=b
for c=1 to 3:b(3)=c
for d=1 to 3:b(4)=d
s=0:for i=1 to 4:if b(i)=3 then s=s+1
next i:if s=2 then ?a(a)*1000+a(b)*100+a(c)*10+a(d)
e=e+1
next d,c,b,a
?e

幸好6、8、9比较接近，用四个循环都从6到9，把7去掉就行了。
CLS
FOR i=6 TO 9:FOR j=6 TO 9:FOR k=6 TO 9:FOR l=6 TO 9
    IF i<>7 AND j<>7 AND k<>7 AND l<>7 THEN
       s=s+1
       a=0
       IF (i=9)+(j=9)+(k=9)+(l=9)=-2 THEN PRINT i*1000+j*100+k*10+l;
    END IF
NEXT l,k,j,i
PRINT s
END

多少个？3*3*3*3=81个
含两个9的有多少？其余两位2*2种排列可在位置c（4，2）=4*3/（2*1）=6，所以有4*6=24种

不知道4个9算不算.