爱因斯坦出的智商测试题（爱因斯坦出的智商测试题）

爱因斯坦出的一道高难度智力测试题

第一个房子, 黄房子, 挪威人, 喝水, 养猫, 抽DUNHILL烟

第二个房子, 蓝房子, 丹麦人, 喝茶, 养马, 抽Blends烟

第三个房子, 红房子, 英国人, 喝牛奶, 养鸟, 抽PALLMALL烟

第四个房子, 绿房子, 德国人, 喝咖啡, 养鱼, 抽PRINCE烟

第五个房子, 白房子, 瑞典人, 喝啤酒, 养狗, 抽BLUEMASTER烟.

爱因斯坦出的智商测试题（爱因斯坦出的智商测试题）

这个答案是正确的

绿色房子在白房子左边，且绿房子的主人喝咖啡，那么绿色房子的位置就可以确定是第四个房子。排除一下就可以了，1235房子都不可能(理由相当简单，相信大家都想得到，不罗嗦了)。可以确定的位置如下。

第一个房子 挪威人

第二个房子, 蓝房子

第三个房子 喝牛奶

第四个房子, 绿房子 喝咖啡

第五个房子, 白房子

再由英国人住红房子，可以确定英国人住第三个房子，黄房子是第一个，黄房子主人抽Dunhill香烟，结果如下

第一个房子 黄房子 挪威人 抽Dunhill香烟

第二个房子, 蓝房子 养马

第三个房子 红房子 英国人 喝牛奶

第四个房子, 绿房子 喝咖啡

第五个房子, 白房子

接下来是关键，由条件3.丹麦人喝茶,那么丹麦人只能住2或5，条件12.抽BLUE MASTER香烟的人喝啤酒，啤酒可能出现在房子2或5。假设喝茶的丹麦人住5号房子，那么5的饮料是茶，2的饮料是啤酒烟是Blue Master，1的饮料是水，由条件15.抽Blends香烟的人有一个喝水的邻居，那么2的香烟又是BLENDS，显然矛盾，所以，丹麦人只能住第二个房子，5的饮料才是啤酒，1的饮料是水

第一个房子 黄房子 挪威人 喝水 抽Dunhill香烟

第二个房子, 蓝房子 丹麦人 喝茶 养马 抽BLENDS香烟

第三个房子 红房子 英国人 喝牛奶

第四个房子, 绿房子 喝咖啡

第五个房子, 白房子 喝啤酒 抽BLUE MASTER香烟

接下来就简单了，条件13.德国人抽Prince香烟，那么德国人只能住4号房子，条件2.瑞典人住5号房子，养狗。条件6，抽Pail Mall香烟的是3号房子的英国人，养鸟。再由条件10 得出一号房子养猫。最后答案出来了，德国人养鱼。^_^

爱因斯坦死前遗留下的一道IQ测试题

答案不是唯一的，事实上，德国人、挪威人，丹麦人都可以作为答案。

首选确定第一栋房子（也就是最左边那栋）的颜色，由提示，红、白、蓝三种颜色的房子不能位于最左边（因为红房子主人是英国人1，绿房子在白房子左边4，挪威人在第一间房子9，挪威人住在蓝房子旁边14），也就是说，第一间房子颜色有黄、绿两种选择。

这里先指出提示所隐含的条件：由提示12 抽 BLUE MASTER 烟的人喝啤酒和13 德国人抽 PRINCE 烟，知德国人不喝啤酒，由提示10 抽混合烟的人住在养猫人的旁边和15 抽混合烟的人的邻居喝矿泉水，知抽混合烟的人邻居中必有一位喝矿泉水，有一位养猫的。

若第一间房子是黄颜色，那么结合提示4，五间房子共有三种排列方式：黄蓝绿白红、黄蓝绿红白、黄蓝红绿白。又由提示5绿房子主人喝咖啡和提示8 住在中间那间房子的人喝牛奶，所以绿颜色房子不能位于中间，进而符合初步条件的只有黄蓝红绿白一种情形，接下来对此进行分析。

