vb.net 发牌程序 1

发布时间：2020-12-16 22:35:55 所属栏目：大数据来源：网络整理

导读：这两天想了个发牌的程序。 3个人的扑克牌，54张牌含大小王，每个人18张；如果4个人，则52张牌不含大小王，每个人13张牌。程序的关键是随机牌面，而且不能发已经发了的牌：我这里采用的方法是：从队列牌中随机抽取一张牌，然后从队列中删除这张牌，继续从

这两天想了个发牌的程序。

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 教程目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!