[已解决]求一个生成矩阵的代码

sanfuhai

生成一个5*10的随机矩阵，详情请看附件： 求生成矩阵的代码.rar (1.77 KB, 下载次数: 15)

2017-5-4 16:47 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

france723

2017-5-4 21:26

sanfuhai 发表于 2017-5-4 19:04
如果每行中的数字不能重复（每行中不能有重复的数字），需要怎么改代码呢

1. Sub aaa()
   
2. Dim ar(1 To 10, 1 To 5), br(1 To 10), i&, j&, t
   
3. Dim b As Boolean, b1 As Boolean, n, m
   
4. For i = 1 To 5
   
5.     For j = 1 To 10
   
6.         br(j) = j - 1
   
7.     Next
   
8.     For j = 10 To 1 Step -1
   
9.         t = Int(Rnd * j + 1)
   
10.         ar(j, i) = br(t)
    
11.         br(t) = br(j)
    
12.     Next j
    
13.     If i > 1 Then
    
14.         b = False
    
15.         Do While b = False
    
16.             b1 = False
    
17.             For n = 1 To 10
    
18.                 For m = 1 To i - 1
    
19.                     If ar(n, i) = ar(n, m) Then
    
20.                         b1 = True
    
21.                         For j = 1 To 10
    
22.                             br(j) = j - 1
    
23.                         Next
    
24.                         For j = 10 To 1 Step -1
    
25.                             t = Int(Rnd * j + 1)
    
26.                             ar(j, i) = br(t)
    
27.                             br(t) = br(j)
    
28.                         Next j
    
29.                     End If
    
30.                 Next m
    
31.             Next n
    
32.              If b1 = False Then b = True
    
33.          Loop
    
34.     End If
    
35. Next i
    
36. [b2:f11] = ar
    
37. End Sub

复制代码

跳转到最佳答案楼层

france723

1. Sub aaa()
   
2. Dim ar(1 To 10, 1 To 5), br(1 To 10), i&, j&, t
   
3. For i = 1 To 5
   
4.     For j = 1 To 10
   
5.         br(j) = j - 1
   
6.     Next
   
7.     For j = 10 To 1 Step -1
   
8.         t = Int(Rnd * j + 1)
   
9.         ar(j, i) = br(t)
   
10.         br(t) = br(j)
    
11.     Next j
    
12. Next i
    
13. [b2:f11] = ar
    
14. End Sub
    

复制代码

sanfuhai

france723 发表于 2017-5-4 17:34

如果每行中的数字不能重复（每行中不能有重复的数字），需要怎么改代码呢

france723

sanfuhai 发表于 2017-5-4 19:04
如果每行中的数字不能重复（每行中不能有重复的数字），需要怎么改代码呢

1. Sub aaa()
   
2. Dim ar(1 To 10, 1 To 5), br(1 To 10), i&, j&, t
   
3. Dim b As Boolean, b1 As Boolean, n, m
   
4. For i = 1 To 5
   
5.     For j = 1 To 10
   
6.         br(j) = j - 1
   
7.     Next
   
8.     For j = 10 To 1 Step -1
   
9.         t = Int(Rnd * j + 1)
   
10.         ar(j, i) = br(t)
    
11.         br(t) = br(j)
    
12.     Next j
    
13.     If i > 1 Then
    
14.         b = False
    
15.         Do While b = False
    
16.             b1 = False
    
17.             For n = 1 To 10
    
18.                 For m = 1 To i - 1
    
19.                     If ar(n, i) = ar(n, m) Then
    
20.                         b1 = True
    
21.                         For j = 1 To 10
    
22.                             br(j) = j - 1
    
23.                         Next
    
24.                         For j = 10 To 1 Step -1
    
25.                             t = Int(Rnd * j + 1)
    
26.                             ar(j, i) = br(t)
    
27.                             br(t) = br(j)
    
28.                         Next j
    
29.                     End If
    
30.                 Next m
    
31.             Next n
    
32.              If b1 = False Then b = True
    
33.          Loop
    
34.     End If
    
35. Next i
    
36. [b2:f11] = ar
    
37. End Sub

复制代码

hhzjxss

不知道这个有嘛子用哦！

大灰狼1976

再送你一个简单点的。

1. Sub bbb()
   
2. Dim arr(1 To 10, 1 To 5), brr(0 To 9), i&, j&, n&
   
3. Randomize
   
4. For i = 1 To 10
   
5.   For j = 1 To 5
   
6.     Do
   
7.       n = Int(Rnd * 10)
   
8.       If brr(n) = "" Then
   
9.         brr(n) = n
   
10.         arr(i, j) = n
    
11.         Exit Do
    
12.       End If
    
13.     Loop
    
14.   Next j
    
15.   ReDim brr(0 To 9)
    
16. Next i
    
17. [b2].Resize(10, 5) = arr
    
18. End Sub

复制代码

大灰狼1976

有错误，重发。

1. Sub bbb()
   
2. Dim arr(1 To 10, 1 To 5), brr, i&, j&, n&
   
3. t = Timer
   
4. Randomize
   
5. For i = 1 To 10
   
6.   ReDim brr(0 To 9)
   
7.   For j = 1 To 5
   
8.     Do
   
9.       n = Int(Rnd * 10)
   
10.       If brr(n) = "" Then
    
11.         brr(n) = n
    
12.         arr(i, j) = n
    
13.         Exit Do
    
14.       End If
    
15.     Loop
    
16.   Next j
    
17. Next i
    
18. [b2].Resize(10, 5) = arr
    
19. MsgBox Timer - t
    
20. End Sub

复制代码

大灰狼1976

稍微改改参数可以调整输出区域大小。

1. Sub bbb()
   
2. Dim arr(1 To 100, 1 To 50), brr, i&, j&, n&
   
3. Randomize
   
4. For i = 1 To 100
   
5.   ReDim brr(0 To 99)
   
6.   For j = 1 To 50
   
7.     Do
   
8.       n = Int(Rnd * 100)
   
9.       If brr(n) = "" Then
   
10.         brr(n) = n
    
11.         arr(i, j) = n
    
12.         Exit Do
    
13.       End If
    
14.     Loop
    
15.   Next j
    
16. Next i
    
17. [b2].Resize(100, 50) = arr
    
18. End Sub

复制代码

france723

大灰狼1976 发表于 2017-5-5 14:34
有错误，重发。

师父, 他要求的是每列写0-9一组, 写5组, 所以是10行5列, 然后还要求每行不能有重复(这5组每行不能有重复).我也是看了好几遍才明白他要求

大灰狼1976

そうかー！勘違いました。