回复帖子

• 用户名 昵称

• 密    码：

• 主题标题：
• 选择话题[原创][灌水][分享][贴图][视频][讨论][搞笑][小说连载]

• 图    标：
• 

• 
• [CODE]引用elfen1126于2006/8/8 11:33:00说道： 1 某女生编的C语言程序 　 Dear all: result love(boy, girl) {- 　　if ( boy.有房() and boy.有车() ) [color=blue][/color]　　　{- 　　　　boy.set(nothing); 　　　　return girl.嫁给(boy); 　　} 　　if ( girl.愿意等() ) 　　{- 　　　while( ! (boy.赚钱 ＞ 100,000 and girl.感情 ＞ 8 ) 　　　{- 　　　　for ( day=1; day ＜=365; day++) 　　　　{- 　　　　　if ( day == 情人节 ) 　　　　　if ( boy.givegirl(玫瑰) ) 　　　　　　girl.感情++; 　　　　　　else 　　　　　　　girl.感情--; 　　　　　　　 if( day == girl.生日) 　　　　　if ( boy.givegirl(玫瑰) ) 　　　　　　　　girl.感情++; 　　　　　　　　else 　　　　　　　　girl.感情--; 　　　　　　boy.拼命赚钱(); 　　　　　 } 　　　　 } 　　　　if ( boy.有房() and boy.有车() ) 　　　{- 　　 boy.set(nothing); 　return girl.嫁给(boy); 　} 　　　年龄++; 　　　girl.感情--; 　　 } 　　return girl.goto( another_boy); function Love(Vboy:Tboy;Vgril:Tgril):boolean ; begin with Vgril do begin if ((是处女)and(身高>165)and(体重<100)and(MIMI尺码>34D)and(年龄<25)and(影响市容=false)and(气质>80)and(学历>大专)) or(真心相爱=true) then Result:=true else Result:=false; end; end; 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 ......(想不出了....-_-) (以上省略100行) 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 [/CODE]
  (最大4000个汉字) (Ctrl+Enter发表)

•  
• 个人签名

•  
•