[已解决]求助各位高手帮忙

weifengcz

要求随机生成十行十列数字，每列随机生成也行，要求每行每列都是1~9十个数字,不要用0。谢谢老师！ 生成随机123456789位数.zip (10.77 KB, 下载次数: 3)

2016-4-12 13:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-12 14:30

1. Sub GetDiff()
   
2.     Dim arr(1 To 10, 1 To 10)
   
3.     Dim s%, st$, i%, j%
   
4.     For i = 1 To 10
   
5.        For j = 1 To 10
   
6.          For k = 1 To 9
   
7.             x = x & Int(Rnd * 9 + 1)
   
8.         Next
   
9.         arr(i, j) = x
   
10.         x = ""
    
11.        Next
    
12.     Next
    
13.     Range("a1:j10") = arr
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub GetDiff()
   
2.     Dim arr(1 To 10, 1 To 10)
   
3.     Dim s%, st$, i%, j%
   
4.     For i = 1 To 10
   
5.        For j = 1 To 10
   
6.          For k = 1 To 9
   
7.             x = x & Int(Rnd * 9 + 1)
   
8.         Next
   
9.         arr(i, j) = x
   
10.         x = ""
    
11.        Next
    
12.     Next
    
13.     Range("a1:j10") = arr
    
14. End Sub
    

复制代码

grf1973

或者这样。

1. Sub GetDiff()
   
2.     Dim arr(1 To 10, 1 To 10)
   
3.     Dim x$, up&, low&
   
4.     Dim i%, j%
   
5.     up = 999999999: low = 111111111
   
6.     For i = 1 To 10
   
7.        For j = 1 To 10
   
8.         x = CStr(Int(Rnd * (up - low + 1) + low))
   
9.         x = Replace(x, "0", Int(Rnd * 9 + 1))
   
10.         arr(i, j) = x
    
11.        Next
    
12.     Next
    
13.     Range("a1:j10") = arr
    
14. End Sub
    

复制代码

weifengcz

grf1973 发表于 2016-4-12 14:36
或者这样。

这样，感谢你！