
excel
sub eightsix()For i1 = 1 to 3For i2 = i1 + 1 to 4For i3 = i2 + 1 to 5For i4 = i3 + 1 to 6For i5 = i4 + 1 to 7For i6 = i5 + 1 to 8M = M + 1Range("A" & M) = I1:Range("B" & M) = I2:Range("C" & M) = I3:Range("D" & M) = I4:Range("E" & M) = I5:Range("F" & M) = I6NextNextNextNextNextNextend sub这个程序会输出一个包含所有符合要求的组合数的数组。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号