[已解决]给出总分，能否到得一组符合一定要求的数，加起来为总分？

gavincar

给总分求小分.zip (2.14 KB, 下载次数: 29)

2012-6-30 22:12 上传

点击文件名下载附件

见图片，附件。

最佳答案

月排行榜 / 总排行榜

lordking

2012-6-30 22:33

1. Sub test()
   
2.     Dim i As Integer
   
3.     Dim arr, s, isum
   
4.     arr = Range("c2:e13")
   
5.     isum = Range("e14")
   
6.     Do While 1
   
7.         For i = 1 To 12
   
8.             arr(i, 3) = Int(Rnd() * (arr(i, 2) - arr(i, 1) + 1)) + arr(i, 1)
   
9.             s = s + arr(i, 3)
   
10.         Next
    
11.         If s = isum Then
    
12.             Exit Do
    
13.         Else
    
14.             s = 0
    
15.         End If
    
16.     Loop
    
17.     Range("e2:e13").ClearContents
    
18.     Range("e2:e13") = Application.Index(arr, , 3)
    
19. End Sub

复制代码

跳转到最佳答案楼层

tkgg93

E2

1. =RANDBETWEEN(C2,D2)

复制代码

如果没有这个函数，加载宏

windimi007

猜一下，不知道是不是这个意思？
用规划求解做的，“遵守约束”的内容也就是分值范围的内容，设置太慢了，动画就省了……

lordking

1. Sub test()
   
2.     Dim i As Integer
   
3.     Dim arr, s, isum
   
4.     arr = Range("c2:e13")
   
5.     isum = Range("e14")
   
6.     Do While 1
   
7.         For i = 1 To 12
   
8.             arr(i, 3) = Int(Rnd() * (arr(i, 2) - arr(i, 1) + 1)) + arr(i, 1)
   
9.             s = s + arr(i, 3)
   
10.         Next
    
11.         If s = isum Then
    
12.             Exit Do
    
13.         Else
    
14.             s = 0
    
15.         End If
    
16.     Loop
    
17.     Range("e2:e13").ClearContents
    
18.     Range("e2:e13") = Application.Index(arr, , 3)
    
19. End Sub

复制代码

Zipall

windimi007 发表于 2012-6-30 22:32
猜一下，不知道是不是这个意思？
用规划求解做的，“遵守约束”的内容也就是分值范围的内容，设置太慢了， ...

约束条件可以这样设置

windimi007

在猫哥的指导下，操作简化多了，可以上传完整的操作动画了！{:3512:}