小弟不才 试了试第一题 虽然做的不是特别满意 不过还是得出答案了 希望前辈指点 

程序代码:
cls 
for x = 1 to 30
if(x^3 > 999 and x^3 < 10000) and (x^4 > 99999 and x^4 > 99999 and x^4 <1000000 ) then 
print x;" x^3";x^3;"x^4=";x^4
end if
next 
运行结果:
18  x^3=8532   x^4=104976
19  x^3=6859   x^4=130321
20  x^3=8000   x^4=160000
21  x^3=9261   x^4=194481

答案是 18

虽然写的不完美 最后没能得出18 后有个思路 有些麻烦 就没写全 

x^3 第一位 = x\100 第二位 = (x mod 1000)\100 第三位 (x mod 1000 mod 100)\10 第四位 x mod 10

x^4 遇上类似 掠过 然后存放到数组中 数组(0)~数据(9) 然后循环判断是否有重复 有重复就跳出判断继续循环 

第一题FB程序
DIM AS INTEGER A(10),I,J,F,N1,N2
FOR I=10 TO 21
    F=0
    FOR J=0 TO 9
        A(J)=0
    NEXT J
    N1=I^3
    N2=I^4
    DO 
        A(N1 MOD 10)=1
        N1=N1\10
    LOOP UNTIL N1=0
     DO 
        A(N2 MOD 10)=1
        N2=N2\10
    LOOP UNTIL N2=0
    FOR J=0 TO 9
        IF A(J)=0 THEN F=1
    NEXT J
    IF F=0 THEN PRINT I
NEXT I
PRINT
SLEEP
END
结果为18

第二题FB程序
DIM AS INTEGER P1,P2,P3,T
FOR P1=10 TO 99
    P2=((P1+6) MOD 10)*10+(P1+6)\10
    P3=((P2+6) MOD 10)*10+(P2+6)\10
    T=((P3+6) MOD 10)*10+(P3+6)\10
    IF T=P1 THEN PRINT P1
NEXT P1
SLEEP
END

1.
CLS
DIM a$(10), b$(10), a(10), b(10)
FOR i = 10 TO 22
 IF (i ^ 4 > 99999 AND i ^ 4 < 1000000) THEN
 y$ = LTRIM$(STR$(i ^ 3))
 z$ = LTRIM$(STR$(i ^ 4))
 FOR j = 1 TO 4
  a$(j) = MID$(y$, j, 1)
 NEXT j
 FOR j = 1 TO 6
  b$(j) = MID$(z$, j, 1)
 NEXT j
 FOR j = 0 TO 10
  FOR k = 1 TO 4
   IF VAL(a$(k)) = j THEN a(j) = a(j) + 1
  NEXT k
  FOR k = 1 TO 6
   IF VAL(b$(k)) = j THEN b(j) = b(j) + 1
  NEXT k
  IF b(j) = 1 OR a(j) = 1 THEN x = x + 1
 NEXT j
 IF x = 10 THEN PRINT i, "i^3="; i ^ 3, "i^4="; i ^ 4: END
 x = 0
 FOR j = 1 TO 6: b(j) = 0: NEXT j
 END IF
NEXT i
END

2.
CLS
FOR p1 = 10 TO 99
 p2 = ((p1 + 6) MOD 10) * 10 + (p1 + 6) \ 10
 p3 = ((p2 + 6) MOD 10) * 10 + (p2 + 6) \ 10
 p = ((p3 + 6) MOD 10) * 10 + (p3 + 6) \ 10
 IF p = p1 THEN PRINT USING "####"; p1; p2; p3; p
NEXT p1
END

新时代元亨 新时代天意系统元亨QQ 919169870 新时代直销元亨QQ 919169870 新时代天意 

 新时代天意系统更多资料
 http://blog.sina.com.cn/xsd9



   《天意系统》是某个公司系统；是所有合法直销公司的系统！是天下系统的集大成者！他不仅有自己的‘教育’体系，及排点布局方法；还给每个会员赠送了独立的会员平台，空中市场开发工具…… 重要的是：“她破译了直销的奖金制度！！！揭开了新一轮伟大的经济革命；从此，倾国倾城的‘类直销’踏着她那轻盈而曼妙的脚步来到您的身边……工具的革命带来新一轮的财富分配，针对某个行业的跨越性突破革新同样带来行业性新一轮的财富分配，天意破译了直销的奖金制度，其意义犹在前二者之上……” 

 


      网络倍增的“奥秘”已是人人皆知，但，“找人”难已是无法逾越的“鸿沟”！， 每一个直销人都梦想着拥有自己的活跃团队和庞大消费群体，从而实现超凡的财富管道。然而，十几年的直销历程能梦想成真的又有几人？直销难民中不乏很多优秀的有志之士，我们也都努力过，奋斗过，拼搏过。但风雨过后彩虹却始终没有出现！

 其实在直销这个行业里：公司和产品只不过是一种“道具”，而团队和系统才是最终和关键！有了庞大而活跃的团队，自然就有业绩，有了业绩在任何公司其实都能赚到钱。今天的“天意系统”就是专门帮你快速组建团队的成功系统，假如您能放下固有的观念，静下心来认真读懂天意系统的运作机理，相信您会“惊喜不已”。

   “天意系统”即不是公司，不是产品，也不是团队。它只是网络界一种超级独特的“运作模式”。它用最有效的方法帮你迅速组建起庞大的团队，确保成功达到利润最大化。而传统的直销是各自为战、孤立无援：报单后、买产品、用出感觉、马上分享，还要学习很多产品知识，产品示范，课程激励，然后你就要自己疯狂的去“找人”，可我们往往是推荐了一批，一批人进来了，另一批人睡着了，推动了一批，又倒下了一堆，最后人际关系枯竭，事业无法向前发展了。这时多数人只好宣告失败了.所以,如何能组建一支有活力的团队才是这个事业的重中之重！才有可能真正实现自己心中的希望和梦想。

 

                                 天意系统破译直销方案

 

