ResistCarrefour

MatrixKnight 2008-04-25 10:41:13
public class ResistCarrefour //抵制家乐福类
{
Boolean Resist(); //声明抵制函数, 返回值为成功或失败
if (Resist() == TRUE) then // 如果抵制成功
{
if 情节严重
{
Carrefour_ToLoseMoney(); //家乐福收益受损
LV_leave(); // L.V.撤走在中国投资
workersUnemployed(); //家乐福廉价劳工失业
do
ADD_Society_Encumbrance(); //增加社会负担
until CRASH
}
if 情节一般
{
部分中国制造产品在本国内滞销;
Assert:中国人喜欢抵制Made In China的商品; //断言
}
}
elseif (Resist() == FALSE) //如果抵制失败
{
for(i=1;i<=TV_STATIONS_ALL_OVER_THE_WORLD;i++) //全世界的电视台和媒体,CNN,FOX,ABC,CBC,BBC,BTV...
{
ReportAsNews(); //当作新闻来播报
Resist(something); // 中国大地上又要开始新的抵制和抗议运动,到时可以用此类做父类,通过继承得出其它抵制 派生类.
}
}
}

...全文
49 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
meiZiNick 2008-05-01
  • 打赏
  • 举报
回复
接分先!
knowledge_Is_Life 2008-05-01
  • 打赏
  • 举报
回复
等待牛人来答.

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