右起竖排数字排列问题

micch

1. Sub Main2()
   
2.     Dim r, c, rs
   
3.     Dim ar, i, j, k, n, m, u
   
4.    
   
5.     Randomize
   
6.     r = Int(Rnd() * 28) + 2
   
7.     c = Int(Rnd() * 28) + 2
   
8.     rs = Int(Rnd() * 28900) + 100
   
9.    
   
10.     ReDim ar(1 To (rs + r) * c, 1 To 1)
    
11.    
    
12.     For i = 1 To rs Step r
    
13.         k = k + r * c - r
    
14.         For j = 1 To r
    
15.             n = k + j
    
16.             For m = 1 To c
    
17.                 u = u + 1
    
18.                 ar(u, 1) = n
    
19.                 n = n - r
    
20.             Next
    
21.         Next
    
22.     Next
    
23. 
    
24.     Range("A:A").Clear
    
25.     Range("a1").Resize(u).Value = ar
    
26.     MsgBox r & -c & -rs
    
27. End Sub
    

复制代码

yyyeng

谢谢，没描述清楚，改了重新提交再请教大师。

micch

1. Sub Main2()
   
2.     Dim r, c, rs
   
3.     Dim ar, i, j, k, n, m, u
   
4.    
   
5.     Randomize
   
6.     r = Int(Rnd() * 28) + 2
   
7.     c = Int(Rnd() * 28) + 2
   
8.     rs = Int(Rnd() * 28900) + 100
   
9.    
   
10.     ReDim ar(1 To (rs + r) * c, 1 To 1)
    
11.    
    
12.     For i = 1 To rs Step r
    
13.         k = k + r * c - r
    
14.         For j = 1 To r
    
15.             n = k + j
    
16.             For m = 1 To c
    
17.                 u = u + 1
    
18.                 ar(u, 1) = n
    
19.                 n = n - r
    
20.             Next
    
21.         Next
    
22.     Next
    
23. 
    
24.     Range("A:A").Clear
    
25.     Range("a1").Resize(u).Value = ar
    
26.     MsgBox r & -c & -rs
    
27. End Sub
    

复制代码

yyyeng

抱歉，问题描述不清，重新编辑上传，谢谢各位大师！

yyyeng

抱歉，问题描述不清，重新编辑上传，谢谢各位大师！

grf1973

莫名其妙。还是没描述清楚。那个行数、列数有何意义？总行数就是生成的数字个数吗？生成数字有何规则？

x-xx-xx

数组变形镜像           

yyyeng

grf1973 发表于 2024-1-15 16:12
莫名其妙。还是没描述清楚。那个行数、列数有何意义？总行数就是生成的数字个数吗？生成数字有何规则？

主要是为打印书法帖子排版，有几百的、有几千单个字的字帖，根据字形大小，需右起竖排为相应的行数和列数。

yjh_27

yyyeng 发表于 2024-1-15 22:06
主要是为打印书法帖子排版，有几百的、有几千单个字的字帖，根据字形大小，需右起竖排为相应的行数和列数 ...

参见附件。