天意系统的核心点：1、全球一条线原则，2、零存整取原则。

1、全球一条线原则：

凡是通过“天意系统”注册的会员，不论是谁推荐的，也不管你推荐了多少，一律打乱推荐关系，按照报单时间先后顺序一条线深度排网，如：你今天通过天意系统注册成为新时代公司的会员.在全球凡是比你晚注册的会员都有可能排在你的后面，这样你在新时代公司会员后台的网络里面就会有一条自律式发展的团队了，而且会无限延伸。当然，一条线即使再大在直销公司里也是不赚钱的，那么如何能有更多条线呢？请看：

 

1，当你在21天内直接推荐2人，或三个月内直接推荐4人，你就成为本系统“一星会员”；这时你的小区新增人数达到5人时，系统开始为你开：第2条全球线！


2，当你再一次在21天内推荐2个人，或三个月内直接推荐4人，你就成为本系统的“二星会员”；这时你的小区新增人数达到81人时，系统为你开：第3条全线！


3，其他4---10条线依此类推，系统最多可帮你开10条线。


4，但报单一个月内，你没有推荐一个朋友，你的天意系统点位就作废了，但新进代公司点位仍然有效，可以做传统新时代直销。

    就是说你只需要推荐2个愿意在新时代公司办卡成为会员的朋友，系统就会自动帮您打造您的第二条线，这就是帮你快速组建团队的“天意系统”，今后你所有的团队都是天意系统在帮你打造，都是按全球一条线排网，所以，当你得到这个信息后：每当误一分钟都不知道会有多少人先你而至了。好像有点“匪夷所思”，但我刚做了4天，介绍两个朋友，系统就已经开始为我打造第二条线了。就这么简单。

 

二，零存整取原则：全球一条线，打乱了推荐关系；零存整取原则，严格遵守推荐关系；用双轨图来统计我们为“全球一条线原则”做出多少贡献，用来作为回馈你的付出依据。

    对于第二个原则可能会有些抽象，需要你静下心来认真完整的看完整个资料看一看我们即将运作的“新时代”的奖金制度视频，假如您看完后还是不很理解，欢迎您与我语音交流。


新时代元亨 新时代 天意系统元亨QQ 919169870 新时代直销元亨QQ 919169870 新时代天意  代新时官网

2.cls
do
input p1
loop until p1<=99
p=p1
for i=1 to 3
 p=p+6
 p$=mid$(str$(p),2,1)+mid$(str$(p),1,1)
 p=val(p$)
next i
print p,"i'm win!"
end

1.cls
b=0
do
b=b+1
if (b^3<=9999) and (b^4<=999999) then 
dim a(9)
b$=str$(b^3)
l=len(b$)
for i=1 to l
 h=val(mid$(b$,i,1))
 a(h)=h
next i
b$=str$(b^4)
l=len(b$)
for i=1 to l
 h=val(mid$(b$,i,1))
 a(h)=h
next i
for i=0 to 9
 if a(i)=0 then jb=1
next i
loop until jb<>1
print b
end
我的方法最简单

我想告诉大家，第一题可以用for循环，最小10最大21。因为是n^3是四位数，最大限制是21，三次方是9261,22的三次方已经是10648了，因而为21。最小是10，三次方是1000,9的三次方是729。因而最小是10。

我的第一题按我的方法改一下，就简单多了
cls
for b=10 to 21
if (b^3<=9999) and (b^4<=999999) then 
dim a(9)
b$=str$(b^3)
l=len(b$)
for i=1 to l
 h=val(mid$(b$,i,1))
 a(h)=h
next i
b$=str$(b^4)
l=len(b$)
for i=1 to l
 h=val(mid$(b$,i,1))
 a(h)=h
next i
for i=0 to 9
 if a(i)=0 then jb=1
next i
if jb=1 then exit for
next b
print b
end