可以直接确定的有，挪威人住在黄房子抽DUNHILL烟，英国人住在红房子喝的是牛奶，丹麦人喝茶，德国人抽PRINCE烟，瑞典人养狗，绿房子的主人喝咖啡，同时因为德国人不喝酒，所以只能喝咖啡或者是水，若德国人喝水，则黄房子的主人挪威人只能喝酒抽BLUE MASTER 烟，但这与提示7黄房子主人抽 DUNHILL 烟冲突，因此断定德国人喝的是咖啡，瑞典人抽BLUE MASTER 烟喝啤酒，挪威人喝矿泉水，丹麦人喝茶，英国人喝牛奶。再由提示11养马的人住抽Dunhill 香烟的人隔壁和15 抽混合烟的人的邻居喝矿泉水，丹麦人抽的是混合烟养的是马，又抽BLUE MASTER 和PRINCE的主人已定，所以英国人抽的是PAL香烟，养的是鸟（提示6），又瑞典人养狗（提示2），因而养鱼的只有德国人。排列为：

黄 蓝 红 绿 白-------房屋颜色

挪 丹 英 德 瑞------------国籍

水 茶 奶 咖 酒------------饮料

DUN 混 PAL PRI BLUE------香烟

猫 马 鸟 鱼 狗-----------宠物

接下来是分析比较复杂的第一间房子颜色为绿色的情形。此时有六种排列方式：绿蓝红黄白、绿蓝红白黄、绿蓝黄红白、绿蓝黄白红、绿蓝白黄红、绿蓝白红黄。

对于绿蓝红黄白这种排列情形，结合提示可知绿房子主人挪威人喝的是咖啡，红房子主人英国人喝的是牛奶，又德国人不喝酒丹麦人喝茶，所以抽PRINCE烟的德国人喝的是矿泉水，抽BLUE MASTER烟的瑞典人喝啤酒，结合提示7 黄房子主人抽 DUNHILL 烟、11 养马人住在 DUNHILL 烟的人旁边、15 抽混合烟的人的邻居喝矿泉水可以推出抽DUNHILL的黄房子主人是喝茶的丹麦人，蓝房子主人为德国人，白房子主人为瑞典人，抽混合烟的红房子主人英国人养马（若英国人抽PAL MALL则其养的是鸟，而抽DUNHILL的丹麦人右边邻居养的是狗，与提示11 养马人住在 DUNHILL 烟的人旁边不符），但此时依然无法断定德国人、丹麦人谁养鱼谁养猫，经检验，两种情形均符合提示10 抽混合烟的人住在养猫人的旁边和提示15 抽混合烟的人的邻居喝矿泉水。

所以，排列方式为（两种），德国人、丹麦人均可以养鱼：

绿 蓝 红 黄 白-------房屋颜色

挪 德 英 丹 瑞-------国籍

咖 水 奶 茶 酒------饮料

PAL PRI 混 DUN BLUE--香烟

鸟 鱼（or猫）马 猫 （or鱼） 狗-------宠物

同样可以推出颜色为绿蓝白黄红时，排列也有两种方式，德国人、丹麦人均可以养鱼：

绿 蓝 白 黄 红-------房屋颜色

挪 德 瑞 丹 英-------------国籍

咖 水 奶 茶 酒-------------饮料

PAL PRI 混 DUN BLUE---------香烟

鸟 鱼（or猫）马 猫 （or鱼） 狗-------------宠物

但是，对于绿蓝红白黄、绿蓝白红黄、绿蓝黄白红三种排列方式均会与提示10 抽混合烟的人住在养猫人的旁边、15 抽混合烟的人的邻居喝矿泉水等相冲突。

