[笑話] Who is 程式設計師 (需稍懂基礎程設)

※本文轉貼自PTT程式設計俱樂部



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