VB编个号码随机抽选器！

来源：百度知道 编辑：UC知道 时间：2024/07/02 17:55:12
我要做一个号码随机抽选器！和双色球随机抽号差不多,众所周知，双色球是随机输出一组双色球号码，先从1到33数字的33个红色球任选6个，再从数字为1到16的16个蓝色球任选1个组成一组开奖号码。

--------------------------------------------------------------------

我的要求是:1:先分别在A和B输入一些数字(在代码里输入也可以)2:然后点击按钮从刚刚A和B输入的那些数字里随机抽出号码!A抽5个号码!B抽2个号码!3:把这7个号码显示出来!4:再按多一次按钮再出现一组新的随机号码,旧一组号码继续显示保留.5如果可以的话,最好另加多一个按钮,点击这个按钮可以一次出现5组随机号码.
例如:我输入A:1,3,5,7,9,11,13,15,17,19,21
B:2,4,6,8,10,12,14
显示(1)(5)(13)(17)(19)|(4)(10)
等待高手帮..............
ZHRX没看清楚我的要求? chjt19860111的不错,还有更好的吗?
zhzsucyg的也不错!有一个问题就是得出来的效果就是!两组数会连在一齐!很难分.....
我的意思是!按两组数字出来时,两组数字会连在一起,而chjt19860111的是按第二组时会在下一行里显示的!
如果可以的话!最好帮我加多段代码,把显示出来的数字从小到大显示出来!麻烦你了..注意是:A和B从小到大显示出来

在窗体上加上3个textbox,一个按钮，把第三个textbox的Multiline的属性设置为true
在按钮下添加如下代码：
听说在代码里用goto 语句不好，但是我也是初学者，只会这样用了
试了下，勉强能实现功能，楼主就凑合着用看看吧
在text里输入数据时用逗号隔开 最后个数字后不要逗号
如果要一次出现5组的话，就再加个按钮，然后在代码的外面加上一个循环
for tt=1 to 5
next tt
就好了

Dim A, B
Dim i As Integer, j As Integer, ii As Integer, jj As Integer
Dim x As Integer, y As Integer
Dim stra(5), strb(2)

If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "请输入数据，用，号隔开"
End If
A = Split(Text1.Text, ",")
B = Split(Text2.Text, ",")

For i = 0 To 5 '选择前5个数
x = A(Int(Rnd * UBound(A)))
stra(i) = x
If i > 0 Then
For ii = 0 To i - 1
If stra(i) = stra(ii) Then
i = i - 1
GoTo aa
End If
Next ii
If ii = i Then
Text3.Text = Text3.Text & x & ","<