最后是绿蓝黄红白这种排列情形，绿房子主人挪威人喝的是咖啡，住在中间的黄房子主人喝牛奶抽的是DUNHILL，英国人住在红房子里，又丹麦人喝茶，德国人不喝啤酒，所以抽PRINCE的德国人喝的是矿泉水（若德国人喝牛奶，则其住的是黄房子，抽DUNHILL烟与提示13 德国人抽 PRINCE 烟不符），进而断定英国人抽BLUE MALL喝的是啤酒，瑞典人喝牛奶住在中间的黄房子里，再结合提示11 养马人住在 DUNHILL 烟的人旁边、15 抽混合烟的人的邻居喝矿泉水，推出德国人住在蓝房子里，瑞典人住在白房子里（若是喝矿泉水的德国人住在最右边的白房子里，则其唯一的邻居英国人抽的是BLUE MALL，与提示15不符），再由提示6 抽 PALL MALL 烟的人养了一只鸟、10 抽混合烟的人住在养猫人的旁边，可以最终断定德国人养的是猫，瑞典人养狗，英国人养马，丹麦人养鸟，养鱼的就是挪威人。排列方式为：

绿 蓝 黄 红 白-------房屋颜色

挪 德 瑞 英 丹-------------国籍

咖 水 奶 酒 茶-------------饮料

混 RPI DUN BLUE PAL---------香烟

鱼 猫 狗 马 鸟-------------宠物

爱因斯坦曾做过的智力测试

据说（只是据说）爱因斯坦在20世纪初出了个智力测试题。据说他声称世界上有98％的人答不出来。现在请大家看看自己是不是属于那“2%”?

题目如下：

1、在一条街上,有5座房子,喷了5种颜色。2、每个房子里住着不同国家的人。

3、每个人喝不同的饮料,抽不同牌子的香烟,养不同的宠物。

请你根据下面的提示说出：哪个国家的人养鱼？

提示：

1、英国人住红色房子。

2、瑞典人养狗。

3、丹麦人喝茶。

4、绿色房子在白色房子左面。

5、绿色房子主人喝咖啡。

6、抽Pall Mall 香烟的人养鸟。

7、黄色房子主人抽Dunhill 香烟。

8、住在中间房子的人喝牛奶。

9、 挪威人住第一间房。

10、抽Blends香烟的人住在养猫的人隔壁。

11、养马的人住抽Dunhill 香烟的人隔壁。

12、抽Blue Master的人喝啤酒。

13、德国人抽Prince香烟。

14、挪威人住蓝色房子隔壁。

15、抽Blends香烟的人有一个喝水的邻居。

原题答案为德国，此题无详解的N个理由,估计翻译不准确，此题出自冯.诺依曼之手，原题的想法大概是到下面的第3步。应是不论挪威人住左右，都是德国人养鱼。请斑竹给出英文原题，停止争论：

1。结果只能解出养猫狗马鸟以外的人，而这个人不一定养鱼（假设此人养鱼，请继续往下看。）

2。“抽Blends香烟的人有一个喝水的邻居”，邻居是指隔壁吗？（假设是，且剩下的人养鱼，解为下表的1至5种可能，如不是，解更多.......，假设还想深究，请继续往下看。）

3。“绿色房子在白色房子左面”，不一定是隔壁！（如是，且邻居是指隔壁，且剩下的人养鱼，答案为下表的1和2这种可能，均为德国人。这是普通的想法，但不准确！！要得出具体详解图，请继续往下看。）

4。挪威人住的第一间，没给定左右。虽然左右都可以成立，但只停留在2选一的非现实可能的层面上。（假设已知挪威人住左或右，且“绿色房子在白色房子左面”是隔壁，且邻居是指隔壁，且剩下的人养鱼的话，答案为：如右为1，如左为2。符合德国人的答案，，属推理，请继续往下看。）

5。应使用推算法。（此题不能只用数学方程式得详解。因为有25个未知数，但只有15个限制方程，方程个数少于未知数。）

