作业帮VB 求方法 1,2,3,4,5,6,7,8,9,10 n个一组 求分组 比如
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/11/08 03:52:06
VB 求方法 1,2,3,4,5,6,7,8,9,10 n个一组 求分组 比如
n=3
1,2,3
1,2,4
1,2,5
.
8,9,1
120种排列
n=3
1,2,3
1,2,4
1,2,5
.
8,9,1
120种排列
Private Sub Command1_Click()
GetNextNumber " ",0,4,10
End Sub
Private Sub GetNextNumber(ByVal 已取得串 As String,Minimum As Integer,还要取个数 As Integer,ByVal 总元素个数 As Integer)
'Got - 已经获得的数
'Minimum - 为了保证不重复,下一个取的数必须大于这个值,使得每个组合总是递增排列
'Rest - 还要取几个数
Dim X As Integer
For X = Minimum + 1 To 总元素个数 - 还要取个数 + 1
If 还要取个数 = 1 Then
List1.AddItem 已取得串 & Str(X)
Else
GetNextNumber 已取得串 & Str(X),X,还要取个数 - 1,总元素个数
End If
Next X
End Su
GetNextNumber " ",0,4,10
End Sub
Private Sub GetNextNumber(ByVal 已取得串 As String,Minimum As Integer,还要取个数 As Integer,ByVal 总元素个数 As Integer)
'Got - 已经获得的数
'Minimum - 为了保证不重复,下一个取的数必须大于这个值,使得每个组合总是递增排列
'Rest - 还要取几个数
Dim X As Integer
For X = Minimum + 1 To 总元素个数 - 还要取个数 + 1
If 还要取个数 = 1 Then
List1.AddItem 已取得串 & Str(X)
Else
GetNextNumber 已取得串 & Str(X),X,还要取个数 - 1,总元素个数
End If
Next X
End Su
VB 求方法 1,2,3,4,5,6,7,8,9,10 n个一组 求分组 比如
把正偶数以下列方法分组（2）（4,6）（8,10,12）...其中每一组数都比他前一组数多一个数,求第n组的第2个
若an=3n +7 - 4^{n+1} 求sn?用分组求和的方法,
求1!+2!+3!+4!+5!+6!+7!+8!+9!+10!的值,vb程序是n=1,s=0 For i=1 to 10
奇数数列像下面那样一组2个,3个,2个,3个,.形式分组(1,3),(5,7,9),(11,13),(15,17,19)
一堆贝壳 4个一组数余1个 5个一组数余2 个 6个一组数余3个求贝壳数
设计算法求算式2-4/3+6/5-8/7+10/9……的前n项的和,画出流程图,并写出对应VB代
将1,2,3,4.n,这些自然数按如下规律分组,第一组：（1)第二组:(2,3）第三组；（4,5,6）第四组：（7,8,
排列组合16个号码,四个为一组.方法一 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16方法
将正偶数集合{2,4,6，...}从小到大按第n组有2n个偶数进行分组，第一组：{2,4}，第二组：{6,8,10，12
非0的自然数1、2、3,...排成一行分组,规定第n组含有n个自然数,即（1）、（2、3）、（4、5、6）、（7、8、9
正整数按下列方法分组：（1）,（2,3,4）,（5,6,7,8,9）（10,11,12,13,14,15,16）,.