VB 求方法 1,2,3,4,5,6,7,8,9,10 n个一组 求分组 比如

Private Sub Command1_Click()GetNextNumber " ",0,4,10End SubPrivate Sub GetNextNumber(ByVal 已取得串 As String,Minimum As Integer,还要取个数 As Integer,ByVal 总元素个数 As Integer)'Got - 已经获得的数'Minimum - 为了保证不重复,下一个取的数必须大于这个值,使得每个组合总是递增排列'Rest - 还要取几个数Dim X As IntegerFor X = Minimum + 1 To 总元素个数 - 还要取个数 + 1If 还要取个数 = 1 ThenList1。AddItem 已取得串 & Str(X)ElseGetNextNumber 已取得串 & Str(X),X,还要取个数 - 1,总元素个数End IfNext XEnd Su