6。也许我考虑的也不全。（也许我考虑的也不全，就给出答案，因为我也是那百分之九十八的一员。 ）

参考答案具体情况如下（香烟Bl为Blends，香烟BM为Blue Master）：

不论挪威人住左或右，且“绿色房子在白色房子左面”是隔壁，且邻居是指隔壁，且剩下的人养鱼的话，答案为：德国人，但无法给出，详图。（冯.诺依曼）

挪威人住右边第一间：(且“绿色房子在白色房子左面”是隔壁，且邻居是指隔壁，且剩下的人养鱼的话，答案为：)

1

国家 德 瑞 英 丹 挪

颜色 绿 白 红 蓝 黄

宠物 鱼 狗 鸟 马 猫

饮料 咖 啤 奶 茶 水

香烟 Pr BM PM Bl Du

挪威人住左边第一间：(且“绿色房子在白色房子左面”是隔壁，且邻居是指隔壁，且剩下的人养鱼的话，答案为：)

2

国家 挪 丹 英 德 瑞

颜色 黄 蓝 红 绿 白

宠物 猫 马 鸟 鱼 狗

饮料 水 茶 奶 咖 啤

香烟 Du Bl PM Pr BM

挪威人住左边第一间（“绿色房子在白色房子左面”“左面”不等于“相临,但邻居是指隔壁，且剩下的人养鱼的话，答案为：) ）： 2 3 4 5

3

国家 挪 德 英 丹 瑞

颜色 绿 蓝 红 黄 白

宠物 鸟 鱼 马 猫 狗

饮料 咖 水 奶 茶 啤

香烟 PM Pr Bl Du BM

4

国家 挪 德 英 丹 瑞

颜色 绿 蓝 红 黄 白

宠物 鸟 猫 马 鱼 狗

饮料 咖 水 奶 茶 啤

香烟 PM Pr Bl Du BM

5

国家 挪 德 瑞 英 丹

颜色 绿 蓝 黄 红 白

宠物 鱼 猫 狗 马 鸟

饮料 咖 水 奶 啤 茶

香烟 Bl Pr Du BM PM

“抽Blends香烟的人有一个喝水的邻居”，邻居如不是隔壁，解更多：......

估计翻译不准确，冯.诺依曼出题的想法大概是到第4步。（应是不论挪威人住左右，都是德国人。） 不一样的题啊。我尽力了

爱因斯坦的智力题

使用Asp程序来解答

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

%

Dim Color

Num = Array(1,2,3,4,5)

Country = Array("英国人","瑞典人","丹麦人","德国人","挪威人")

Drink = Array("茶","咖啡","牛奶","啤酒","水")

Smking = Array("PALL MALL","DUNHILL","BLUE MASTER","PRINCE","混合")

Pet = Array("狗","鸟","猫","马","鱼")

House = Array("红房子","绿房子","黄房子","蓝房子","白房子")

%

1. 有5栋5种颜色的房子

2. 每一位房子的主人国籍都不同

3. 这5个人每人只喝一个牌子的饮料, 只抽一个牌子的香烟, 只养一种宠物

4. 没有人有相同的宠物, 抽相同牌子的香烟, 喝相同的饮料

已知: br

% info = split("1. 英国人住在红房子里|2. 瑞典人养了一条狗|3. 丹麦人喝茶|4. 绿房子在白房子左边|5. 绿房子主人喝咖啡|6. 抽PALL MALL烟的人养了一只鸟|7. 黄房子主人抽DUNHILL烟 |8. 住在中间那间房子的人喝牛奶 |9. 挪威人住在num=1房子 |10. 抽混合烟的人住在养猫人的旁边| 11. 养马人住在DUNHILL烟的人旁边| 12. 抽BLUE MASTER烟的人喝啤酒 |13. 德国人抽PRINCE烟 |14. 挪威人住在蓝房子旁边 |15. 抽混合烟的人的邻居喝矿泉水","|")

