vb.net 发牌程序 1

xiaoxiao2021-02-28  6

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。 这两天想了个发牌的程序。

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

 

转载请注明原文地址: https://www.6miu.com/read-1150190.html

最新回复(0)