求助一个小程序

excel

要求：
给出一个数A，要求计算出350个数据，数据差值不要太大，可以有小数。这350个数的平均值就是A。
谁有办法解决，谢谢。

excel

要求有变。先不要写了。谢谢。

jerry

这个要求不够具体。完全可以在这个数两边成对的给就可以了。

excel

自己弄了一个，好像达到要求了。
自己都头晕了。

blackwhite

产生随机数就可以了，期望值是A。

excel

已解决。

妮可宝贝

:loveliness:

1. Private Sub Command1_Click()
   
2. On Error Resume Next
   
3. 
   
4. If Text2 = "" Or Text3 = "" Or Text4 = "" Then Exit Sub
   
5. 
   
6. Dim ss%, cz%, pjs%, a()
   
7. 
   
8. ss = Val(Text4)
   
9. cz = Val(Text3)
   
10. pjs = Val(Text2)
    
11. 
    
12. 
    
13. Text1 = ""
    
14. 
    
15. Dim i%, j!
    
16. 
    
17. ReDim a(1 To ss)
    
18. 
    
19. Randomize
    
20. For i = 1 To ss
    
21. a(i) = Round((Rnd * cz + (pjs - cz / 2)), 3)
    
22. j = j + a(i)
    
23. Next
    
24. 
    
25. Dim m!
    
26. 
    
27. m = Round((pjs * ss - j) / ss, 3)
    
28. 
    
29. For i = 1 To ss
    
30. a(i) = Round(a(i) + m, 3)
    
31. Next
    
32. 
    
33. m = 0
    
34. 
    
35. For i = 1 To ss - 1
    
36. m = m + Val(a(i))
    
37. Next
    
38. 
    
39. a(ss) = Format(pjs * ss - m, "00.000")
    
40. 
    
41. Text1 = Join(a, vbCrLf)
    
42. End Sub
    
43. 
    
44. Private Sub Command2_Click()
    
45. Clipboard.Clear
    
46. Clipboard.SetText Text1
    
47. End Sub
    
48. 
    
49. Private Sub Form_Load()
    
50. Me.Caption = "数字生成"
    
51. Text1 = ""
    
52. Text2 = ""
    
53. Text3 = ""
    
54. Text4 = ""
    
55. Command1.Caption = "生 成"
    
56. Command2.Caption = "复 制"
    
57. End Sub

复制代码

excel

呵呵。你发布上来啦？

ahjf

专业造假的程序：）

wlwfly1

还是编程高手厉害呀，像我等只有看的份了。