Response.Write(join(info,"br"))

rt = true

xx = 0

Dim Arr(81)

Dim ArrInfo(6,81)

function Getstr()

For i = 1 to 5

For j = 0 to 4

For k = 0 to 4

For l = 0 to 4

For m = 0 to 4

For n = 0 to 4

nm = i

cty=country(j)

Drk=Drink(k)

smk = Smking(l)

hr = house(m)

pt=pet(n)

Call check(nm,cty,drk,smk,hr,pt)

Next

Next

Next

Next

Next

Next

End Function

Response.write "br"

getStr

%

%

Sub check(nm,cty,drk,smk,hr,pt)

Dim rt

rt=true

If cty="英国人" Then

If hr "红房子" Then

Exit Sub

End If

End If

If cty="瑞典人" Then

IF pt "狗" Then

Exit Sub

End if

End If

If pt = "狗" Then

IF cty"瑞典人" Then

Exit Sub

End if

End If

If cty="丹麦人" Then

IF drk "茶" Then

Exit Sub

End if

End If

If drk = "茶" Then

IF cty"丹麦人" Then

Exit Sub

End if

End If

If hr="绿房子" Then

IF drk "咖啡" Then

Exit Sub

End if

End If

If drk = "咖啡" Then

IF hr"绿房子" Then

Exit Sub

End if

End If

If pt = "鸟" Then

IF smk"PALL MALL" Then

Exit Sub

End if

End If

If smk="PALL MALL" Then

IF pt "鸟" Then

Exit Sub

End if

End If

If smk = "DUNHILL" Then

IF hr"黄房子" Then

Exit Sub

End if

End If

If hr="黄房子" Then

IF smk "DUNHILL" Then

Exit Sub

End if

End If

If drk = "牛奶" Then

IF nm3 Then

Exit Sub

End if

End If

If nm=3 Then

IF drk "牛奶" Then

Exit Sub

End if

End If

If cty="挪威人" Then

IF nm 1 Then

Exit Sub

End if

End If

If nm = 1 Then

IF cty "挪威人" Then

Exit Sub

End if

End If

If SMK="BLUE MASTER" Then

IF drk "啤酒" Then

Exit Sub

End if

End If

If drk = "啤酒" Then

IF SMK"BLUE MASTER" Then

Exit Sub

End if

End If

If cty="德国人" Then

IF smk "PRINCE" Then

Exit Sub

End if

End If

If smk = "PRINCE" Then

IF cty"德国人" Then

Exit Sub

End if

End If

If NM = 2 Then

IF hr "蓝房子" Then

Exit Sub

End if

End If

If hr="蓝房子" Then

IF NM 2 Then

Exit Sub

End if

End If

If SMk = "混合" And pt="猫" Then

Exit Sub

End If

If SMk = "混合" And Drk="水" Then

Exit Sub

End If

If pt="马" And SMk = "DUNHILL" Then

Exit Sub

End If

ArrInfo(0,xx) = nm

ArrInfo(1,xx) = cty

ArrInfo(2,xx) = Drk

ArrInfo(3,xx) = Smk

ArrInfo(4,xx) = hr

ArrInfo(5,xx) = pt

ArrInfo(6,xx) = xx

xx = xx + 1

End Sub

Dim n1,n2,n3,n4,n5

n1=0

n2=0

n3=0

n4=0

n5=0

For i = 0 to ubound(arrInfo,2)

For j=0 to 6

'Response.write(arrInfo(j,i)".")

Next

Select Case arrInfo(0,i)

Case 1

n1 = n1 + 1

Case 2

n2 = n2 + 1

Case 3

n3= n3 + 1

Case 4

n4 = n4 + 1

Case 5

n5 = n5 + 1

End Select

'Response.Write("br/")

Next

