运用VB实现随机抽指定数量的牌并求和

运用VB实现随机抽指定数量的牌并求和

只要在代码中使用随机函数即可实现随机抽取功能
一、vb随机数生成的方法
　　vb随机数生成函数是 Rnd[(number)]，number 参数为可选项。在调用 Rnd 生成随机数之前，先使用 Randomize 初始化随机数生成器来产生种子，该生成器是根据系统计时器来产生种子的。
　　1、生成100以内的随机数
　　Randomize
　　Int(Rnd() * 100)//生成 0 - 99 之间的随机数
　　Int(Rnd() * 101)//生成 0 - 100 之间的随机数

　 　2、生成指定范围随机数
　　由于 vb 没有提供直接生成指定范围随机数的函数，所以要把 Rnd 变通一下，方法如下：
　　Int((上限 - 下限 + 1) * Rnd + 下限);
　　把它封装成可直接调用的函数如下：
　　Function GetRandom(under, over As Integer) As Integer
　　　　If under < over Then
　　　　　　temp = under;
　　　　　　under = over;
　　　　　　over = temp;
　　　　End If
　　　　Randomize
　　　　GetRandom = Int((under - over + 1) * Rnd + over);
　　End Function
　　调用方法：
　　GetRandom(10, 100);//生成10到100的随机数

　　二、vb.net生成随机数的方法
　　1、方法：Random.Next(int minValue, int maxValue);
　　2、说明：
　　若 minValue 和 maxValue 都没有提供，则生成一个 0 - 2147483647 之间的随机数；
　　若 minValue 和 maxValue 只提供一个，则生成一个 0 - maxValue 之间的随机数；
　　若 minValue 和 maxValue 两个都提供，则生成一个 minValue - maxValue 之间的随机数；

　　3、举例
　　Dim ran = New System.Random()
　　ran.Next()//生成 0 - 2147483647 之间的随机数
　　ran.Next(100)//生成 0 - 100 之间的随机数
　　ran.Next(10, 100)//生成 10 - 100 之间的随机数
　　Dim ran = New Random(DateTime.Now.Millisecond)//通过日期的微秒生成随机数