Excel函数:求随机数x、y、z...和的平均数等于33.5的函数,要求x、y、z范围是29

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/13 09:14:06

Excel函数:求随机数x、y、z...和的平均数等于33.5的函数,要求x、y、z范围是29

答案个数很多,下面我给出vba代码,你可以运行下,不过要你自己稍微修改下,不改的话要等他输完60000多个直到放不下才会停止下来,你的题目说的有点不明白.
Sub ss()
s = 1
For x = 29 To 35
For y = 29 To 35
For z = 29 To 35
For i = 0 To 21
For j = 0 To 21
For p = 0 To 21
Do While i * x + j * y + p * z = 600
Cells(s,1).Value = i & Chr(10) & x & Chr(10) & j & Chr(10) & y & Chr(10) & p & Chr(10) & z
s = s + 1
Loop
Next
Next
Next
Next
Next
Next
End Sub