Dim arrInfo1(),arrInfo2(),arrInfo3(),arrInfo4(),arrInfo5()

Redim arrInfo1(6,n1-1)

Redim arrInfo2(6,n2-1)

Redim arrInfo3(6,n3-1)

Redim arrInfo4(6,n4-1)

Redim arrInfo5(6,n5-1)

x1=0

x2=0

x3=0

x4=0

x5=0

For i = 0 to ubound(arrInfo,2)

Select Case arrInfo(0,i)

Case 1

For j=0 to 6

arrInfo1(j,x1) =arrInfo(j,i)

Next

x1 = x1 + 1

Case 2

For j=0 to 6

arrInfo2(j,x2) =arrInfo(j,i)

Next

x2 = x2 + 1

Case 3

For j=0 to 6

arrInfo3(j,x3) =arrInfo(j,i)

Next

x3 = x3 + 1

Case 4

For j=0 to 6

arrInfo4(j,x4) =arrInfo(j,i)

Next

x4 = x4 + 1

Case 5

For j=0 to 6

arrInfo5(j,x5) =arrInfo(j,i)

Next

x5 = x5 + 1

End Select

Next

For i = 0 to ubound(arrInfo1,2)

For j = 0 to ubound(arrInfo2,2)

For k = 0 to ubound(arrInfo3,2)

For l = 0 to ubound(arrInfo4,2)

For m = 0 to ubound(arrInfo5,2)

If chkR(i,j,k,l,m) = True Then

Response.Write("br/==============================================================br")

Response.Write(arrInfo1(0,i)"."arrInfo1(1,i)"."arrInfo1(2,i)"."arrInfo1(3,i)_

"."arrInfo1(4,i)"."arrInfo1(5,i)"."arrInfo1(6,i)"br")

Response.Write(arrInfo2(0,j)"."arrInfo2(1,j)"."arrInfo2(2,j)"."arrInfo2(3,j)_

"."arrInfo2(4,j)"."arrInfo2(5,j)"."arrInfo2(6,j)"br")

Response.Write(arrInfo3(0,k)"."arrInfo3(1,k)"."arrInfo3(2,k)"."arrInfo3(3,k)_

"."arrInfo3(4,k)"."arrInfo3(5,k)"."arrInfo3(6,k)"br")

Response.Write(arrInfo4(0,l)"."arrInfo4(1,l)"."arrInfo4(2,l)"."arrInfo4(3,l)_

"."arrInfo4(4,l)"."arrInfo4(5,l)"."arrInfo4(6,l)"br")

Response.Write(arrInfo5(0,m)"."arrInfo5(1,m)"."arrInfo5(2,m)"."arrInfo5(3,m)_

"."arrInfo5(4,m)"."arrInfo5(5,m)"."arrInfo5(6,m)"br")

Response.Write("br/================================================================br")

Response.Flush()

End If

Next

Next

Next

Next

Next

Function ChkR(i,j,k,l,m)

for n=0 to 6

if arrInfo2(n,j) = arrInfo1(n,i) Or arrInfo3(n,k) = arrInfo1(n,i) Or arrInfo4(n,l) = arrInfo1(n,i) Or arrInfo5(n,m) = arrInfo1(n,i) Then

chkR = False

Exit Function

End If

if arrInfo1(n,i)=arrInfo2(n,j) Or arrInfo3(n,k) = arrInfo2(n,j) Or arrInfo4(n,l) = arrInfo2(n,j) Or arrInfo5(n,m) = arrInfo2(n,j) Then

chkR = False

Exit Function

End If

if arrInfo2(n,j) = arrInfo3(n,k) Or arrInfo1(n,i) = arrInfo3(n,k) Or arrInfo4(n,l) = arrInfo3(n,k) Or arrInfo5(n,m) = arrInfo3(n,k) Then

chkR = False

Exit Function

End If

