您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 23:40:10
您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob
xU]O"W+\Ύ4m6jv{Mzu0S?1ʇ]Tv[S̜ڿFh5i҄px}sg;֕}e^e 3=\۲9\ˁE?͖~r־ Vk5,ذ~9B8j4vq_ -#YP0%YIlh%w Jh-,I}-D#2QFB$z$*M|cZ&HEqLZed>vLjBZrbߣog ̯T1&f V;f xϠ$Bf=OBQjh abi"׳~SYL>K h18|/IMo9?v\@RLaz2l9 T.) 4!0ƤȄ$NH I&/?%KO JLfI~K!δ6CʧMmʓ6R$puSzi?qwKz&6u.`wq<7%Vf\K µ+\P=S]gp1cHJY/̹1zօ&c6h Ƒ٘& VG13EEgrUɲtZ/u&%KI=[lon@?9e]]MSf$_;eUgxGu`glOϿMdO \[7׆'Ts h4ڿ÷o^(J唇P; JҰlLS{S'Kn[ClDkw] N!{B/>i\hgz.L tڠD 2bAVuZ?=K /訙ķ-}cV}%i<(n

您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob
您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题
原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Object Dim F As Object '文件对象 Set FS = CreateObject("Scripting.FileSystemObject") Set F = FS.CreateTextFile("c:\111.txt",True) For i = 1 To 33 Ar(i) = Cells(i,1) Arsum = Arsum + Ar(i) Next i x = 0 For i = 1 To 28 For j = i + 1 To 29 For k = j + 1 To 30 For l = k + 1 To 31 For m = l + 1 To 32 For n = m + 1 To 33 tempSum = Ar(i) + Ar(j) + Ar(k) + Ar(l) + Ar(m) + Ar(n) If Arsum - tempSum = 140 Then x = x + 1 txt = Ar(i) & "," & Ar(j) & "," & Ar(k) & "," & Ar(l) & "," & Ar(m) & "," & Ar(n) & "," & Arsum - tempSum F.writeline txt End If Next Next Next Next Next Next Application.ScreenUpdating = True MsgBox "共有组合" & x F.Close Set F = Nothing Set FS = Nothing End Sub

您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob
什么是重复的组合?应该是不会出现的 比如低烧给的33个初始值中,没有重复的则,不会有重复的组合.这个你可验证,在EXCEL中A列放入1-33,试试.是不会重复的.但是如果你给的33个值中有重复的值,那么就会出现重复组合.如果要避免这个问题.程序修改是没有什么问题的.但是由于程序是用穷举法来算的.为了验证是不是有重复的组合.需要先对每种组合进行排序（你给的33个数可能是无序的）,然后保存起来.然后再用每一种新组合和已经生成的组合进行比对,程序的运算量会是天文数字.程序的执行时间会非常长.个人觉得会很长.33个数取6个,共有100多万种组合.如果每一种生组合都要在已经有的组合中检查一下是否重复,你自己想一下有多少种.

您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob 108 选25的 组合计算公式从108中任选25,不重复,如何用组合公式计算? 数字0-9十个数字组合成4位数最多有几种不重复的组合要是有公式的话最好把公式给说一下 组合公式怎么计算我知道组合公式 可结果我算不来 C9/4的组合结果是多少?我就是不会计算 排列的计算公式和组合的计算公式是什么 我不要组合的 有没有就一个符号的 组合计算公式是什么,要准确切的计算公式 求0－9十个数字能组成多少个三位数的偶数,且数字不能重复!我要排列或组合的计算公式,答案我已经知道! 1-5这几个数字不重复,一共有多少个组合如题.有没有公式公式都不对哦，一楼的还不确定， 排列组合公式原理组合公式CMN=N!/M!(N-M) 为什么要在排列公式的基础上再除以M!,我知道是因为没有排序要求所以要除掉重复的部分,但重复的部分是M!是怎么推算的 求123456这6个数字的所有不重复组合123456不重复出现,一共是720组,现在要全排出来,晕死我了,有没有谁有复制给我,要是有这样的软件也成.所有的组合哦 一共是720组 感激不尽啊 赚个毛啊,有个 26选5的组合的计算公式如何?请问26选5个组成一组,不能重复,共有多少组? excel中有一列数字.即1列6行.我想将这列数字组合且不能重复.1到6个字.没有重复的.将这1-6个字进行组合成.且不重复.能有多少个组合.(这6个字必烦组合在一起).如:.我,是,好,人;一,个.组合成:一 9个数字可以组成多少组不重复的3个数字的组合我要公式M个数子中可以组成多少组不重复取N个数字的组合?M＞N 给出一组数据,有些数据多次重复出现,计算平均数时,就应该利用——平均数的计算公式. 组合计算公式的原理和意义如何证明组合公式 各位神仙：大家好! 1.2.3.4这四个数组成可重复的5位数,有多少种组合?公式也给俺,谢,吻! 组合数的公式