Dropbox解謎遊戲Dropquest 2012,完成永久增加1GB空間
http://steachs.com/archives/2606看解答 還花了快一小時浪費時間 投資報酬率太低 沒創意的題目
那就用暴力來解決
fori=0 to99999
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)
ifa1*a2=24anda4=a2/2 and (a1+a3)=(a4+a5)and (a1+a2+a3+a4+a5)=26and a2>a5 then
msgbox(A)
end if
next
感謝 順利取得空間啦!!!!!!!~~~ akqjt 發表於 12-5-13 11:56 http://www.coco-in.net/static/image/common/back.gif
沒創意的題目
那就用暴力來解決
fori=0 to99999
小弟對excel vba蠻有興趣的,
好奇拿大大寫的來試Run,
但這一句 A=right("0000" & string(i),5)出了問題,以致程式無法執行
我猜應該是在string(i)這裡出了狀況,
不過我也不知道為什麼@@....
{:4_621:}我也要試試看!
頁:
[1]