！壞人必需做好事！

引用自：http://bbs.wefong.com/viewthread.php?tid=1954539&extra=page%3D1
看到微風的一個好文， 但沒有格式太難看了，所以我幫忙改了一下，sorry喔~
據crabmarss說有原版有兩個錯誤，
1、對於檔案或字串大小在64n+56(n為含0的整數)時會產生計算錯誤
2、對於檔案大小在64倍數時，會少計算一段64節內容

遞迴解(參考W.J.S.大大的)
Dim F As Long

Problem5：糊塗情報員(16%)
有一位間諜，依他所屬情報單位要求編碼的方式，將他所收集到情報全部編成數字碼。但他認為這樣還是不夠安全，
因此他再將這些數字字串，隨意切割成好幾個整數，然後將每個整數用一個數學算式來表示。這些算式只用了加、減、

題目:鍵盤輸入一個自然數K(K>1)，若存在自然數M和N(M>N)，使得K^M 和 K^N 均大於或等於1000，且它們的末三尾數相等，則M和N是
一對”K尾相等數"。請邊一程序，輸出M+N值最小的K尾相等數。
首先以25來看
25 *25 = 625
625 * 25 = 15625 總共是三次方  由這邊看 可以知道M = 3
15625 * 25 = 390625 這邊的話可以知道 n = 4
m + n = 7
測試1：輸入 25 輸出7
測試2:輸入125 輸出 6
測試3:輸入1000 輸出3
測試4:輸入1234 輸出56
測試5:輸入111111 輸出52
測試6:輸入1000003 輸出102
測試7:輸入123454321 輸出27
附了原始檔，還沒編譯喔！
ICON是剪動漫CG的，
我剪了一大堆用XD。
經白箱測試，沒有發現問題。
原始碼：

Sourse code：  http://down.gogobox.com.tw/t2329175/jq6q2
會做這個是因為我的陳以熙老師，
在幫汽車科寫電子學教材，但怕被人編輯，
所以問我看看能不能combine VB with Power Point ,
It's can try. And my VB is better than him,
So he please me to solve the problem.
That is the case's bron  reason.

教學影片：http://down.gogobox.com.tw/t2329175/lk3q2
因為原始檔的ppt不可以放出來，所以晚點我再做一個原始碼的檔案！
請參考下一篇：http://blog.pixnet.net/damody/post/20741599

原始碼：http://down.gogobox.com.tw/t2329175/oq2m2
用了一些簡單的小技巧，發現不能用公式做。
原始碼：
Dim x As Double, flag As BooleanPrivate Sub Form_Activate()
DoEvents
Scale (-50, 50)-(50, -50)
For i = 0 To 1E+18 Step 0.05
Moon.Left = 35 * Cos(i) - 5
Moon.Top = 35 * Sin(i) + 3
Delay 0.05
Next
End Sub

原始碼：http://down.gogobox.com.tw/t2329175/tq2m2
這是題目：
 
答案的圖片：

原始碼：http://down.gogobox.com.tw/t2329175/qq2m2
用VB6做的簡易播放器，
有OLE的功能。
程式碼：

原始碼：http://down.gogobox.com.tw/t2329175/3u2m2
這是我之前為推甄而做的專題，
參考了資料結構使用VB6(楊正宏著)
http://www.opentech.com.tw/search/bookinfo.asp?isbn=9572144480
另外程式碼太長不便放上。