[VB.NET]讨论一下海盗分金问题的vb.net解决方法

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
讨论一下海盗分金问题的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 , 0 , 1 , 2 , 0
不符合楼上的答案阿
__________________________________________________________________________