vb36个数字随机选7个

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:59:59
用vb编写从1到36个数字中随机选7个，选出的数组中不能选出重复的数字，
并生成5组，选出来的每一组的数不能和其它组的数相同，高手写下代码！＋10哦

此方法很笨，但我水平有限，就这样了。代码如下：
Option Explicit
Dim x(1 To 7), j As Integer
Private Sub Command1_Click()
again:
For j = 1 To 7
x(j) = Int(Rnd * 36)
Next j
If x(1) = x(2) Or x(1) = x(3) Or x(1) = x(4) _
Or x(1) = x(5) Or x(1) = x(6) Or x(1) = x(7) _
Or x(2) = x(3) Or x(2) = x(4) Or x(2) = x(5) _
Or x(2) = x(6) Or x(2) = x(7) Or x(3) = x(4) _
Or x(3) = x(5) Or x(3) = x(6) Or x(3) = x(7) _
Or x(4) = x(5) Or x(4) = x(6) Or x(4) = x(7) _
Or x(5) = x(6) Or x(5) = x(7) Or x(6) = x(7) Then
GoTo again
Else
For j = 1 To 7
Print x(j);
Next j
Print
End If
End Sub

点击一次Command1控件，便生成一组。