UC知道VB生成随机数字
来源：百度知道 编辑：UC知道 时间：2024/06/24 05:44:10
感谢鼠标上的节奏的回答,貌似我没有解释清楚,是要把这20个数字,全部生成每组为7个数字的组合,并且,每个组合要从小到大排序.关键是生成所有的组合,并且要从小到大排序.我提高悬赏,欢迎再给我想下吧.
相信这是你要的结果，随机数范围是1-20，可以设置，一组返回7个数字，也可以设置，最后给你加了个升序排序下去，可以的话就再高点分吧。(*^__^*)
Option Base 1 '定义数组下标从1开始
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim num_array As String
Dim str As String
For i = 1 To 5 '输出5组
num_array = Rand_Num(20, 7)
str = "第" & i & "组：" & num_array
Print str
Next
End Sub
Function Rand_Num(max As Integer, count As Integer) As String
'max为随机数的最大范围，count为生成一组的数字个数
Dim i As Integer, j As Integer, k As Integer, t As Integer, rand As Integer
ReDim Sum(max) As Integer
Dim str As String
Dim min As Integer
Randomize
If max < count Then max = count
For i = 1 To max '赋值到数组sum
Sum(i) = i
Next
For j = max To 2 Step -1 '打乱sum数组里的数字排序
rand = Int(Rnd * (j - 1)) + 1
t = Sum(j): Sum(j) = Sum(rand):