这两天想了个发牌的程序。
3个人的扑克牌，54张牌含大小王，每个人18张；如果4个人，则52张牌不含大小王，每个人13张牌。
程序的关键是随机牌面，而且不能发已经发了的牌：
我这里采用的方法是：
……
直至最后一张牌。
For i As Integer = 纸牌总数 To 0 Step -1
抽出的牌的序号 = randSeed.Next(i + 1)
抽出的卡牌队列.add（剩余所有牌（抽出的牌的序号））
剩余所有牌.RemoveAt(抽出的牌的序号)
Next
简易的程序界面：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看vb.net 教程 目录