Question

怎么用VB做一个随机抽取器？

如题，██注意是VB██要有.frm文件██，求一个号码抽取器，是要设置抽取的号码，例如从1~50，设置一次能抽取出X个号码，██也能排除号码██。在第1个窗体中有一个按钮，按一次抽取X个数字，显示出来。

谢谢。
好的可以按情况加分！

Answer 1

只要在代码中使用随机函数即可实现随机抽取功能
一、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)//通过日期的微秒生成随机数

Answer 2

程序主体有两部分，第一部分用随机函数，例如Int(Rnd * 50) + 1代表1~50之间随机；

抽取随机数后传递到变量里面；
然后抽取第二个随机数，与变量比较，不一样则传递到第二个变量上，一样则重新抽取；
重复，直至X个变量全部赋值，然后输出。

追问

您有空能帮我做一个软件吗？
我不太擅长，不太明白VB

追答

要程序还是代码？

追问

最好是已经做好的程序，以frm结尾
谢谢帮助，我查看后会加分的

追答

追问

就是想要这样子的，谢谢。悬赏已经提高了一倍，请问有该软件以.frm .vbp .vbw的三个文件吗？有的话发一下，压缩文件。谢谢！

追答