！壞人必需做好事！

引用自：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

Dim x As Double, flag As Boolean

Private Sub Form_Activate()
DoEvents
Scale (-50, 50)-(50, -50)
For i = 0 To 1E+18 Step 0.05

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

Private Sub Command1_Click()

'假裝有宣告
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()