！壞人必需做好事！

前一天晚上興奮的難以入眠，
面試第一關：
評審：先用一分鐘自我介紹，
我：各位評審老師大家好！
　　我是ｘｘｘ，
　　畢業於台中高工資訊科，
評審：你跟上二個同學是同學嗎？
我：他們是甲班我是乙班，
評審：喔！好，繼續。
我：我的夢想是設計電腦遊戲、遊戲平台…

只能加油了！
希望不要下雨！
１６個中取１２個，
拜託這麼好進一定要進！

原始碼：http://down.gogobox.com.tw/t2329175/9r2m2
VB2005的物件陣列真是麻煩！
不過連我的書都沒寫！
不過好險這是常見的問題，
網路是有解答的。
原始碼如下：
'另外VB6的原始碼有做更正
Public Class Form1

原始碼：http://down.gogobox.com.tw/t2329175/6r2m2
之前比賽時因為VB6沒有反Cos函數而飲恨，
現在有了2005不一樣了！
但我發現題目上的公式根本寫錯了！
就因為這個小錯，算出來的答案就差了255倍！
真是嚇死人了！
程式碼如下：
Public Class Form1
Dim pi As Double = 4 * Math.Atan(1)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

這集反而比較像第一集，
最後式就昏了。
感覺沒第一章好，
感覺很有暗示性。
劇照：

審查後競賽、證照類別 　　審查後競賽、證照名稱 審查後名次/級別 優待加分比例
全國高級中等學校技藝競賽 電腦軟體設計 　　　　　第2名 　　　　　　25%

※甄審總成績
校系科(組)代碼 25-002 甄審學校系科(組) 國立台灣科技大學
資訊工程系
指定項目甄審 　原得分(E) 佔甄審總分比例(G) 實得分(H)
1 書面資料審查 86.80 　　　100% 　　　　　86.80000
甄審總成績(T) 108.50

各位評審老師大家好！
我是damody，畢業於台中高工資訊科。

我喜歡挑戰自我，也喜歡打籃球、慢跑、打羽球，

在高一時曾拿下５０００公尺全校第三名的成績，

高三時的體育單槓考試，也拿下２０下的滿分，

所以呢！運動也是一個訓練我體力、耐力的好方法。

而我的夢想是設計一個電腦遊戲，

更想設計一個強大的遊戲設計平台給大家設計、修改遊戲，

會有這個夢想則是因為我小時候玩的一個2D格鬥遊戲，

原始碼：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://wind-m2j.myweb.hinet.net/

請到這個網站。
 http://bt.ktxp.com/team-63-1.html

９６年全國高級中等學校工科技藝競賽電腦軟體設計第二題，
大家練習看看吧！
原始碼：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

請看畫風

實在難以想像，
有空各位自已去租書站看吧！

最近發現照這個進度，
在上大學前是入不了門的，
希望有會VB.NET或VB6及wxDev C++ 的人，
幫忙我把VB2005的程式翻成wxDev C++ 謝謝！
我會在打原碼打上詳細注解的！
我想找一個會wxDEV C++ 及 會一點點VB 的人，
幫忙翻一些小程式，
因為我的字串處理跟函數都不太會，
有沒有想緞練自已的大大幫忙一下？
主要是陣列練習、字串處理、數學應用，

感覺有種混沌的感覺，
主角的媽媽怪怪的？
乃繪跟他哥到後來也怪怪的，
不過眼淚還蠻美的，
OP也很讚！
感覺最後劇情不夠真實就是了。