if arrInfo2(n,j) = arrInfo4(n,l) Or arrInfo3(n,k) = arrInfo4(n,l) Or arrInfo1(n,i) = arrInfo4(n,l) Or arrInfo5(n,m) = arrInfo4(n,l) Then

chkR = False

Exit Function

End If

if arrInfo2(n,j) = arrInfo5(n,m) Or arrInfo3(n,k) = arrInfo5(n,m) Or arrInfo4(n,l) = arrInfo5(n,m) Or arrInfo1(n,i) = arrInfo5(n,m) Then

chkR = False

Exit Function

End If

next

'抽混合烟的人住在养猫人的旁边

If arrInfo1(3,i)="混合" Then

If arrInfo2(5,j) "猫" Or arrInfo2(2,j) "水" Then

chkR = False

Exit Function

End If

End If

If arrInfo2(3,j)="混合" Then

If arrInfo1(5,i) "猫" And arrInfo3(5,k) "猫" Then

chkR = False

Exit Function

End If

If arrInfo1(2,i) "水" And arrInfo3(2,k) "水" Then

chkR = False

Exit Function

End If

End If

If arrInfo3(3,k)="混合" Then

If arrInfo2(5,j) "猫" And arrInfo4(5,l) "猫" Then

chkR = False

Exit Function

End If

If arrInfo2(2,j) "水" And arrInfo4(2,l) "水" Then

chkR = False

Exit Function

End If

End If

If arrInfo4(3,l)="混合" Then

If arrInfo3(5,k) "猫" And arrInfo5(5,m) "猫" Then

chkR = False

Exit Function

End If

If arrInfo3(2,k) "水" And arrInfo5(2,m) "水" Then

chkR = False

Exit Function

End If

End If

If arrInfo5(3,m)="混合" Then

If arrInfo4(5,l) "猫" Then

chkR = False

Exit Function

End If

If arrInfo4(2,l) "水" Then

chkR = False

Exit Function

End If

End If

'养马人住在DUNHILL烟的人旁边

If arrInfo1(5,i)="马" Then

If arrInfo2(3,j) "DUNHILL" Then

chkR = False

Exit Function

End If

End If

If arrInfo2(5,j)="马" Then

If arrInfo1(3,i) "DUNHILL" And arrInfo3(3,k) "DUNHILL" Then

chkR = False

Exit Function

End If

End If

If arrInfo3(5,k)="马" Then

If arrInfo2(3,j) "DUNHILL" And arrInfo4(3,l) "DUNHILL" Then

chkR = False

Exit Function

End If

End If

If arrInfo4(5,l)="马" Then

If arrInfo3(3,k) "DUNHILL" And arrInfo5(3,m) "DUNHILL" Then

chkR = False

Exit Function

End If

End If

If arrInfo5(5,m)="马" Then

If arrInfo4(3,l) "DUNHILL" Then

chkR = False

Exit Function

End If

End If

'绿房子在白房子的左边

If arrInfo1(4,i)="绿房子" Then

If arrInfo2(4,j)"白房子" Then

chkR = False

Exit Function

End If

End If

If arrInfo2(4,j)="绿房子" Then

If arrInfo3(4,k)"白房子" Then

chkR = False

Exit Function

End If

End If

If arrInfo3(4,k)="绿房子" Then

If arrInfo4(4,l)"白房子" Then

chkR = False

Exit Function

End If

End If

If arrInfo4(4,l)="绿房子" Then

If arrInfo5(4,m)"白房子" Then

chkR = False

Exit Function

End If

End If

chkR = True

End function

%

==============================================================

1.挪威人.水.DUNHILL.黄房子.猫.11

2.丹麦人.茶.混合.蓝房子.马.15

3.英国人.牛奶.PALL MALL.红房子.鸟.20

4.德国人.咖啡.PRINCE.绿房子.鱼.50

5.瑞典人.啤酒.BLUE MASTER.白房子.狗.63

================================================================