※本文轉貼自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
2006年1月20日 星期五
[笑話] Who is 程式設計師 (需稍懂基礎程設)
訂閱:
張貼留言 (Atom)
5 回應:
不好意思 完全不看懂 Orz...
電腦白痴在此= =
更正...
是看不懂...
圖書館電腦打起來還真是不習慣
if我看的董=true
領悟=true
then我看的董你在說什麼
else
我看不懂= =
end if
太難懂...
看了第一行就放棄了~
不能複製...真懶的解釋XD
裡面可以替換的字會變成
一、
如果...條件成立
則...
如果不成立
則...
二、
當...成立之下
則不斷做....
直到條件不成立
跳出迴圈(停止不做)
三、
條件敘述
依照條件執行內容
結束假設
內容主要是說...可悲的程式設計師的一
生
成功的只有少數
要成功就要掌握時間跟精力
賺飽了 趕快另尋他路
否則...
就像結尾
當時間或精力不夠
就"結束"了!
張貼留言