[轉載]Who is 程式設計師？

台中人2000

在程式設計俱樂部看到的有趣程式...

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