|
发表于 2013-3-6 10:31:35
|
显示全部楼层
本帖最后由 飞龙 于 2013-3-6 10:32 编辑
- public function love(byval boy as Boy, byval girl as Girl) as boolean
- dim flag as integer = 0
- if not girl.美女 then flag = 1
- if boy.有房 and boy.有车 then flag = 1
- while girl.愿意等
- for day as integer = 1 to 365
- if day = 情人节 or day = girl.生日 then
- if boy.givegirl(玫瑰) then
- girl.感情 += 1
- else
- girl.感情 -= 1
- end if
- end if
- boy.拼命赚钱()
- next
- end while
- return iif(flag = 1, true, marry(another_boy))
- end function
复制代码 |
|