！壞人必需做好事！

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

Robert M. Hubley 12/1999原創

crabmarss 2009/04/14修改

遞迴解(參考W.J.S.大大的)

Dim F As Long

Private Sub Form_Load()

    Dim A() As String, I As Integer, S As String

    S = "1234"

    For I = 1 To Len(S)

        ReDim Preserve A(I) : A(I) = Mid(S, I, 1)

    Next

    F = FreeFile

    Open "C:\Test.txt" For Output As #F

Problem5：糊塗情報員(16%)

有一位間諜，依他所屬情報單位要求編碼的方式，將他所收集到情報全部編成數字碼。但他認為這樣還是不夠安全，

因此他再將這些數字字串，隨意切割成好幾個整數，然後將每個整數用一個數學算式來表示。這些算式只用了加、減、

乘三種運算子，而且每個運算元都是正整數。最後，他為了讓他自己更為心安，他將整個密碼分成兩本密碼簿儲存。密

碼本A 存放這些數學算式，但他將算式內的所有括號全部拿掉，然後再將這些拿掉的括號資訊記錄在密碼本B 裡面。

過了不久，這個間諜發現他把密碼本B 弄丟了，再加上他的記憶力不好，很多情報內容根本記不得，所以現在沒了

密碼本B 幾乎束手無策。在不得已的情況下，他的情報單位派了幾位心理與腦神經專家詢問他，希望能喚起他腦海內的

記憶。這些專家試了好幾天，用盡各種辦法後，終於承認他的記憶力果真很差，怎麼也問不出情報內容。倒是心理學專

家有一發現，即這位情報員在寫密碼算式時，傾向於將括號加在那些會讓算式得最大值的位置。例如5*7+2 這個算式，

題目:鍵盤輸入一個自然數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

教學影片：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 Boolean

Private Sub Form_Activate()
DoEvents
Scale (-50, 50)-(50, -50)

原始碼：http://down.gogobox.com.tw/t2329175/tq2m2
這是題目：
 

答案的圖片：

原始碼就不貼了，因為要兩個視窗，與許多物件，
貼了大家也看不懂！原始檔有詳細註解。
花了一個半小時做的，沒想到我的程度已經弱到這樣了 ＞＜|||（汗

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

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

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

電腦沒設定AI！


原始碼：http://down.gogobox.com.tw/t2329175/pq2m2
程式碼：

'假裝有宣告
Dim MyX As Integer, MyY As Integer, Host As Boolean, Num As Integer
Dim Game(3, 3) As Integer, MDown As Boolean

Private Sub Form_Activate()         '傳說中的主程式拜託不要看不懂！
MsgBox "玩家是O，電腦是X", 15, ""

http://down.gogobox.com.tw/t2329175/m81g2
說明檔 4.7M
http://down.gogobox.com.tw/t2329175/4u2m2
原始碼
http://down.gogobox.com.tw/t2329175/u88g2
流程圖

程式碼太長不便放上。

原始碼：http://down.gogobox.com.tw/t2329175/uq2m2

Private Sub Command1_Click()
P1.Cls
P1.Visible = True
P1.Print "       計算中"
DoEvents
Dim Tmp As String
Tmp = "{}" & vbCrLf

原始碼：http://down.gogobox.com.tw/t2329175/sq2m2
給定N個正整數。試著利用連接字串的方式去排列這N個正整數，使其值最大。

輸入範例：

5 123 124 56 90 9
5 28 285 287 2851 2859
2 25 2523
3 89 898 899

原始碼：http://down.gogobox.com.tw/t2329175/rq2m2
可將需要的檔案加入資源檔(VB6增益功能)，然後使用 Open 程序匯出至系統目錄。
這是輸出系統DLL的範例。
轉至　wfire　大大的文。
Ex:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
    Dim TempBinary() As Byte
    If Dir(SysDir & "IJL15.DLL") = "" Then '

９６年全國高級中等學校工科技藝競賽電腦軟體設計第二題，
大家練習看看吧！
原始碼：http://down.gogobox.com.tw/t2329175/yq2m2

Dim Rear As Integer, Front As Integer, Ran As Integer, now As Integer, Qu(48) As Integer, i As Integer

Private Sub Cm3_Click()
End
End Sub
Private Sub Form_Activate()

原始碼：http://down.gogobox.com.tw/t2329175/xq2m2
'使用了Commaon Dialog Control 6.0　請設定

'CD1就是Commaon Dialog Control 6.0
Private Sub C1_Click()
CD1.FileName = ""
CD1.ShowOpen
If CD1.FileName <> "" Then
T1 = CD1.FileName
End If

原始碼：http://down.gogobox.com.tw/t2329175/vq2m2
Dim key As Long, Target As Long, Rear As Long, i As Long

Private Sub Bu1_Click()
Dim tmp As Long
Dim Num(20) As Long, Numx(20) As Long
La1.Caption = "" '清空結果
DoEvents '釋放控制權
Target = Val(TB1.Text)
If Target > 0 And Target <= 10000000 Then

原始碼：http://down.gogobox.com.tw/t2329175/wq2m2
'質數判斷
Private Sub Form_Load()
Dim Num As Long, f As Boolean
Do
Num = Val(InputBox("請輸入一個要判斷的正整數", ""))
f = True
x = Num \ 2
For i = 2 To x
If (Num Mod i = 0) Then