小貓 wrote:
看來得找人幫忙翻譯成為VB...貓線在腦袋中只剩下VB了
我的VB有一段時間沒碰了還不知道能不能改的出來了
(因為部分的運算值C有而VB沒有.需要靠其他的運算值輔助)
個人積分：697分
文章編號：386154
個人積分：257分
文章編號：386156
個人積分：0分
文章編號：386386
Max wrote:你再說一次 wrote:
那男孩子最少要每個月賺十萬塊而且感情指數要大於八(竟然用while迴圈…真是殘酷啊！不過也是真的啦！)
要把 for loop 跑完要 365 次後才會再檢查一次 while loop ，所以是一年賺 100K RMB （好像是大陸同胞的作品）你再說一次 wrote:
如果時間一年一年的過去…
而感情指數又一年一年的減少…
那女孩就會找別的男孩
女孩找別的男孩條件為
if ( girl.願意等() ) 不成立時...你再說一次 wrote:
如果以上有錯！歡迎指正…
不好意思...
的確是，祖國大陸的作品。呵呵！
來自人氣最旺的貓撲 http://www.mop.com
有人在那裏註冊麽？
心有意，愛無傷。
統一１００
個人積分：0分
文章編號：386405
個人積分：0分
文章編號：386420
Function Marry(Byval Boy as String,Byval Girl as String,Love as Integer) as Boolean
'Love為百分比
On Error Goto 天長日久
dim Count as Long
:Beginning
Select Case Love
Case is >90
if not 包含(Girl,"是處女") then
Marry = false
else
Marry = true
end if
Case is 50 to 90
do until Love >90
if Boy xor Girl ="ML" then Love=Love+0.1:Count=Count+1
......(想不出了....-_-)
(以上省略１００行)
loop
goto Beginning
Case is <50
If 包含(Girl,"漂亮") and 包含(Girl,"是處女") and 包含(Girl,"MIMI>36") and 包含(Girl,"身高>170") and 包含(Girl,"體重<100") and 包含(Girl,"年齡<25") and 包含(Girl,"學歷>大專") then
Marry=true
else
Marry=false
endif
End Select
Exit Function
:天長日久
msgbox("Game Over","天長日久，老也老死了！")
End Function
心有意，愛無傷。
統一１００
個人積分：0分
文章編號：386424
個人積分：137分
文章編號：386455
Max wrote:你再說一次 wrote:
那男孩子最少要每個月賺十萬塊而且感情指數要大於八(竟然用while迴圈…真是殘酷啊！不過也是真的啦！)
要把 for loop 跑完要 365 次後才會再檢查一次 while loop ，所以是一年賺 100K RMB （好像是大陸同胞的作品）你再說一次 wrote:
如果時間一年一年的過去…
而感情指數又一年一年的減少…
那女孩就會找別的男孩
女孩找別的男孩條件為
if ( girl.願意等() ) 不成立時...你再說一次 wrote:
如果以上有錯！歡迎指正…
不好意思...
謝謝你的指正啊！！
========================================
現在是什麼情形！
我看看有沒有人可以用組合語言寫出來！
老爺別這樣，少奶奶會罵！
個人積分：0分
文章編號：386636
個人積分：530分
文章編號：386645
個人積分：312分
文章編號：386728
