详细问题描述及疑问:期待您的答案,滴水之恩,来日我当涌泉相报 !
Dimarr1(1To2036,1To1四江和)Dimkk%Sub求和接近9的组合()'递归算法,求和为9±0.5的组合Dimarr,i%kk=0E还秋备此rasearr1'(2.9,0.6,0.3,0.8,0.7,3,2.2,2.6,2.7,1.3,3,2.8)'因为你要求:每个组合耐且证犯片岩令状内的数不能重复,'所以,将上述数据中重复的3只保留1个,赋予变量arrarr=Arra拉你各画帮任特通常水y(2.9,0.6,0.3,0.8,0.7,3,2.2,2.6,2.7,1点在细提听你调劳粉里.3,2.8)zu过集左早最有互木hearr,0,"",0Range("a:a").ClearContentsRange("A1").Resize(2036)=arr1EndSubSubzuhe(促越速端arr,x,sr,y)Ify>=8.5Andy<=9.5Thenkk=kk+1arr1(kk,1)=Left(sr,Len(sr)-1)&"="&yExitSubEndIfIfx<11Thenzuhearr,x+1,sr&Format(arr(x),"0.0")&"+",y+arr(x)zuhearr,x+1,sr,yEndIfEn左推传dSub