关于贱货赵薇的超级方程式。。。。。。
SB 赵薇(w as woman,ManCount as Double)
dim lobjFuck as new Fuck
Dim i as Long
if w=赵薇 then
For i=1 to 100000000000000
lobjFuck.FuckingMan="猛男" & CStr(i) '落实到人头
lobjFuck.FuckMounthTime="一次三天" '设置时间
lobjFuck.体位=int(rnd(1)*100) '一百种体位哈
lobjFuck.fuckMounth '执行Fuck
DoEvents '转让Fuck权力
ManCount=ManCount+1 '统计人数
Next i '下一个上
end if
'即时打印
Debug.Print "此贱货已被 " & CStr(ManCount) & " 个猛男操。成了十足的烂货。"
End SB
问题点数：20、回复次数：16Top
1 楼oldnew（冬日暖阳）回复于 2001-12-04 16:06:42 得分 0
无聊
Top
2 楼yinmingke（黄豆汤）回复于 2001-12-04 16:09:55 得分 2
算我一个Top
3 楼111222（www.111222.cn）回复于 2001-12-05 11:18:17 得分 0
heheTop
4 楼ilfsm（蜀山刀客）回复于 2001-12-05 12:09:39 得分 0
人气咋个这么差哟！
我还是转移到VB论坛吧，那里有许多看得懂的。。。。。
VB论坛的兄弟门，加油啊，可以增加些方法、属性三！
凡最优秀者，最后结帐时分就一并给他（或她），绝不食言。Top
5 楼vxhelp（飞来飞去的鱼）回复于 2001-12-05 12:46:40 得分 1
hehehehe
Top
6 楼vault（我心飞翔）回复于 2001-12-05 13:00:21 得分 0
亏你还有心情为她写方程式。。。嗨Top
7 楼shq7（傻猫）回复于 2001-12-05 14:42:45 得分 0
无聊。Top
8 楼Linux2001（闭关开发中）回复于 2001-12-05 14:56:42 得分 3
人气小啊，看来这里看的懂这个函数的人少啊Top
9 楼TalentSprite（举头望明月）回复于 2001-12-05 14:57:11 得分 0
无聊无聊无聊无聊无聊无聊无聊无聊无聊无聊无聊无聊无聊无聊无聊Top
10 楼lmh79（阿楚）回复于 2001-12-05 22:38:08 得分 1
已閱Top
11 楼ggyy（带着一堆光棍找朋友！）回复于 2001-12-05 22:48:26 得分 0
没看懂!Top
12 楼delphiworld（Delphi）回复于 2001-12-05 22:55:17 得分 3
有创意呀Top
13 楼tahpw（百合）回复于 2001-12-09 13:22:17 得分 0
无聊Top
14 楼mis98ZB（Effective Typer）回复于 2001-12-09 18:17:45 得分 5
加一个互斥语句：
if(SameTimeMenCount > 3) Prepare();
else SameTimeMenCount++;Top
15 楼Godsoft（天使之翼）回复于 2001-12-09 19:27:31 得分 5
再加一句
if(mencount>=chinapeppleamount)
debug.print"中国人干完了，该轮到其他人种了。"
if(man.nationality=japanese)
debug.print"日本人去死"Top
16 楼ilfsm（蜀山刀客）回复于 2001-12-12 10:51:47 得分 0
多谢捧场Top
