Who is 程式設計師 |
|
|
|
superlevin
高階會員   發表：181 回覆：313 積分：180 註冊：2003-01-12 發送簡訊給我 |
Dim 年齡 as Integer
Dim 金錢 as Integer
Dim 人脈 as Integer
Dim 機會 as Boolean
Dim 戀愛 as Boolean
Dim 技術 as 成熟度
Dim 履歷表 as ADODB.Recordset
---------------------------
private sub 人_出生Load() if 家有錢 then
exit sub
else
求學
上班
end if if 年齡＞20 and 年齡＜40 then
結婚
end if if 機會 = true then
創業
else
作哈巴狗
end if me.width=?
me.height=?
me.weight=老了就會發胖
me.caption=程式設計師 timer1.interval=一年
if 錢 ＞ 錢 + 之前的錢 and 閒 = true then
timer1.enable=true
end if timer2.interval=兩個月
if 時間 = true or 精力 = true then
timer2.enable= true
end if end sub
-------------------------
private sub 上班() do while 機會 = false
do 實力不足
培養實力
loop if 薪水＜能力 and 有更好的機會--＞跳槽
if 薪水＞=能力 --＞滿意
if 薪水＜能力 and 沒有更好的機會--＞認命
loop
-------------------------------------------------------
private sub 人_unload
a = msgbox("自殺或自然死",vbyesno) if a = vbyes then
留遺書
end
elseif a = vbno then
cancel=true
end
-------------------------------------------------------
private function 結婚() as boolean
戀愛
if 戀愛 = true then
結婚= true
else
結婚=false
end if
------------------------------------------------------
private function 創業() as boolean if 金錢＞1,000,000 and 人脈 ＞1,000 and 技術 = good then
可能會成功
else
應該會失敗
end if if 第一次失敗 and 不怕 then
do while 失敗
再創業
if 成功 then
exit do
end if
loop
elseif 第一次失敗 and 怕了 then
創業 = false
exit function
end if
---------------------------------------------
private sub timer1_timer()
渡假or休息
end sub
---------------------------------------------
private sub timer2_timer()
充實自己
學習新技術
接外面案子 SQL="insert into 個人資料(技術專長,經歷) values('"
SQL=SQL & "新技術','外案')"
Set 履歷表=Connection.execute(SQL) if 時間 =false or 精力 = false then
timer2.enable=false
end if
end sub
------
林壽山 網站: http://superlevin.ifengyuan.tw mail: superlevin@gmail.com |
|
ddy
站務副站長  發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
|
|
lcsboy
版主 發表：87 回覆：622 積分：394 註冊：2002-06-18 發送簡訊給我 |
|
|
chimera
初階會員 發表：62 回覆：78 積分：28 註冊：2003-03-22 發送簡訊給我 |
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
發表時間：2003-04-29 05:22:03
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-05-12 3:58:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |