讨论一下海盗分金问题的vb.net解决方法 dim x as int16 dim y as int16 问题是 有x个海盗抢了y个金币，他们要瓜分这些赃物，分发如下 1 抽签决定各人的号码 2 由1号提出分配方案，然后其余人表决，当且仅当超过半数同意方案被通过，否则他将被扔入大海喂鲨鱼； 3 1号死后，由2号提方案，其他人表决，当且仅当超过半数同意时案通过，否则2号同样被扔入大海； 4 依次类推...... 假定 每个海盗都是很聪明的人，都能很理智的判断得失，从而做出选择 ，那么 第一个海盗提出怎样的分配方案才能够使自己的收益最大化？ 附属问题，如果分配人数过多的话有多少人势必会被杀掉 请完全用vb.net的方法解决问题，不要调用其他语言 __________________________________________________________________________ 这个问题的答案很有规律： 简单的说就是这么写： Dim x As Int16 盗贼数量 Dim y As Int16 宝石数量 最明智的第一个盗贼会这样分 If x Mod 2 = 0 Then 人数为偶数 MsgBox( 除第一个盗贼之外，凡是序号为偶数的人，都可以获得一颗宝石，第一个盗贼可以获得其余的宝石 ) Else MsgBox( 除第一个盗贼之外，凡是序号为奇数的人，都可以获得一颗宝石，第一个盗贼可以获得其余的宝石 ) End If __________________________________________________________________________ 这样解不行吧 因为当海盗为5,金币为100的时候正确答案是 97,1,2,0 不符合楼上的答案阿 __________________________________________________________________________