eGameX

 找回密碼
 立即註冊
搜索
查看: 6452|回復: 0

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

[複製鏈接]
發表於 2002-10-3 08:04:29 | 顯示全部樓層 |閱讀模式
在程式設計俱樂部看到的有趣程式...

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
您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

小黑屋|Archiver|排行榜|eGameX

GMT+8, 2022-11-28 22:52 , Processed in 0.049485 second(s), 7 queries , Gzip On, APCu On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回復 返回頂部 返回列表