好吧问答库 > 一组数字随机分组?代码

一组数字随机分组?代码

05 28 26 02 15 31 06 25 01 4837 41 34 11 14 49 39 23 46 3544 16 07 24 27 33 47 10 42 3819 36 09 08 29 30 17 13 32 0403 12 18 20 21 22 40 43 45

2026年09月24日 12:39

有1个网友回答

网友（1）：

Dim arr(48) As Integer

Sub 五组()
Dim s As String, R As Integer, T As Integer, j As Integer

j = 0
For i = 48 To 0 Step -1
R = Int(Rnd * (i + 1))
T = arr(R)
arr(R) = arr(i)
arr(i) = T
s = s & Format(T, "00") & " "
j = (j + 1) Mod 10 '取余当第10个的时候余数0
If j = 0 Then s = s & vbCrLf
Next
MsgBox s
End Sub

Private Sub Command1_Click()
数组初始化
五组
End Sub

Sub 数组初始化()
Dim i As Integer
For i = 0 To 48
arr(i) = i + 1
Next
End Sub