討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 掌握Salesforce雲端管理秘訣 政府補助!學嵌入式+物聯網
[ 回上頁 ] [ 討論區發言規則 ]
Who is 程式設計師
更改我的閱讀文章字型大小
作者 : (Alex)
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2001/6/22 下午 12:48:27
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
作者 : (隆)
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2001/6/27 下午 09:00:27
>private sub 上班()

>do while 機會 = false
>do 實力不足
>培養實力
>loop

>if 薪水<能力 and 有更好的機會-->跳槽
>if 薪水>=能力 -->滿意
>if 薪水<能力 and 沒有更好的機會-->認命
(if 薪水<能力 and 沒有更好的機會 and 亂發勞騷-->失業率++)
>loop
作者 : pshuang(pshuang)
[ 貼文 95 | 人氣 1408 | 評價 50 | 評價/貼文 0.53 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/1/23 上午 11:36:31
金錢只宣告成 integer 嗎?
希望可以改成 Long 啦!
作者 : apollo(Apollo)
[ 貼文 74 | 人氣 1654 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/5/29 上午 05:40:17

>金錢只宣告成 integer 嗎?
>希望可以改成 Long 啦!

嗯,而且單位是萬元

喔,注意是 unsigned 喔
作者 : ricky5678(Ricky) Oracle頂尖高手貼文超過500則人氣指數超過10000點
[ 貼文 681 | 人氣 18296 | 評價 3260 | 評價/貼文 4.79 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/6/28 下午 04:36:16
能不能改成 C++ ^^
作者 : djwang(David Jackson)
[ 貼文 28 | 人氣 764 | 評價 150 | 評價/貼文 5.36 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/8/20 下午 08:12:47
太好玩了啦.....

乾脆利用寫成COM物件讓大家引用好了.....ccc
作者 : doraemon2112(小白)
[ 貼文 2 | 人氣 152 | 評價 10 | 評價/貼文 5 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/9/9 下午 05:32:00
不如改成Double吧
作者 : nightmare2002(玉指聖顏經天子)
[ 貼文 97 | 人氣 8739 | 評價 310 | 評價/貼文 3.2 | 送出評價 30 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/9/19 下午 08:06:37
作者 : ljn(ljn)
[ 貼文 3 | 人氣 11 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/10/1 下午 10:29:33
IF 中樂透  THEN 燒掉VB的書
作者 : logicwork(logic)
[ 貼文 56 | 人氣 1169 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/10/4 下午 11:15:32
燒掉VB書~~~ 哈哈 這個人真是風趣~~~
作者 : andyccu(天窗)
[ 貼文 33 | 人氣 925 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/10/16 下午 01:18:54
你這篇應該post到電腦笑話板上....呵..........
作者 : jaudan(單細胞生物)
[ 貼文 20 | 人氣 2217 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/10/28 上午 05:37:33
哈哈,好厲害~` 我好喜歡這篇... ^^"
作者 : elva71tw(ocean)
[ 貼文 10 | 人氣 119 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2002/12/12 上午 07:32:49
哈哈...你猛...
帥呆了...
作者 : bill_c(Bill)
[ 貼文 8 | 人氣 243 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2003/2/24 下午 03:15:05
你是天才!!
作者 : fumizuki(取石文月) 貼文超過200則
[ 貼文 259 | 人氣 1542 | 評價 510 | 評價/貼文 1.97 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2003/2/24 下午 07:18:10
沒有Main()  也沒有Form_Load(),這個程式要怎麼執行^^

而且有些Sub沒有對應的End  Sub唷^^
作者 : helios(Helios)
[ 貼文 3 | 人氣 17 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2003/3/11 上午 09:43:15
其實有時候用這種方式來做說明,更能讓學習語言的人了解每個語法的精要呢!


作者 : pparco(.NET cute女殺手)
[ 貼文 35 | 人氣 2559 | 評價 0 | 評價/貼文 0 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2003/5/8 上午 03:15:03
有用了 .NET 級語言去寫嗎?
作者 : ryan02kimo(逍遙)
[ 貼文 35 | 人氣 2761 | 評價 140 | 評價/貼文 4 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/6/23 上午 12:10:52
真的不錯喔
那改成其他語言
用C#好了
可以授權讓人家改嗎
作者 : darkcola(Cola)
[ 貼文 15 | 人氣 1419 | 評價 20 | 評價/貼文 1.33 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/18 上午 01:02:50
可以轉貼程式碼嗎? =p
作者 : mysniper666(pizza)
[ 貼文 2 | 人氣 1 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/24 下午 10:39:22
可以轉貼此程式碼...??
作者 : shea(Rookie)
[ 貼文 4 | 人氣 5 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/14 下午 01:32:55
真是經典......
作者 : shea(Rookie)
[ 貼文 4 | 人氣 5 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/14 下午 01:33:04
真是經典......
作者 : kimoasp0932(萬惡我為首)
[ 貼文 152 | 人氣 6778 | 評價 240 | 評價/貼文 1.58 | 送出評價 10 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/2/24 上午 08:36:06

>
>>金錢只宣告成 integer 嗎?
>>希望可以改成 Long 啦!
>
>嗯,而且單位是萬元
>
>喔,注意是 unsigned 喔
慘~我們公司事先宣告FLOAT(小數點都不放過 ㄚㄜ~)
然後再給你TRUNC小數點
再來ToChar 讓你不能加乘運算
作者 : lianngg(zack)
[ 貼文 5 | 人氣 352 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/28 下午 04:00:59
哈哈...你猛...
作者 : kimoasp0932(萬惡我為首)
[ 貼文 152 | 人氣 6778 | 評價 240 | 評價/貼文 1.58 | 送出評價 10 次 ] 
[ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/11/2 下午 01:17:20
系統發生無法預期的錯誤
請洽程式設計師
 
     確定
 板主 : 徵求中
 > 資訊軟體 - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - 資訊軟體 - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
資訊軟體
1 ozzy 300 
2 fortran 220 
3 monkey 160 
4 SweetWo 130 
5 judas 120 
6 openmind 110 
7 Jasper 100 
8 好說 100 
9 Hsu-春源 90 
10 Steve 90 
資訊軟體
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.1875