[已解决]数的分解？

yijundanny

如何能用一段代码实现将一个总数分解成若干个随机生成的数？

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-6 17:13

1. Sub Macro1()
   
2. Dim arr(1 To 50, 1 To 1), i%, n%
   
3. Range("f3:j100").ClearContents
   
4. For i = 1 To 5
   
5. line1:
   
6.     s = 0: n = 0: x = 100
   
7.     Do While s < x
   
8.         y = Application.Round(Rnd * 6 + 2, 2)
   
9.         s = s + y
   
10.         n = n + 1
    
11.         arr(n, 1) = y
    
12.         If s >= 92 Then Exit Do
    
13.     Loop
    
14.     If x - s < 2 Then GoTo line1
    
15.     arr(n + 1, 1) = x - s
    
16.     Cells(3, i + 5).Resize(n + 1) = arr
    
17.     Erase arr
    
18. Next
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr(1 To 50, 1 To 1), i%, n%
   
3. Range("f3:j100").ClearContents
   
4. For i = 1 To 5
   
5. line1:
   
6.     s = 0: n = 0: x = 100
   
7.     Do While s < x
   
8.         y = Application.Round(Rnd * 6 + 2, 2)
   
9.         s = s + y
   
10.         n = n + 1
    
11.         arr(n, 1) = y
    
12.         If s >= 92 Then Exit Do
    
13.     Loop
    
14.     If x - s < 2 Then GoTo line1
    
15.     arr(n + 1, 1) = x - s
    
16.     Cells(3, i + 5).Resize(n + 1) = arr
    
17.     Erase arr
    
18. Next
    
19. End Sub
    

复制代码

dsmch

………………