<?xml version="1.0" encoding="GBK" ?>
<rss version="2.0" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:dcterms="http://purl.org/dc/terms/">
 <channel>
  	  <title><![CDATA[看那远方缥缈的雨……]]></title>
	  <link>http://farainkowk.blog.163.com</link>
	  <description><![CDATA[ 荒唐的是你,看不透却说我可怜……呵呵,如此可怜……]]></description>
	  <language>zh-CN</language>
	  <pubDate>Thu, 3 Jul 2008 20:44:30 +0800</pubDate>
	  <lastBuildDate>Thu, 3 Jul 2008 20:44:30 +0800</lastBuildDate>
	  <docs>http://blogs.law.harvard.edu/tech/rss</docs>
	  <generator><![CDATA[NetEase Space]]></generator>
	  <managingEditor><![CDATA[farainkowk]]></managingEditor>
	  <webMaster><![CDATA[疯癫]]></webMaster>
		  <ttl>120</ttl>
	  <image>
	  	<title><![CDATA[看那远方缥缈的雨……]]></title>
	  	<url>http://ava.blog.163.com/photo/nZU6wtwRWRXM9H70ur-kOA==/5412200852192541245.jpg</url>
	  	<link>http://farainkowk.blog.163.com</link>
	  </image>
  <item>
  	<title><![CDATA[以我丹心，祭我国殇(ZT)]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200841951911689</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">汶川的地震已经过去五天了，许多被埋在废墟下的同胞仍然命悬一线。此时似乎还不是写什么评论的时候。然而，几天来被各种电视、图片、文字冲击的心灵实在无法平静，想说的话太多太多。虽然不合时宜，如果能够帮助现场内和现场外的朋友们稍稍安静一下，梳理一下思路，也算尽一份力吧。 </P>
<P style="TEXT-INDENT: 2em">这次震灾来的如此猛烈，如此突然，如此凶残，如此的不是时候，不仅让中国措手不及，更让世界目瞪口呆。它带给中国人民的重创不亚于一次战争。千娇百媚的美丽家园瞬间被夷为平地；早上还在一起吃饭的亲人转眼成为亡魂…… </P>
<P style="TEXT-INDENT: 2em">就在全世界还在惊诧错愕的时候，中国的总理已经在第一时间牢牢地站在了抗震救灾的最前沿。几万官兵火速到达现场，十几万大军迅速集结开进，各路媒体昼夜开动，即时播报……一场向全世界“现场直播”的大营救在不到一天的时间里已经全面展开。 </P>
<P style="TEXT-INDENT: 2em">军队的调动如此神速、顺畅，官兵的爱民心切和拼命精神，感动得让人无话可说。十五勇士的冒死强跳，4500名伞兵全部写了遗书走进机舱。突击队顶着不断滚落的山石，疯了一般地向震中挺进。每小时八公里，连续十几个小时的急行军。想想我们平时锻炼跑步的速度吧，况且他们还背着救灾的器械、药品、食品和水。几十人、一百多人的突击队都是师长一级的干部带队。连续五天几乎不间断地营救，实在干不动了，躺在地上歇一会儿，起来再干。头两天我们还能看到两三个战士抬一个伤员，这两天的照片再看，抬一个伤员要十几、二十几个人。可想而知，他们的负荷早已经超过了体能的极限。 </P>
<P style="TEXT-INDENT: 2em">如果说子弟兵的救险像一场场战斗，那么灾民的自救互救则是一曲曲人性与爱的赞歌。已经知道有多位可敬的老师，为抢救学生自己被埋在倒塌的屋下；很多父母为了保护自己的孩子，就是死了，也要用身体为宝宝撑起一片安全的空间；不到十岁的孩子在废墟堆里互相鼓励，顽强地与死亡抗争；白衣天使拿自己的命做赌注坚持给病人缝好最后一针。还有民间自发的献血长队，以及风起云涌的募捐热潮……不用再多说了。一个个感天动地的故事，一首首人性良心的颂歌。地震虽然给中国带来了抹不去的伤痛，但同时也给中华民族留下了永恒的精神财富。 </P>
<P style="TEXT-INDENT: 2em">相信每个人都还没有忘记，就在不久前，干扰圣火传递的闹剧在一些国家上演得如火如荼的时候，很多评论都在说，中国是想借奥运在全世界面前“秀”一下。说的可能有些道理，所以前几天京胶铁路撞车的时候，着实捏了一把汗。心想，中国怎么这么“点儿背”呢？！圣火刚刚回到自家门口，刚想松一口气，就又给人家抓了&nbsp;“小辫子”。结果，“小辫子”还没处理完，就又出了这么个“大乱子”。如今，在这样一个“大乱子”面前，奥运对中国已经显得不那么重要了。中国已经不再需要借助圣火传递这样的“形象工程”来告诉世界，中国有能力，有实力办好一届奥运会了。大自然给了中国另一个舞台来展示她的国力，她的领导力和她的人民的素质。 </P>
<P style="TEXT-INDENT: 2em">汶川在中国应该算不上发达地区，地震以前从来没听说过。从那些铺天盖地毫无修正的照片中看那些灾民的穿戴，看他们的营养状态，尤其是孩子们那一张张圆圆的小脸儿，我们不难想象地震前这里的生活景象。这不过是中国西部的几个小县城啊。 </P>
<P style="TEXT-INDENT: 2em">再看看救灾过程中的物资资源，从四面八方象滚滚洪流一样涌向灾区。生活用品，医疗用品，救灾机械……可以说，只有因为交通破坏不能及时到达的，没有真正意义上的缺乏。想想吧，空投手机，这在救灾史上有过吗？往一片没有音讯的废墟里空投食品和水。要知道，绑在那些食品和水上面的降落伞可不是普通的降落伞，那是具有保证落地误差不超过十米的降落伞，一个就要上万哪，远远超过那些食品和水的价值。没有实力投得起吗？还有一个民间的慈善组织，得到地震的消息后，立即从安徽、河南调集几十台大型机械设备，昼夜兼程，千里奔袭，几乎与部队同时到达救灾前线。这就是大国实力的一个缩影。 </P>
<P style="TEXT-INDENT: 2em">有些网友还总是迷信所谓国外的先进救灾设备，似乎只有依靠别人才是科学救灾。你看看救灾现场，起重剪、生命探测仪、搜救犬、各种机械设备，我们哪一样没有？说实在话，对于各案的救助，某些特殊的设备可能会派上用场；而面对这种大规模的灾害，最有用的就是人。靠国外那几十个人的救援队，能刨出来几万个幸存者吗？而且对于在砖瓦堆里往外扒人这种事儿，最可靠的工具就是人的两只手。在许多人脑子里似乎已经形成了一种思维定势，只要一提到科学技术，中国就永远和落后连在一起。这不好几个国家的救援队都已经进来了吗？看看这些国外同行们将来怎么评价中国的救灾水平。 </P>
<P style="TEXT-INDENT: 2em">除了这些“硬实力”，此次救灾，中国所展现出来的“软实力”同样令世界惊诧不已。行政机构的领导力和组织动员能力；部队的快速集结、快速反应能力；号令严明，敢打敢拼敢于牺牲的骠悍作风；让人民群众从内心里觉得，这样的政府、这样的军队指得上、靠得住。 </P>
<P style="TEXT-INDENT: 2em">普通百姓在面对突如其来的灾害时，所表现出的沉着、镇定、信心和勇气，同样给人留下了极其深刻的印象。数不清的无名英雄，舍小家，顾大家，彼此扶持，相互慰籍，自觉维护秩序，自觉坚守岗位。举国上下，大江南北，有钱的出钱，有力的出力，有血的出血，谱写了一曲中华精神根深叶茂，枝繁果实的壮丽乐章。中国人民在大难临头面前所展现出的人性光辉和谦让体谅的美德，让人深深折服。那种擦干眼泪，掩埋了亲人的尸体，再上战场的坚强品格和顽强意志，令人肃然起敬。 </P>
<P style="TEXT-INDENT: 2em">最近在网上流行的一个贴子说：“天将降大任于斯国也，必先下其大雪，撞其火车，抢其火炬，震其国土，涨其物价，跌其股市，空乏其民，增益其所不能也。”中国的灾难的确够多了，尤其是进入2008年以来几乎没有间断过，而且一次比一次来的猛烈。然而，中国人民在这些人为的、自然的灾害面前，一次比一次坚强，一次比一次勇敢，一次比一次团结，一次比一次自信，也一次比一次更爱自己的国家。 </P>
<P style="TEXT-INDENT: 2em">说到这里，不由得我不提一提那几个西方“民主”国家。他们整天打着民主人权的旗号，今天指责这个政府不民主，明天批评那个国家没人权。现在中国有几十万人的生命面临着巨大的威胁，是最需要人道关怀的时候，他们在干什么呢？除了面对这一幕幕人间惨剧幸灾乐祸以外，竟然还在批评中国政府如何救灾不利，还在挑拨离间，说什么这是“人祸”。真是丧尽天良。另一方面，对待缅甸这样一个弱小国家，却把军舰、飞机都开过来了，竟然要不经过人家的同意强行进入。中国也没让你们进来呀，你们怎么不也来个强行进入呢？这是一群彻头彻尾，彻里彻外，彻上彻下，彻左彻右的趁火打劫的强盗。如果中国没有今天这样强大，军舰、飞机早就都开过来了。你还指望他们的援助？门儿都没有。不过既然他们道貌岸然地要来丢几滴鳄鱼的眼泪，那我们还是照样以礼相待。这就是大国风范。 </P>
<P style="TEXT-INDENT: 2em">一位台湾的网友在他的博文中回忆说，当年“八掌溪事件”的时候，四名遇难者手拉着手在滔滔洪水中苦等了两个多小时，电视直播就象播放灾难大片儿一样，直播了这四个人最后被洪水吞没的全过程。这四位遇难者都是有选举权的呀，他们的手中都有一张选票的呀！再看看“卡崔娜”过后的新奥尔良，美国大兵在灾后八十几个小时才赶到现场，他们去了不是去救人，而是荷枪实弹，端着冲锋枪在大街上“维持秩序”。新奥尔良的灾民每个人手中也都是有一张选票的呀！哪个国家更有人权？哪个政府更能为民做主？人人心中有一杆称。难怪有的老外竟然提出这样的问题，“中国军人去救灾为什么不带枪呢？”。真是问到点子上了。我们那叫人民子弟兵，跟你们花钱雇来的不是一回事儿。慢慢儿长学问去吧。 </P>
<P style="TEXT-INDENT: 2em">民主和人权这两个美好的词已经被他们遭践的够可以的了，再从他们嘴里往外说，连汶川的农民兄弟都要替他们臊得慌了。还有几个不知天高地厚的白痴，仗着几条破船和几个洋枪洋炮壮胆儿，老想跟中国挑衅。这回给你们见识一下中国军队，你们基本上也可以“歇菜”了吧。想跟这样的军队打仗？看一眼都叫你后背发凉。 </P>
<P style="TEXT-INDENT: 2em">短短的几天，中国展示给世界的已经足够了。没有一样是“洗脑”“政府操控”“掩盖真相”所能做得到的。这一切都是根植于五千年文明的民族价值观和有效的国家机器行云流水般的真情流露。由此完全可以推想，中国举办一个高水平，高质量的奥运会没有任何悬念，即便在遭了这样的大灾之后。中国再不需要向世界证明自己有能力办这样一个盛会了。只希望全世界的朋友们在中国吃的好，玩儿的好，取得好成绩。 </P>
<P style="TEXT-INDENT: 2em">“国际悲歌歌一曲，狂飙为我从天落”。 </P>
<P style="TEXT-INDENT: 2em">在这里，我愿向那些不幸遇难的同胞们说一句：你们放心地去吧。你们留下来的亲人我们会象对待自己的亲人一样照顾好他们。你们被震毁了的家园，我们会替你们重新建起来，而且要建得更好。中国不但挺得住，而且会站得比任何时候都更加威严，强壮！&nbsp;</P>
<P style="TEXT-INDENT: 2em"></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200841951911689</comments>
    <slash:comments>2</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200841951911689</guid>
    <pubDate>Mon, 19 May 2008 17:19:11 +0800</pubDate>
    <dcterms:modified>2008-05-19T17:19:11+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[人间四月 芳菲优雅 （喜欢的几首和花有关的歌）]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520083266302525</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">古诗说：“人间四月芳菲尽，山寺桃花始盛开”。我想那说的是江南水乡，在东北这边，四月才刚刚走出冬天的影子，闻到点春天的味道，不经意间，便是已是一片绚烂缤纷。恰好最近很喜欢几首和花有关的歌，于是便叨咕几句，更新一下我这blog。</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">第一首：《雨樱花》（FIR乐团）</P>
<P style="TEXT-INDENT: 2em">以前在BLOG中很推崇fir的《月牙湾》，而现在，发觉同一专辑中的《雨樱花》一样的出色，看来《爱歌姬》这张专辑含金量很高啊。</P>
<P style="TEXT-INDENT: 2em">《雨樱花》带有很浓的日式风格，开头的节奏感很强，但fir的声音一出现，仿佛大气磅礴的远景切换到细腻花瓣的特写，让人有种撑着伞漫步于樱花瓣中的飘飘洒洒的感觉。而我真是喜欢fir的声音啊，性感而又迷人，温柔中带着挑逗的激情，爆发激情时却依然感觉得到女生倔强的温柔，一张一弛一快一慢间随着曲调百转千回，给人一种畅快淋漓的感觉，听起来过瘾的同时，又很浪漫。</P>
<P style="TEXT-INDENT: 2em">（地址：<A href="http://www.shixiao.com/blog/UploadFiles/2007-4/42687518.mp3" target=_blank>http://www.shixiao.com/blog/UploadFiles/2007-4/42687518.mp3</A>）</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">第二首：《蝶恋花》（牛奶@咖啡）</P>
<P style="TEXT-INDENT: 2em">这是一首很温柔的歌，适合夜深人静静静的去听。牛奶@咖啡的声音控制力也很强，在同一专辑中的《小宇宙！燃烧吧》劲爆的像个疯丫头，而这首《蝶恋花》却婉约雅致的犹如大家闺秀，初次听时，就好像走进了姑娘的香闺听着她的倾诉，不由得心动。而专辑名字《越长大越孤单》，也让我很是触动，有种说不清道不明的共鸣，好似“望极春愁，黯黯升天际”。</P>
<P style="TEXT-INDENT: 2em">（地址：<A href="http://1403.yy8844.com/2006_1545/16900/6.wma">http://1403.yy8844.com/2006_1545/16900/6.wma</A>）</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">第三首：《サクラビト》（Every Little Thing）</P>
<P style="TEXT-INDENT: 2em">这首歌的名字是“美丽的樱花”么？虽然在学日语，知道“サクラ”就是“桜（sakura）”，但是后面的“bito”还不是我这个菜鸟能理解的，嘿嘿。不管名字是什么，总之这是一首非常好听的日文抒情歌曲。嗯……别问我唱的歌词是啥，我不知道，也没必要知道，正是因为不懂歌词，才让我专注于享受音乐本身不是么。这首歌没有娇柔造作，一切都来的那么自然，平静如流水般掠过心田，是首能让人心情放松的歌，适合在工作的间隙休息时，或者心情不好时，静静的聆听呢。</P>
<P style="TEXT-INDENT: 2em">（地址：<A href="http://wmaone.365yy.net.cn/24/772/32765/94713545.wma">http://wmaone.365yy.net.cn/24/772/32765/94713545.wma</A><A href="http://1403.yy8844.com/2006_1545/16900/6.wma"></A>）</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">第四首：《玫瑰花的葬礼》（vae）</P>
<P style="TEXT-INDENT: 2em">最后再介绍一首男声的歌曲吧。早前听vae的《断桥残雪》《飞蛾》，一直都觉得他的声音好像吃咸菜吃多了一样……咳咳，别有一番风味啊。那种带着点贵族气息的沙哑，有点悲戚，有点伤感，很有特色。“玫瑰花的葬礼”，曲如其名，既浪漫又悲伤，很气派很动人。非常喜欢歌曲伴奏中的鼓声，如此充满激情的节奏，和那有点粗狂的声线搭配在一起，魅力无限！</P>
<P style="TEXT-INDENT: 2em">（地址：<A href="http://www.wuming.com.cn/music/uploadfile/200691260209237.mp3">http://www.wuming.com.cn/music/uploadfile/200691260209237.mp3</A>）</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">好了，就说这些吧，要是有人无聊了想听听，那么一定要给我反馈一些感想才行啊，毕竟不同的人有着不同的感觉，对不对？</P>
<P style="TEXT-INDENT: 2em"></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520083266302525</comments>
    <slash:comments>3</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520083266302525</guid>
    <pubDate>Sat, 26 Apr 2008 18:30:25 +0800</pubDate>
    <dcterms:modified>2008-04-26T18:30:25+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[辛劳的男人们]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200831252111102</link>
    <description><![CDATA[<div><P>早上6点多就起床对我来说真是痛苦的事情啊，尤其昨晚想了很多事情睡得也不踏实。急急忙忙的赶班车去考场。明明9点钟考试，也不知道为什么TMD非要把我们8点钟就拉到考场……考完试去房交会转了一圈，又TMD人山人海的，这势头就不像能降价的！果然，房价又涨了，靠！售楼的那些丫头也是一脸傲慢，TMD，等我有钱了，我把你这一个单元都拿下，给我拆了我蹦极玩！……等我有钱了？唉，又TMD开始YY了，咱是穷人，而且还是彩票不中的穷人……不想了，回来又累又饿的，还是老老实实的上网更新一下BLOG吧，至少让大家知道我还活着。</P>
<P>最近一段时间项目组加了9个新人，就我们四个leader，带这批人真是到了极限了。TMD根据上次和客户开会的信息，估计本周又要再加10个新人，我K！我们集体和上头抗议，可是人家要营业额阿，我们再加几个人顶得上别的部门一个项目了，怎么会拒绝呢？！接下来的日子真不知道怎么过了。想起以前我的老领导走时告诉我：尽人事，听天命。唉，我也别再逼着自己，能做到什么程度就什么程度吧。</P>
<P>昨天听说以前的一个同事凌晨心脏病突发去世了，据说是因为加班累的，差不多是“过劳死”吧，不然年纪轻轻的，怎么会这么脆弱。虽然以前和他不熟，分不清他什么样子，但也还是深感惋惜，兄弟，一路走好吧！</P>
<P>唉，这么辛苦，到底为了什么呢？心情有些郁郁，于是把手底下那些加班赶工的青涩的小毕业生们叫来，告诉他们，周末了，都回去休息，别太辛苦了。珍爱生命，远离加班！</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200831252111102</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200831252111102</guid>
    <pubDate>Sat, 12 Apr 2008 17:21:11 +0800</pubDate>
    <dcterms:modified>2008-04-12T17:21:11+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[今天，好累]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520083604030743</link>
    <description><![CDATA[<div><P>早上（中午……）起来看天气不错，春暖花开春心动荡的，于是跑出去踢球，公司刚刚买下一个学校，正好去那里的运动场，说起来，也有将近一年没有踢球了，虽然体力不行，好在球感还在，依稀还能再找找大学时的风范。驰骋在阳光下的运动场，总是很舒心的事啊！踢完球又打了会篮球，一身臭汗，于是去游泳顺便洗澡。蒸搓一阵之后——舒服！</P>
<P>回来把衣服洗了鞋刷了，然后被同事叫出去打台球……以为我是菜鸟？哈哈，结果全胜！追溯我的台球生涯，那要回顾起小学时了。那时家门口有个台球室，放寒暑假时就和老爸去台球室玩，那时候还真是执著阿，记得当时的游戏机有台球游戏，每一关关底是设计好的球阵，要一杆全部入袋的，我就模仿那个摆起来打。我印象中那个台球室也是藏龙卧虎的，有个家伙很拽，据说是半职业的，每次去都是自己带球杆，还有个绰号“黑八”的，似乎从来没输过。那时候也许因为我还是小屁孩，于是那些玩得好的经常教我一些技巧，后来慢慢的也能打出像样的球了。直到现在，虽然我不怎么玩了，但是基本功还是没丢的。说起来，好久没有和老爸打台球了，今年过年，应该再挑战一下了……</P>
<P>哎呀，现在腰好疼，因为蹦来蹦去的缘故吧，不写了，睡觉。</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520083604030743</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520083604030743</guid>
    <pubDate>Sun, 6 Apr 2008 00:40:30 +0800</pubDate>
    <dcterms:modified>2008-04-06T00:40:30+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[请一个长假，道一声珍重]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520082195131585</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em"><EM>在鬼版已经发了这个帖子，但是因为各个版都有相熟的朋友，在这里再发一次，原谅疯癫我不去一一道别了。这么久以来，有各位相伴，真是段快乐难忘的日子，我一直感恩于与诸位相识。虽然很是不舍，但终究没有不散的宴席，疯癫谨祝各位一切顺利，生活甜蜜……如果有人偶尔想我下下，我会很开心的</EM>&nbsp;</P>
<P style="TEXT-INDENT: 2em">由于工作原因，接下来的一段时间会很忙（项目组来了很多新人，得把他们从菜鸟培养成大虾），而且我自己还要学习很多东西，因此没有时间尽一个斑竹的责任了（虽然我一直也并不怎么尽责，咳咳，我检讨）。事业上，我希望能更上一层楼，因为需要准备和考虑的事情很多，所以，恐怕要和各位告别一段时间了（也许几个月，也许一年）。其实最近几周就已经忙起来了，都只是抽空来看看，一直是小忘在撑着，我除了灌水都没有时间认真看看帖子，希望大家能够理解。&nbsp;</P>
<P style="TEXT-INDENT: 2em">算算日子，在鬼屋呆了有三年多了，而我还记得我是06年妇女节被任命的斑竹，真是往事历历在目啊。时间上和青青、ET这些千年老鬼相比不算什么，但是三年时间，也经历了太多的相识、相知和分别。当年那个四处灌水号称英俊潇洒温柔体贴立志三宫六院七十二妃的小鬼，到如今，多了一些沧桑而少了一份激情。无法给大家带来鬼屋新的活力，也许也是该让鬼屋换换血了呢。&nbsp;</P>
<P style="TEXT-INDENT: 2em">除了工作上的原因，我还想说，我来和大家告别，绝对不是因为我没什么留恋的，恰恰相反，因为我是一个长情的人，这里有太多我所留恋的东西，而我很怕承受太多分离和怀念，所以这一次，还是借这个机会自己先任性一点吧，让我整理一下自己的心绪。我知道网络这东西，相濡以沫之后，便是相忘于江湖，但是我却总是像个旅人一般妄图抓住消失于眼前的景色，于是偶尔那么一个蓦然回首间，想起一些过往，便会有些感触……&nbsp;</P>
<P style="TEXT-INDENT: 2em">也许我对大家来说仅仅是一个生命中的过客，不过，我希望大家知道，我记得你们，曾经来过的或者现在活跃的朋友们，我都不曾忘记，相信我，这算是我作为资深色狼的一项绝技吧(^_^)。这里的女孩子也好，男孩子也罢，在我看来都是单纯善良美好的，我想让你们知道，有缘相识，我真的深感荣幸！&nbsp;&nbsp;</P>
<P style="TEXT-INDENT: 2em">我的电话，QQ都没有变化，有事可以随时叫我，只是不知道会不会有人想念我啊……</P>
<P style="TEXT-INDENT: 2em">呵呵，最后，希望大家多多支持鬼版，为鬼屋增添新的活力！要知道，我还是我，等我忙完了就会来调戏新MM哦，到时候，疯癫我希望，还能再见到各位！&nbsp;</P>
<P style="TEXT-INDENT: 2em"><FONT face="MS UI Gothic" size=2><IMG src="http://img1.bbs.163.com/guihua/fa/farainkowk/600x400_197521.jpg"><BR></FONT></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520082195131585</comments>
    <slash:comments>6</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520082195131585</guid>
    <pubDate>Wed, 19 Mar 2008 17:13:15 +0800</pubDate>
    <dcterms:modified>2008-03-19T22:25:18+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[我回来了]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200821011127143</link>
    <description><![CDATA[<div>心情不好，失去了很多东西……</div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200821011127143</comments>
    <slash:comments>2</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200821011127143</guid>
    <pubDate>Mon, 10 Mar 2008 11:01:27 +0800</pubDate>
    <dcterms:modified>2008-03-10T11:01:27+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[又一次心灵的震撼——电影《赎罪》]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520081250448721</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em"><FONT color=#0000ff><EM>同住的哥们办了几张优惠的电影券却一直无暇去看，今日翻出来后发现本月28号就到期了，于是决定趁周末给它消灭掉。邀我同去，不看白不看，自然欣然前往。</EM></FONT>&nbsp;</P>
<P style="TEXT-INDENT: 2em">书归正转，作为本届金秋奖得主，并且获得七项奥斯卡奖提名，电影《赎罪》可谓是风头正劲，当然，最开始吸引我去看这部片子，完全是因为那个带我徜徉加勒比海的女海盗凯特&#8226;奈特莉<IMG src="http://st.blog.163.com/style/common/htmlEditor/portrait/face/preview/face7.gif">。&nbsp;</P>
<P style="TEXT-INDENT: 2em">《赎罪》的剧情其实脉络很清晰，Briony年幼的时候做了错事，使Robbie遭受了3年莫名的牢狱之灾，破坏了姐姐Cecilia与Robbie之间的美好爱情，Robbie为了摆脱牢狱之苦而参加了二战，最终在1940年的7月死于败血症，而Cecilia也于1940年的10月悄然离世。两个原本想爱的人却因为一个孩子的过错而永远没能走到一起，二战时咖啡馆中的那次相遇成为了这对有情人永远的记忆。这个错误在Briony的心中留下了非常深的痕迹，她的一生都在为这个错误而赎罪。&nbsp;&nbsp;</P>
<P style="TEXT-INDENT: 2em">爱情、战争、误会、牢狱，这些都是典型的古典爱情元素，《赎罪》所演绎的就是这样一个带有古典气质的爱情悲剧。在《赎罪》中，我们甚至可以找到《英国病人》和《冷山》所表达的那种情绪，但是《赎罪》与他们又有所不同，它最大的亮点在于他的叙述方式以及影片的结尾。老年的Briony道出之前的情节是杜撰的时候，确实让人吃惊，同时增加了她赎罪的深切心理，绝对是影片的神来之笔。&nbsp;</P>
<P style="TEXT-INDENT: 2em">在《赎罪》中我们可以看到大量的闪回镜头，每一次的闪回镜头都对前面的镜头做出了明确的解释。导演通过正叙来设置悬念，随后通过闪回来给出答案，从而推动着整部影片故事情节的发展。随着剧情的发展，谜题开始不断地被揭开，对剧情的了解也就更加地深入起来。在结尾的时候却又给了观众当头一棒，原来前面两人团聚的剧情完全是Briony所杜撰的，故事瞬间变成了凄美的爱情悲剧！说实话，我一直就不相信Cecilia和Robbie会如此平淡的重逢，但是，当后来得知他们的重逢完全是一种杜撰，我又扼腕叹息，Cecilia那深情“回到我身边吧”似乎还在耳边回响，怎么会这样呢？怎么忍心这样呢？！Cecilia与Robbie之间的爱情就是一个彻头彻尾的悲剧，悲到了一种境界的悲剧，我们除了惋惜，已经完全想不出别的词语来形容了。&nbsp;</P>
<P style="TEXT-INDENT: 2em">而正因为Robbie与Cecilia的爱情之悲，增加了Briony所犯的罪情之重。一个13岁的少女，自以为是懂得很多，整天生活在自己的幻想之中。看到自己暗恋的男人与自己的姐姐搞在一起，心生嫉妒，于是做出了异常狠毒的事情，因为她的一句话，Robbie被投入了监狱。Robbie被抓走的那一刻她后悔了，但是她毕竟只有13岁，她软弱，不敢承担自己所犯下的过错，只得任由这个错误继续下去。Briony的一生都在赎罪，她放弃上剑桥的机会而选择了做一个护士，她用了一生的时间来完成《赎罪》这本书。要正视自己犯下的错误是需要有着惊人的勇气的，Briony没有这个勇气，所以她只能通过虚构的场景与自己的姐姐对话，告诉姐姐自己的错误，并且在这个虚构的场景中接受Robbie的责骂……&nbsp;</P>
<P style="TEXT-INDENT: 2em">这部电影的剧情好的没话说，而配乐和摄影也是一流的。说起来我很喜欢开场时那座上世纪早期的欧式庄园，草坪，树林，池塘，雪白的墙壁和窗帘，充满着阳光和生机，营造出一种恋爱的味道，美好的犹如童话一般，让我心驰神往。但是美好的东西出现的太早，就是为了而后的毁灭吧。在表现战争场面时，虽然没有太多血腥惨烈的战役，但是那光影中体现出来的凝重压抑给人的感觉却是那么的真实。此时的Cecilia，仿佛让我又看到了那个敢爱敢恨的海盗，倔强而又美丽。&nbsp;</P>
<P style="TEXT-INDENT: 2em">嗯，就胡乱的写这些吧，最后想说一句，Cecilia的那件绿色礼服真的很漂亮。</P>
<P style="TEXT-INDENT: 2em"></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520081250448721</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520081250448721</guid>
    <pubDate>Mon, 25 Feb 2008 12:44:08 +0800</pubDate>
    <dcterms:modified>2008-02-25T12:44:08+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[法苑珠林，色即是空——电影《九度空间》]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/11595552008115103559923</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">如果一定要形容这部电影,我会说,这是一部创造大于叙事,真实高于现实的作品.虽然你可以看到一点大卫.林奇的"穆赫兰道",一点克里斯托弗·诺兰的"记忆碎片"以及蒂姆.波顿的影子,但这丝毫也不妨碍它青涩却异常奇妙地创造着一个幻世.在这个世界中,一切复杂的近乎简单.就像一个既无起点,也无终点的圆.这个圆将无边的繁复包含其中,却极其迷幻地将之转化成如深穹般静谧的玄空.在这里空即是色,色即是空.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P>
<P style="TEXT-INDENT: 2em">&nbsp; &nbsp; 身处幻境就如同站于镜前,镜中人似实却虚,如一且二.镜中如果再加上一面镜子,影像便如锁链般环环相扣,从主导一切的实相直至无穷小的虚相.但镜中人却犹如从无穷小渐变至难以分辨的本相.如此一来孰真孰假,便在幻世中再难分辨.面对如此境况,每个人不明真假,困苦非常.所以在某一时刻,幻世中人,都会意欲突破桎梏,寻找那归于一真原点的人生本相.它发出的微光,在这时,比幻世中一切的浮华都更为光亮.而此时的人们,就好像在浑浊的江河中寻找到清澈的源.在黑暗的迷途中发现来时的路.&nbsp;&nbsp;&nbsp; </P>
<P style="TEXT-INDENT: 2em">&nbsp; &nbsp; 佛教百科"法苑珠林"上说,天地初开之时,大地一片美好.出产的奇花异果,奇珍异宝足以与天界相比,这使得许多受不了诱惑的天神下到人间,采花吃果.拥珍纳宝.却不想.一但沾染尘世,便再也回不了天界,从此流浪于人间.但由此却下了一份离开尘世,重返天界的决心.传说虽有点空幻,但人类对神性与解脱的渴望,无论在哪一个时代都异常强烈.那万人一心建造的,意欲通天的巴比伦塔,那对于广大夜空的无限憧憬和哲人对于心灵的长久关注都突现了人类这一奇异的渴望.片中Gary / Gavin / Gabriel这三个同一面孔的,以G开头的幻觉统一体,你可以说是神的堕落,也可以说是人类对于本来神性的探索.而无处不在的Sarah / Susan / Sierra,与其说是神性的召唤与救赎.不如说是重返天界的同类为不慎在后世迷失的同人留下的坐标.还有那同一化身的Margaret / Melissa / Mary则是人类欲望的总和,或是另一个被尘世束缚,陷入无知的神裔.其实每个人都会有不同的联想.一直以来,我就认为看电影的乐趣并不在于解读电影本身,或从电影得到什么寓意.实际上,我认为在一个框框里解读寓意,分析解构这都是扯淡.反而我觉得让精神通过影片,在现实或超现实之中任意驰骋才是正确利用影像,提高自身精神感悟的合理方式.正如普鲁斯特在一处风景,一阵香气匆匆一掠之时,回味那逝去的如水年华一般,惬意无瑕.</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/11595552008115103559923</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/11595552008115103559923</guid>
    <pubDate>Fri, 15 Feb 2008 22:35:59 +0800</pubDate>
    <dcterms:modified>2008-02-15T22:35:59+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[我，回来了]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/11595552008113105142248</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">忙乱中，这一个新年就这么过去了。七天的假期对我这样一年回家一次的人来说真的是太短了。还没帮爸妈做点什么买点什么，还没有吃够爸妈做的饭菜，就已经踏上了返回的火车。我不是个恋家的人，我坚信作为男人就应该出去闯荡出一番事业才对，不过每次回家看望父母，心里却依然舍不得放下。</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">今年过年又是一大家子一起过，于是就总感觉和父母都没说上几句话喝没同饮几口酒，然后就是走亲戚会朋友，也难怪，都是一年才见一次的，哪能落下阿。</P>
<P style="TEXT-INDENT: 2em">高中的哥们聚起来一算，竟然毕业八年了，想想都觉得不可思议，想不明白时间什么时候过去的？可是看看大家的变化，哪里还是那群八年前那些驰骋球场的野小子？不禁感慨斗转星移物是人非啊。呵呵，也许大家都是偶然这么回首一下，然后再去提醒自己去珍惜自己拥有的幸福。</P>
<P style="TEXT-INDENT: 2em">&nbsp;</P>
<P style="TEXT-INDENT: 2em">过去的一年，发生了很多事情，有好的有坏的，值得我去品味借鉴和珍藏，不过不管怎样，时间就像火车的车轮一样滚滚向前，跟07年告别吧！08年又是一个充满机遇和挑战的一年。都说我今年会事业爱情双丰收，哈哈，借这吉言吧！</P>
<P style="TEXT-INDENT: 2em"></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/11595552008113105142248</comments>
    <slash:comments>0</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/11595552008113105142248</guid>
    <pubDate>Wed, 13 Feb 2008 10:51:42 +0800</pubDate>
    <dcterms:modified>2008-02-13T10:51:42+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[疲倦……]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200802383524888</link>
    <description><![CDATA[<div><P>也许是因为这几天情绪不好，有点上火，结果感冒了，下午发烧。</P>
<P>低烧，倒不严重，就是整个人迷迷糊糊的，偏偏赶上年前项目比较忙，加班回来，头晕脑涨。</P>
<P>躺在床上想起衣服还没洗，于是爬起来洗衣服。</P>
<P>水冷得刺骨，而手指又有点伤，洗个衣服也觉得费劲。</P>
<P>突然一下子好想有个人在身边，在我不舒服的时候，帮我洗洗衣服……嘿嘿，奢望阿。</P>
<P>&nbsp;</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200802383524888</comments>
    <slash:comments>2</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200802383524888</guid>
    <pubDate>Wed, 23 Jan 2008 20:35:24 +0800</pubDate>
    <dcterms:modified>2008-01-23T20:36:19+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[世界上最遥远的距离]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200801992937939</link>
    <description><![CDATA[<div><P>有人说：世界上最遥远的距离<BR>不是生与死<BR>而是我就站在你面前<BR>你却不知道我爱你<BR>这话，不对……</P>
<P>也有人说：世界上最遥远的距离<BR>不是我就站在你面前 <BR>你却不知道我爱你 <BR>而是<BR>明明知道彼此相爱 <BR>却不能在一起<BR>这话，也不对……</P>
<P>还有人说：世界上最遥远的距离<BR>不是明明知道彼此相爱 <BR>却不能在一起 <BR>而是<BR>明明无法抵挡这股想念 <BR>却还得故意装作丝毫没有把你 <BR>放在心里<BR>这话，还是不对……</P>
<P>其实……<BR>世界上最遥远的距离<BR>不是明明无法抵挡这股想念 <BR>却还得故意装作丝毫没有把你 <BR>放在心里 <BR>而是<BR>用自己冷漠的心 <BR>对爱你的人 <BR>掘了一道无法跨越的沟渠，执迷不悟，痛苦中无法解脱</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200801992937939</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200801992937939</guid>
    <pubDate>Sat, 19 Jan 2008 21:29:37 +0800</pubDate>
    <dcterms:modified>2008-01-19T21:29:37+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[It&apos;s the end]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/11595552008019115457967</link>
    <description><![CDATA[<div><P>宿醉，头疼的厉害，心也疼得厉害。</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/11595552008019115457967</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/11595552008019115457967</guid>
    <pubDate>Sat, 19 Jan 2008 11:54:57 +0800</pubDate>
    <dcterms:modified>2008-01-19T11:54:57+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[情绪低落]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/11595552008015101837514</link>
    <description><![CDATA[<div><P>不想写啥，仅仅是，凑一篇更新。</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/11595552008015101837514</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/11595552008015101837514</guid>
    <pubDate>Tue, 15 Jan 2008 22:18:37 +0800</pubDate>
    <dcterms:modified>2008-01-15T22:18:37+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[央视，感动了日本（ZT）]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/11595552007111682240361</link>
    <description><![CDATA[<div><P>感动了，感动了，感动了，央视立功了，央视立功了，不要给愤青们任何机会。伟大的中日关系万岁！他继承了中国人好了伤疤忘了痛的光荣传统，卖办、汉奸、精英、既得利益在这一刻灵魂附体，央视绝不是一个人在战斗，绝不是一个人……！ <BR>　　 <BR>　　央视“2007感动中国”大型评选<NOBR target="_blank" false;?>活动</NOBR>正在如火如荼的展开中，连篇累牍的宣传报道覆盖了整个雄鸡的版图，央视启用了、开足了各种宣传机器进行不遗余力的预热升温攻势，CCVT。COM贴满了待选人物的招帖画，耳朵眼里充斥着待选人物的事迹、简介，大街小巷的空气中弥漫着无孔不入的宣传声……造势力度之大，足以证明央视的策划人呕心沥血的要赶在年末为大伙奉上一道从心灵到思想的饕餮盛宴，赚足国人的眼球和眼泪。从十二月四日正式启动至今，只要能感动公众，感动中国的；平凡的、不平凡的人只要做出了不平凡事的；各行业的精英，各阶层的楷模，各领域的翘楚等等不管大事小情，不管大人小物不一而足的，全都不尽悉的闪亮登场了。但就是在这铺天盖地的狂轰乱炸中，一向对CCTV不甚“<NOBR target="_blank" false;?>感冒</NOBR>”的我竟忙于奔波，无暇感动。 <BR>　　 <BR>　　说来很惭愧，道理很简单，忙于裹腹，忙于生存，忙于养家糊口，对于身边遥远的事，我的感动仅是十四亿分之一微量，无足轻重，不足道哉，让倪萍大妈的接斑人周涛和煽情王子朱军的如簧巧舌去感动中国吧。但就在昨晚，看到一边在搜罗感动、制造感动、倾力感动中国的央视，却又带着慈善的微笑，高唱《同一首歌》，“敢动地”走进了一片“神奇的热土”——日本！之所以说它“神奇”，是因为能在灿若朝霞的樱花林中竟能孕育出吃人不吐骨头的魔鬼，在洁如飞絮的富士山下竟能生长出嗜杀戮为乐趣的畜生。这一刻，面对央视舍身饲虎的无畏精神，面对《同一道歌》演职人员的高尚情操，面对央视领导为感动日本而敢动中国人的超凡境界，我终于被敢动了！我放下所有的鸡毛蒜皮，敢动得情不自禁、热血沸腾地奋笔呐喊。 <BR>　　 <BR>　　1937年12月13日，日本侵华日军在南京撕裂了中国、震惊了世界，30万同胞被惨无人道，灭绝人寰的杀戮，那一天，天是血色，地是血色，江是血色，人是血色，从那以后，中日间<NOBR target="_blank" false;?>历史</NOBR>已被血泪浸透，这鲜血和悲伤书就的历史岂能忘记，又怎敢忘记？！2007年12月13日，南京大屠杀七十周年祭，我们都在重温这段惨痛的历史，悼念在那场灾难中罹难的同胞，谴责日本军国主义犯下的种种兽行，反思造成这场中华民族惨重灾难和民族血耻的根缘，都在做一个有良知中国人该做的事情。前段时间友人致函，让写一篇关于纪念“南京大屠杀”的帖子，却一直没有提笔，面对满目疮痍、一衣带血的历史，除了沉想，反思，追忆，回顾，悼念外，还能写什么，又能写得出什么？写什么都是那样的轻飘无力，愕然无序…… <BR>　　 <BR>　　我们常说，以史为鉴，面向未来，中日和平是不可阻挡的<NOBR target="_blank" false;?>时代</NOBR>潮流。这点我不反对，但这一定是要建立在日本人真正的、全面的、深刻的反省他们所犯下的暴行，发出内心最深处的忏悔，用实际行动进行自我拯救的基础上的。但日本人是怎么向受害国进行救赎的呢：一再否认、歪曲历史，在道歉的问题上反复无常；修改历史教课书，公然为粉饰日军侵华行为，为南京大屠杀、强征慰安妇等一系列恶行翻案；不顾亚洲各国人民的反对，多次参拜放有军国主义头枭的靖国神社，挑畔中日两国关系，伤害本就脆弱的两族<NOBR target="_blank" false;?>感情</NOBR>；在东海划界问题上一再纠缠不休，制造麻烦；在钓鱼岛问题的处理上一再蚕食巧取，步步紧逼；在中华民族复兴道路上设置障碍，甘当帮凶……冥顽不灵，顽固不化，贼子亡我之心不死！这样的“邻居”值得原谅吗？这样的“邻居”你值得携手吗？这样的“邻居”值得信任吗？中日间的新局面就是这样开创的吗？ <BR>　　 <BR>　　亲戚或余悲，他人亦已歌，死去何所道，托体同山阿。 <BR>　　当南京人撕心裂肺的警报声尚在绕梁未散，族人同泣，哀歌未泯之际，央视却为了感动倭人而敢动了国人心理最脆弱、最敏感的神经——在冤死亡魂的忌日，在鬼子厉兵秣马的土地上载歌载舞，奉上号称<NOBR target="_blank" false;?>少女</NOBR>兼师奶杀手的“蔡奶油”犹嫌不够，还褪下军装，身着和服，携手倭M高唱友好，此情此景，日本真的会被央视感动的！中国也一定被“敢动”了！因为这一刻，绝不是蔡奶油一个人的战斗，这一刻，南京三十万亡灵、举国三千万冤魂在哭喊、在哀嚎、在挣扎、在控诉！</P>
<P>　　而CCTV则在这国人敏感的时间伤口上撒了一把盐！央视，你这次真的敢动了中国！敢动了国人！敢动了亡魂！敢动了血史！！！</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/11595552007111682240361</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/11595552007111682240361</guid>
    <pubDate>Sun, 16 Dec 2007 20:22:40 +0800</pubDate>
    <dcterms:modified>2007-12-16T20:22:40+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[感冒能通过电话传染……]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520071161341221</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">传说中的DD得了传说中的感冒，昨天打了传说中的吊瓶，然后今天一点传说都没有……&nbsp;</P>
<P style="TEXT-INDENT: 2em">她继KK，香香之后感冒，这件事情充分证明了——这一波感冒可以通过电话传染，而传染源……似乎就是我。&nbsp;</P>
<P style="TEXT-INDENT: 2em">起初别人打电话传染给我感冒的时候我还不信，但是经过这么多活生生的案例，我信了！</P>
<P style="TEXT-INDENT: 2em">既然有人能连买21注全偶数，而且中了一个亿；既然有人能上山拍到和四年前年画一模一样的老虎，那么在中国还有什么不能发生~？？</P>
<P style="TEXT-INDENT: 2em">嘿嘿~~~信不信，由你！</P>
<P style="TEXT-INDENT: 2em">我想说的是，天冷了，大家要注意身体啊！</P>
<P style="TEXT-INDENT: 2em"></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520071161341221</comments>
    <slash:comments>5</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520071161341221</guid>
    <pubDate>Thu, 6 Dec 2007 13:03:41 +0800</pubDate>
    <dcterms:modified>2007-12-06T13:03:41+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[一只华南虎引发的蝴蝶效应]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200711592425459</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">中国前水利部部长杨振怀曾慷慨激昂的说，“如果我们的下一代只能看到枯黄的标本，而看不到活生生的白鳍豚，我们就是罪人”。 </P>
<P style="TEXT-INDENT: 2em">为改变这一现状，国家先后投资上亿元兴建了9个自然保护区和保护站。 </P>
<P style="TEXT-INDENT: 2em">2002 年7 月14 日最后一只人工饲养的白鳍豚“淇淇”在价值千万的白鳍豚科研馆中孤独死去。 </P>
<P style="TEXT-INDENT: 2em">2006 年12 月13 日， 中、瑞、英、美、德、日6 国科学家采用世界上最先进的监测仪器和分析方法经过1个多月的缜密调查，途经多个“白鳍豚保护区”，行程3400公里后，宣布长江流域未发现白鳍豚。 </P>
<P style="TEXT-INDENT: 2em">2007年8 月8 日，《独立报》、《卫报》和BBC 等媒体同时报道：中国长江白鳍豚已经灭绝,“白鳍豚可能是历史上第一个被人类消灭的鲸种。” </P>
<P style="TEXT-INDENT: 2em">此后为了反驳这一说法，挽回国际影响,有关人士和专家多次“欣喜地”发现、发布了所谓疑似白鳍豚照片和视频，但铁的事实是从02年后中国再没有发现和捕获白鳍豚活体，国家上亿元的资金假白鳍豚之名打了水漂。其实痛定沉思，长江鲥鱼已经绝迹多年，长到筷子长的长江刀鱼也能卖天价，比它们体型大得多的白鳍豚又怎么能逃得过人类贪婪的渔网。 </P>
<P style="TEXT-INDENT: 2em">差一点，差一点我们又被他们感动了；差一点，差一点我们又相信那就是真的了；差一点保护区又成立了，千万资金就又打了水漂；差一点就华南虎保护办公室就又变成华南虎研究中心了，关克、朱巨龙之流可以在巍峨高耸的研究所内觥畴交错，吃吃腊肉，谈谈保护华南虎的心得和成果了。可惜只是差一点。 </P>
<P style="TEXT-INDENT: 2em">后来我们才明白，感动之后，相信之前，我们唯一能做的事叫做观望。 </P>
<P style="TEXT-INDENT: 2em">没有所谓的罪人，我们的下一代能看见的依然只有枯黄的标本和没有了白鳍豚、华南虎的“保护区”和“研究所”。这真是莫大的讽刺。 　　 </P>
<P style="TEXT-INDENT: 2em">国人没有契约精神，发誓赌咒承诺如同放屁，这就是为什么周先生、朱先生敢拿脑袋和官位做担保的原因。纯属雷同的是西安宝马案“我拿人头担保！”——贾庆安先生，咋一看陕西人还真拿脑袋不当回事，看来是多少继承了秦军把脑袋系在裤腰上打仗的凶悍传统。不过贾先生的结局人所共知-----丢了官位，保了脑袋，前车可鉴啊。当然，杨先生要好得多，历史只会记载白鳍豚灭绝于何年何月，不会记得曾经有过他这么一个“罪人”。这个教训告诉我们不要永远拿实质性的东西去打赌。 </P>
<P style="TEXT-INDENT: 2em">从华南虎照片出炉到可以建保护区；到照片真假无所谓，重要的是研究华南虎的踪迹；再到有无华南虎并不重要，重要的是建保护区。当朱巨龙先生代表林业厅发表：有没有华南虎都要建保护区时，事件已经完成了三级跳，从序章、高潮，直奔主题了。 </P>
<P style="TEXT-INDENT: 2em">其实，我们应该默认，这原本就是一场交易。千万投资，这是一笔大生意，对蜗居偏僻的陕西林业局和镇坪县来说肯定是百年难得一见的大手笔，这也许就是他们为什么能够在全国人民一片质疑声中坚持到现在的直接原因吧。可惜这单生意他们的投标书搞得太烂了，烂到连外行也愤愤不平。利令智庸，陕西林业局在千万资金的诱惑面前表现得太不专业了。 </P>
<P style="TEXT-INDENT: 2em">对于关克先生的有句话，网友是非常表示赞同的：“周老虎”是应该上升到刑事案件的高度去侦破。-----------这究竟是组团忽悠，还是集体诈骗！！朗朗乾坤，昭昭日月。以一个莫须有的老虎将国家千万资金打水漂，这究竟是什么居心？让一个农民冒着“被老虎吃掉的”危险境遇舍身冒险，这又是什么罪行？一件小小拍虎案公共安全专家机关介入这么久竟然音信全无，这又算不算是行政不作为？go-vern-ment的公信，公共安全专家的威信何在？&nbsp; </P>
<P style="TEXT-INDENT: 2em">关于真相，在中国也个简单易行的通用公式：真相=（权力A减去权力B）再乘以公众关注系数，权力A、B指当事双方社会背景、人际关系的总和。 </P>
<P style="TEXT-INDENT: 2em">可以说公众关系度基本是个附加系数，取决于权力A和B的角力之后的结果。换句话说A&gt;B时，真相可能被放大。<B时，真相将被湮没。同样，根据这一公式根据这一公式，我们可以反推出我们目前的社会状况---------我们正处在半人治半法制社会，这个社会的特征就是制订者的自由心证和执行者们的一知半解。彭宇案就是很好的例子。 P ><>
</P><P style="TEXT-INDENT: 2em">综上分析：整个事件中A是陕西林业局+镇坪县，B是广大网友+媒体，目前的趋势是B势力暂时&gt;A势力，所以事态在向不利于A的方向发展。但这场角力之所以旷日持久是因为还有不确定因素。那就是沉默的第三方-----go-vern-ment高层。而它们的立场将决定整个事件的最终走向。但高层现在为止迟迟不肯表态，所以原本很简单的华南虎事件就始终呈现无厘头的着状态。面对假冒伪劣，B只有着急、跳脚的份。因为A是在你一个触碰不到的真空存在着。唐吉诃德大战风车，看似悲壮，其实结果如何不问可知。 </P>
<P style="TEXT-INDENT: 2em">不过关于真相，还有一个终极定律。那就是林肯先生所说的：你可以在某些时间欺骗所有人，也可以永远欺骗某些人，但你永远不可能在所有的时间欺骗所有的人。 　　 </P>
<P style="TEXT-INDENT: 2em">当“嫦娥1号”发回的卫星照片传回地面被置疑真假的时候，当亿元中奖彩票被打上猫腻的问号的时候，当有一天，外国人谈起中国人而联想到华南虎的时候，当人们面对所有不确定事件第一反应即使这会不会又是一只华南虎的时候，华南虎事件其实已经蝴蝶效应化了。有理由为默默奉献在航天事业上的精英们掬一把同情泪，他们也是华南虎事件的直接受害者。当公信不存，诚信不立，流言四起时，痛定之余，我们需要反思。这一切的始作俑者难道仅仅是一只纸老虎吗？ </P>
<P style="TEXT-INDENT: 2em">当蓝藻、垃圾场、温室效应、世界加工厂离我们越来越近的时候，当平民教育、平民医疗、平民住房成了梦想离老百姓越来越远的时候；当穷者恒穷，富者愈富；当房产投机，任风吹浪打而巍然不动，当平民百姓虽天地之辽阔，而无寸土以立足的时候，我们有理由质疑GDP这只纸老虎能不能代表公民的幸福感。 </P>
<P style="TEXT-INDENT: 2em">亚马孙河流域雨林中的蝴蝶，能否引发德克萨斯州的飓风尚不得而知。但不要以为这曾经发生的一切会在沉默和对峙中掩盖成一个历史。这其实是个连锁反应，就象一个滚下雪山的雪球，不到它轰然砸到面前，你永远不知道它会变得多么巨大。</P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200711592425459</comments>
    <slash:comments>0</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200711592425459</guid>
    <pubDate>Wed, 5 Dec 2007 21:24:25 +0800</pubDate>
    <dcterms:modified>2007-12-05T21:24:25+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[大学高昂学费，馅饼 or 陷阱？]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/1159555200710291352104</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em">11月24日下午，著名经济学家、北京大学光华管理学院院长张维迎做客郑州参加“2007光大高端经济论坛”活动，其间发表演讲，称大学提高学费对穷学生有利。张维迎称：“中国目前为什么穷人上不起大学？是因为收费太低。一个真正好的体制，我可以收费高，但我花80％在奖学金上，穷人就上得起大学了。”并举例：“北大本科生一年的成本是20000元，一年的学费4000元，剩下的16000元都是政府在补贴，这是穷人在补贴富人。为什么不让富人多出些钱呢？比如说，学费就可以收20000元，贫困家庭的孩子就给他全额奖学金，这就是富人补贴穷人了。”（据11月27日《郑州晚报》报道） </P>
<P style="TEXT-INDENT: 2em">说的轻巧，简直比唱的还要好听！</P>
<P style="TEXT-INDENT: 2em">固然没人敢断言富人的孩子就比穷人的孩子聪明，但是恐怕同样也没人能拍板穷人的孩子就一定比富人的孩子聪明！顾名思义，奖学金，在于奖掖先进；成绩面前，理应人人平等。就是考进大学之后，谁能保证穷人的子女就一定比富人的子女优秀呢？奖学金就一定会为穷人子女所得呢？富人的子女优秀的话，可不可以拿？如果不可以，又凭什么？岂非太不公平？</P>
<P style="TEXT-INDENT: 2em">囿于城乡差别、地区发展不平衡等诸多因素，基础教育资源的分布悬差，本就致使一些农村学生、贫困地区学生，所受教育客观“先天不足”，和城市学生、富人子女相比落后在了起跑线上！而张维迎的“大学提高学费对穷学生有利”论，在开具空头支票，画饼予人充饥的背后，其实质和可能后果，于穷人而言，难道不是又在叠高经济门槛，愈加梗阻穷人子女向上流动的渠道，助推社会断裂吗？而于富人而言，也不过是在继续盘剥，深入盘剥，向上盘剥罢了！</P>
<P style="TEXT-INDENT: 2em">如此之“明修栈道，暗度陈仓”，不就整个一活脱脱“狐狸分饼”故事的新版吗？</P>
<P style="TEXT-INDENT: 2em">如果是私立性质的大学，收费就是再高，只要合乎市场规律，倒也罢了；可是须知：我国的高校，绝大多数为公立，收费也是一高再高，不能再高，其公益性又体现在了哪里了呢？所提供的教育服务，又算哪门子准公共产品呢？无论是穷人，还是富人——纳税人的税款，都纳到哪儿去了呢？</P>
<P style="TEXT-INDENT: 2em">曾有资料显示，中国的大学收费，以实际购买力论，早比世界最高的日本还要高3倍；曾有报道表明，一个西部农村家庭35年的纯收入，才能够培养一个大学生……人所共知，教育收费，早成压在老百姓头上的“新三座大山”之一！就是教育部在上半年，虽没践言公布大学生培养成本，但也做出了“5年内大学学费不涨”的承诺；可是在我们的著名经济学家、北大光华管理学院院长张维迎看来，居然还不够高！</P>
<P style="TEXT-INDENT: 2em">所以能够如此，不就全在凭借对高等教育资源的行政性垄断吗？我们的著名经济学家、北大光华管理学院院长张维迎，只会替教育垄断当吹鼓手，这又是何作为呢？</P>
<P style="TEXT-INDENT: 2em"></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/1159555200710291352104</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/1159555200710291352104</guid>
    <pubDate>Thu, 29 Nov 2007 13:35:02 +0800</pubDate>
    <dcterms:modified>2007-11-29T13:35:02+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[“杀人算法”实现！]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520071016211681</link>
    <description><![CDATA[<div><P style="TEXT-INDENT: 2em"><FONT size=2>最近鬼屋杀人游戏一波接一波（路人甲：应该是“轮”吧 疯癫：我就喜欢“波”~~~），而疯癫大人闲暇时突然有个想法……假设30个人中有5个是鬼，假设5个鬼在游戏进行时不会互相投票，那么能否统计每一轮的投票情况来推断出所有可能的“鬼”的组合，并且对每个人是鬼的可能性设定，然后做权降序排列出来？</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>当我问我自己这个问题的时候，最先想到是数据挖掘，不过因为我想要用EXECL做成一个工具，所以决定用VBA写宏来实现。</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>我想了很久，其实这个模型的关键其实是实现“在m个元素中任意n个的组合”，由于VBA这“鸟枪”不支持指针，不支持递归调用这些“大炮”级的操作，要想实现就只能是取多少个元素就循环多少层，但是n又是变量，代码该怎么写让我一度陷入困境。</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>后来我想将n的范围锁定在 2&lt;= n &lt;=5 这样一个范围内，于是判断n的值来设置某层循环的有效性，使得问题迎刃而解。</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>找出所有的组合之后，只需要判断当前这个组合是否有过互相投票的“互杀”现象就可以了（这个单独写了一个函数，因为我把投票情况使用二维矩阵保存了，所以实现起来很简单），如果没有，那么加权然后输出。</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>最后的降序排列是用EXECL自带的方法实现。</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2>思路理清后，我就开始试着写出来，最近一周MM都觉得我很老实，谁也不理，就是因为我在埋头苦干阿~~~现在终于功夫不负有心啊，把代碼拿出來晾一晾先：</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT size=2><STRONG>（因为代码中之前是一些计票，数据检查等分析，太长了就没有发上来，只把“杀人算法”的实现部分发上来了)</STRONG></FONT></P><FONT size=2>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>蓝色的部分</FONT>是全局变量，<FONT color=#ff0000>红色的</FONT>是算法实现部分。&nbsp;</P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>'******************************** 定義共通變量 ********************************</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intmembercnt As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '參加遊戲的人數</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim strmembername(30) As String&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '參加遊戲的人名（數組，最大30人）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim strvotename(30, 15) As String&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '被遊戲者投票的人名（二維數組，最大30人，15輪）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intdubiety(30) As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '參加遊戲的人的威脅性設定</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim Datasheet As Worksheet&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '數據來源的SHEET</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim Newsheet As Worksheet&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '分析結果輸出的新SHEET</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intstartrow As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '數據部分的開始行</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intstepcnt As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當前要分析的輪數</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intstepcol As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當前要分析的輪數所對應的投票列</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intghostcnt As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '所有鬼的人數</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff>Dim intoutputrow As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '新sheet中的輸出位置</FONT>
</P><P style="TEXT-INDENT: 2em"></P>
<P style="TEXT-INDENT: 2em"><FONT color=#0000ff></FONT></P><FONT color=#ff0000>Function catchghost() As Integer</FONT>
<P></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'******************************************************************************</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'説明： 根據所有輪的投票情況，以“鬼不互殺”為原則推斷所有可能的組合</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 然後按照“威脅性”降序排列輸出。</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; * （“殺人算法”的實現！！） *</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'參數： 無</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'返回： 0- 正常， 1- 異常</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'******************************************************************************</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 變量定義 開始 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim inti1, inti2, inti3, inti4, inti5 As Integer&nbsp;&nbsp;&nbsp; '五層循環子</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim stroutput As String&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出的信息</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim intindex(30) As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '可能是鬼的參賽者的index數組</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim intghostmemcnt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '可能是鬼的人數</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim intdubietysum As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '可能是鬼的組合的中成員威脅性總和</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim outputstartrow As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出的鬼組合的開始行（排序時用）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim outputendrow As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出的鬼組合的結束行（排序時用）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim i As Integer</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim strtemp As String</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 變量定義 結束 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 邏輯處理 開始 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 鬼的人數限制 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>If intghostcnt &gt; 5 Or intghostcnt &lt; 2 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; MsgBox "對不起，本算法只支持鬼的人數在 2 到 5 之間！"</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Datasheet.Cells(2, 7).Select</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; catchghost = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 排除“威脅性”為0的人之後，生成可能是鬼的參賽者的index數組，並取得人數 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>intghostmemcnt = 0</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>For i = 1 To intmembercnt</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; If intdubiety(i) &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; '當“威脅性”不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intghostmemcnt = intghostmemcnt + 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '可能是鬼的人數自加</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(intghostmemcnt) = i&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '取得可能是鬼的人的index</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 輸出分析結果開始行 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>intoutputrow = intoutputrow + 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '空一行</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Newsheet.Rows(intoutputrow &amp; ":" &amp; intoutputrow).Select</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>With Selection.Interior</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; .ColorIndex = 36</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; .Pattern = xlSolid</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End With</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Newsheet.Cells(intoutputrow, 1) = "根據目前的投票情況，推斷出以下可能是鬼的組合（按威脅性排序）"</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>intoutputrow = intoutputrow + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 輸出分析結果的題頭行 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Newsheet.Rows(intoutputrow &amp; ":" &amp; intoutputrow).Select</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>With Selection.Interior</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; .ColorIndex = 36</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; .Pattern = xlSolid</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End With</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Newsheet.Cells(intoutputrow, 1) = "威脅性"</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Newsheet.Cells(intoutputrow, 2) = "鬼的可能組合"</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>intoutputrow = intoutputrow + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>outputstartrow = intoutputrow&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '設定開始行（排序時用）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 按最大鬼數5層循環找出所有可能的組合 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>intdubietysum = 0</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'第一層循環，比如當30個數中選5個時，從 1 循環到 26（30 - 5 + 1）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>For inti1 = 1 To intghostmemcnt - intghostcnt + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; '第二層循環，比如當30個數中選5個時，從 2 循環到 27（30 - 5 + 2）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; For inti2 = inti1 + 1 To intghostmemcnt - intghostcnt + 2</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intghostcnt &gt; 2 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當有超過2個鬼時，第三層循環</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '第三層循環，比如當30個數中選5個時，從 3 循環到 28（30 - 5 + 3）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For inti3 = inti2 + 1 To intghostmemcnt - intghostcnt + 3</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intghostcnt &gt; 3 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當有超過3個鬼時，第四層循環</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '第四層循環，比如當30個數中選5個時，從 4 循環到 29（30 - 5 + 4）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For inti4 = inti3 + 1 To intghostmemcnt - intghostcnt + 4</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intghostcnt &gt; 4 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當有5個鬼時，第伍層循環</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '第伍層循環，比如當30個數中選5個時，從 5 循環到 30（30 - 5 + 5）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For inti5 = inti4 + 1 To intghostmemcnt - intghostcnt + 5</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '**** 在當前循環中的當前組合判斷鬼的情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If kill(intindex(inti1), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti2), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intindex(inti3), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti4), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti5)) = 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當前組合中成員沒有互相投票，可能是鬼的組合！</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '計算威脅性的總和</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intdubietysum = intdubiety(intindex(inti1)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti2)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti3)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intdubiety(intindex(inti4)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti5))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出當前的鬼組合</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 1) = intdubietysum</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Newsheet.Cells(intoutputrow, 2) = strmembername(intindex(inti1)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti2)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti3)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti4)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti5))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intoutputrow = intoutputrow + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '**** 在當前循環中的當前組合判斷鬼的情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If kill(intindex(inti1), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti2), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti3), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti4), 0) = 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當前組合中成員沒有互相投票，可能是鬼的組合！</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '計算威脅性的總和</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubietysum = intdubiety(intindex(inti1)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti2)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti3)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti4))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出當前的鬼組合</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 1) = intdubietysum</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 2) = strmembername(intindex(inti1)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strmembername(intindex(inti2)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti3)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti4))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intoutputrow = intoutputrow + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '**** 在當前循環中的當前組合判斷鬼的情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If kill(intindex(inti1), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti2), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti3), 0, 0) = 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當前組合中成員沒有互相投票，可能是鬼的組合！</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '計算威脅性的總和</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubietysum = intdubiety(intindex(inti1)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti2)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti3))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出當前的鬼組合</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 1) = intdubietysum</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 2) = strmembername(intindex(inti1)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti2)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti3))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intoutputrow = intoutputrow + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '**** 在當前循環中的當前組合判斷鬼的情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If kill(intindex(inti1), _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intindex(inti2), 0, 0, 0) = 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當前組合中成員沒有互相投票，可能是鬼的組合！</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '計算威脅性的總和</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intdubietysum = intdubiety(intindex(inti1)) + _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intdubiety(intindex(inti2))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '輸出當前的鬼組合</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 1) = intdubietysum</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Newsheet.Cells(intoutputrow, 2) = strmembername(intindex(inti1)) &amp; "，" &amp; _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strmembername(intindex(inti2))</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intoutputrow = intoutputrow + 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 按照威脅性排序 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>outputendrow = intoutputrow - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'設定結束行（排序時用）</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Newsheet.Range(outputstartrow &amp; ":" &amp; outputendrow).Select</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>strtemp = "A" &amp; outputstartrow</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Newsheet.Range(strtemp), Order1:=xlDescending, Header:=xlGuess _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SortMethod:=xlPinYin, DataOption1:=xlSortNormal</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 返回 0 （正常） ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>catchghost = 0</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 邏輯處理 結束 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Function kill(ByVal inti1 As Integer, ByVal inti2 As Integer, _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ByVal inti3 As Integer, ByVal inti4 As Integer, _</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ByVal inti5 As Integer) As Integer</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'******************************************************************************</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'説明： 根據輸入的成員index以及投票結果矩陣，判斷這些人是否互相投票</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'參數： 伍個成員index，如果是0則不做處理</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'返回： 0- 互相沒有投票， 1- 互相有投票</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'******************************************************************************</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 變量定義 開始 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>Dim i As Integer</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 變量定義 結束 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 邏輯處理 開始 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 遍力第一個人的投票情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>If inti1 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; For i = 1 To intstepcnt</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第二個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti2 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第二個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti1, i) = strmembername(inti2) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第三個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti3 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第三個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti1, i) = strmembername(inti3) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第四個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti4 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第四個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If strvotename(inti1, i) = strmembername(inti4) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第伍個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti5 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第伍個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If strvotename(inti1, i) = strmembername(inti5) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 遍力第二個人的投票情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>If inti2 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; For i = 1 To intstepcnt</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第一個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti1 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第二個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti2, i) = strmembername(inti1) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第三個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti3 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第三個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti2, i) = strmembername(inti3) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第四個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti4 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第四個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti2, i) = strmembername(inti4) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第伍個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti5 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第伍個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti2, i) = strmembername(inti5) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 遍力第三個人的投票情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>If inti3 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; For i = 1 To intstepcnt</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第一個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti1 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第二個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti3, i) = strmembername(inti1) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第二個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti2 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第三個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti3, i) = strmembername(inti2) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第四個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti4 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第四個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti3, i) = strmembername(inti4) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第伍個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti5 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第伍個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti3, i) = strmembername(inti5) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 遍力第四個人的投票情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>If inti4 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; For i = 1 To intstepcnt</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第一個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti1 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第二個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti4, i) = strmembername(inti1) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第二個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti2 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第三個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti4, i) = strmembername(inti2) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第三個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti3 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第四個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti4, i) = strmembername(inti3) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第伍個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti5 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第伍個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti4, i) = strmembername(inti5) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>' **** 遍力第伍個人的投票情況 ****</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>If inti5 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; For i = 1 To intstepcnt</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第一個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti1 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第二個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti5, i) = strmembername(inti1) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第二個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti2 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第三個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti5, i) = strmembername(inti2) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第三個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti3 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第四個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti5, i) = strmembername(inti3) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '當同一組合第四個成員index不為0時</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If inti4 &lt;&gt; 0 Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '同一組合第伍個成員被投票過，設定為互殺，退出</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strvotename(inti5, i) = strmembername(inti4) Then</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kill = 1</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;&nbsp;&nbsp; Next</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End If</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>&nbsp;</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'上面的尋找都沒有發現互殺</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>kill = 0</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>'= 邏輯處理 結束 ==============================================================</FONT></P>
<P style="TEXT-INDENT: 2em"><FONT color=#ff0000>End Function</FONT></P></FONT></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520071016211681</comments>
    <slash:comments>6</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520071016211681</guid>
    <pubDate>Fri, 16 Nov 2007 14:11:06 +0800</pubDate>
    <dcterms:modified>2007-11-16T17:18:04+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[面对日本人的疑问谁应该脸红(Z)]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520071089501673</link>
    <description><![CDATA[<div><P style="MARGIN: 0px 3px 15px; TEXT-INDENT: 30px" align=left><FONT face="MS UI Gothic" size=2>2006年春天，日本人水谷准来到安徽阜阳颍泉区杨庄小学，考察是否进行国际援助。他看到的是破败的学校和豪华的政府办公楼。今年6月水谷准发表了这份调查报告，引起了舆论的广泛关注。据调查，2001年，杨庄小学开始申请国际援助，颍泉区开始建豪华办公楼。（11月6日《南方都市报》）</FONT></P>
<P style="MARGIN: 0px 3px 15px; TEXT-INDENT: 30px"><FONT face="MS UI Gothic" size=2>今年6月22日，日本《产经新闻》报道称，讨论这项申请而去走访颍泉区政府的日方人士发现，当地的政府大楼极为豪华，堪比巴黎凡尔赛宫，从豪华程度来看，建设资金足以翻建数百所小学。 因而提出是否需要援助的疑问。面对日本人的疑问，谁应该感到脸红？笔者以为，住在豪华办公楼里办公的那些政府官员们最应该感到脸红！</FONT></P>
<P style="MARGIN: 0px 3px 15px; TEXT-INDENT: 30px"><FONT face="MS UI Gothic" size=2>不管颖泉区政府豪华办公楼是怎么盖起来的，但“政府有钱建造豪华办公楼，但没有钱改建破败的学校”的事实却明明白白的摆在那里。人家以正常人的思维思考问题：假如政府办公楼建得简单一点，不要这么豪华阔气，那么就可以省下一大笔资金（事实上当初建办公楼的“简朴”方案可以节资600万元）。日本人的援助也就8万多美元，折合成人民币在当时恰差不多600万元。假如当初采用简朴节省的方案，起码杨庄小学是不用向国际申请援助了。可是，颖泉区建造豪华办公楼和杨庄小学申请国际援助却戏剧性的同时开始，真是绝妙的讽刺。</FONT></P>
<P style="MARGIN: 0px 3px 15px; TEXT-INDENT: 30px"><FONT face="MS UI Gothic" size=2>“政府有钱建造豪华办公楼，但没有钱改建破败的学校”，这种诡异离奇的现象，日本人水谷准当然百思不得其解。因为在他来中国考察的那会，一个地方最简陋的往往是校舍，工作条件最差的往往是学校，在之前甚至有地方几个月发不出教师的工资——在世界上属于少见的怪事，但是在咱们中国却早已见怪不怪了。日本人水谷准同样不能理解，一个地方政府的办公楼要那么豪华干什么？在欧美国家，政府的办公场所往往非常简陋，有的甚至是租用的。而教书育人的学校却无不宽敞，整洁，漂亮——中国恰恰本末倒置多时，也早已是见怪不怪的怪事了。</FONT></P>
<P style="MARGIN: 0px 3px 15px; TEXT-INDENT: 30px"><FONT face="MS UI Gothic" size=2>德国教育家凯兴斯泰纳（1854-1932）认为，从十八世纪末开始，国家已经视教育为公共事业。公立学校是为国家利益服务的工具，实现国家与个体的完善，培养良好的公民。可见，教育对一个国家是一种政府义务，是一种公共事业。尤其是中小学的基础教育，政府更是责无旁贷。可是联合国有关机构的一份统计资料表明，一个国家正常用于教育的投资应占国民生产总值的6%左右 ，而2004年，中国教育的财政投入占GDP的比重只有2．79%。而在发达国家这个比例却是9%。</FONT></P>
<P style="MARGIN: 0px 3px 15px; TEXT-INDENT: 30px"><FONT face="MS UI Gothic" size=2>面对弘大的教育目的和如此低的教育投入，政府本应该感到难堪和不安。而像颖泉区这样，对岌岌可危的学校教室坐视不管，却将本已捉襟见肘的财力用于建造豪华办公楼，应该算得上不负责任甚至麻木不仁了！这还不够，他们竟然还能做到“拉下脸来”向国际社会伸手，真可称得上厚脸皮！如今，这“厚脸”丢到了国外，不知当地这些官老爷们可感到脸红和害臊？</FONT></P></div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520071089501673</comments>
    <slash:comments>1</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520071089501673</guid>
    <pubDate>Thu, 8 Nov 2007 09:50:16 +0800</pubDate>
    <dcterms:modified>2007-11-08T09:50:16+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[疯癫快讯]]></title>	
    <link>http://farainkowk.blog.163.com/blog/static/115955520071060597721</link>
    <description><![CDATA[<div>据路边社消息，国际动物保护组织近日于海牙国际法庭起诉周正龙，追讨华南虎饲养费一万元人民币整。据《动物权益法》规定：以任何动物谋利者，其收入一半归动物所有。诉状已寄发周。动物保护组织受委律师表示：有条件接受和解，以市价4元一只鸡计算，周正龙须放2500只鸡进山喂虎。以后任何相关收入，都要折半买鸡。猪亦可。<BR><BR>　　又讯一：野生动物研究院某院士近日证实：某天才遗传学博士混合考拉熊和老虎基因，成功克隆新种老虎。放养陕南某地测试生存能力。每天下午1到5时间，考拉虎长考(注：非下围棋的长考，是考拉式发呆)。此乃世界首例转基因虎。技术含量很高。<BR><BR>　　又讯二：某大腕儿导演开拍贺岁片《满陕尽是华南虎》，镇坪筹建拍摄基地。<BR><BR>　　又讯三：某动物园老虎笼子外立了“禁止摄影”的告示牌。决不给试图证明什么的不良分子可乘之机。一经发现，立即驱除出园，决不退票。<BR><BR>　　又讯四：某著名摄影网站组织研习考察团，即日赴陕晋见周正龙取经。泡菜踊跃报名。<BR><BR>　　又讯五：鉴于近来点击率下降，芙蓉JJ很生气，哭着喊着要换摄影师。经纪人已经联络周正龙，合约细节洽谈中。</div>]]></description>
	    <author><![CDATA[疯癫]]></author>
	    <comments>http://farainkowk.blog.163.com/blog/static/115955520071060597721</comments>
    <slash:comments>2</slash:comments>
    <guid isPermaLink="true">http://farainkowk.blog.163.com/blog/static/115955520071060597721</guid>
    <pubDate>Tue, 6 Nov 2007 12:59:07 +0800</pubDate>
    <dcterms:modified>2007-11-06T12:59:07+08:00</dcterms:modified>
  </item>    
  <item>
  	<title><![CDATA[我的密友]]></title>	
    <link></link>
    <description><![CDATA[<div>
			<a href="http://jukyrid.blog.163.com/" target="_blank"><img src="http://ava.blog.163.com/photo/zUZbe6X0frqz9hbEOrHtZA==/5702964503134734916.jpg" border="0" />jukyrid</a>
			<a href="http://blog.163.com/afra_2368/" target="_blank"><img src="http://ava.blog.163.com/photo/fr3jqdxJMltcV92Lbf0rXA==/576742227280353162.jpg" border="0" />糖糖</a>
</div>]]></description>
    <guid isPermaLink="false">http://farainkowk.blog.163.com/friends</guid>
    <pubDate>Tue, 1 Jan 2008 00:00:00 +0800</pubDate>
    <dcterms:modified>2008-01-01T00:00:00+08:00</dcterms:modified>
  </item>    
 </channel>
</rss>