| 全能ASP/PHP/ASP.NET主机,支持月付 | 专业 MSSQL 数据库空间,支持月付 | 专业 MySQL 数据库空间,支持月付 | 学习型 ASP/PHP/ASP.NET 主机 30元/年 |
| 高端软件开发 = 年薪十万不是梦 | 赛孚耐:软件保护加密专家 | 身份认证令牌USB KEY |
哎 我还是给答案把。。。。。。。。。。。。。。。。。。。。。。。 clear set talk off for i=1234 to 9876 for j=1 to 9 k=i*j if len(alltrim(str(k)))=4 a=str(i,4)+str(j,1)+str(k,4) c=occurs(alltrim(str(0)),a) if c=0 for m=1 to 9 b=occurs(substr(a,m,1),a) if b<>1 exit endif endfor
if m=10 and b=1 ?i,j,k endif endif endif
endfor endfor set talk on return ------------------------------------------------------------------------------------------------------- 自己看把 我就不加注释了。。。。。。。。。。