sub hh()
dim arr(1 to 50,1 to 1)
dim ave as single
ave=val(application.inputbox("请输入平均数"))
for i=1 to 100000
for n=1 to 50
arr(n,1)=rnd*10
next n
if application.worksheetfunction.average(arr)=ave then
goto 100
end if
erase arr
next i
100:[a1:a50]=arr
end sub
试下这个代码,