Dropbox解謎遊戲Dropquest 2012，完成永久增加1GB空間

j202036

http://steachs.com/archives/2606看解答 還花了快一小時

shiyee

浪費時間 投資報酬率太低

akqjt

沒創意的題目
那就用暴力來解決
for  i=0 to  99999
     A=right("0000" & string(i),5)
     a1=mid(A,1,1)
     a2=mid(A,2,1)
     a3=mid(A,3,1)
     a4=mid(A,4,1)
     a5=mid(A,5,1)
     if  a1*a2=24  and  a4=a2/2   and (a1+a3)=(a4+a5)  and (a1+a2+a3+a4+a5)=26  and a2>a5 then
         msgbox(A)
     end if
next

pandaleaderbert

感謝 順利取得空間啦!!!!!!!~~~

Evil

akqjt 發表於 12-5-13 11:56
沒創意的題目
那就用暴力來解決
for  i=0 to  99999

小弟對excel vba蠻有興趣的,
好奇拿大大寫的來試Run,
但這一句 A=right("0000" & string(i),5)出了問題,以致程式無法執行
我猜應該是在string(i)這裡出了狀況,
不過我也不知道為什麼@@....

jgds897

我也要試試看!