请教VB高手：如何打印出排列组合的所有项目

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:33:54
目前我在编一个彩票软件玩玩，自己不太精通VB，故肯请大家帮忙。

有一组数，存放在数组中，如
nums(0)=2
nums(1)=7
nums(2)=10
nums(3)=13
nums(4)=14
nums(5)=17
nums(6)=19
nums(7)=20
nums(8)=29
nums(9)=30
正在的要求是，从中取出6个，没有先后顺序，根据数学排列组合知识，结果应该是
C(上标6,下标10)这个结果是知道的，
可是如何打印出每一个结果呢？
请大家帮忙，
结果用debug.print 一条一条输出。
我其实需要http://topic.csdn.net/t/20050227/20/3810371.html
第11楼的效果，
所不同的是，他是从一组连续的数中选出几个，
而我需要的是从不一定连续的数据中选出几个。
我的感觉是，只要将他的代码中的某些部分用数组元素替换即可。
但是我不会。肯请高手赐教。

'这回行了吧

'窗体中需两个Text、两个Label、一个Command
Option Explicit
Private mlngAllNumCount As Long, mlngGetNumCount As Long
Private mblnCancelProc As Boolean, mlngCurResultCount As Long
Private mastrOneResult() As String
Private mlngFileNo As Long, mstrResultFile As String
Dim nums(9) As Integer

Private Sub Form_Load()

nums(0) = 2
nums(1) = 7
nums(2) = 10
nums(3) = 13
nums(4) = 14
nums(5) = 17
nums(6) = 19
nums(7) = 20
nums(8) = 29
nums(9) = 30
Command1.Caption = "处理"
mstrResultFile = App.Path & "\1.txt" '存放输出结果的文件，结果多时，不要尝试用记事本打开！会死机的。

End Sub
Private Sub Form_Unload(Cancel As Integer)
mblnCancelProc = True
End Sub
Private Sub Command1_Click()
Dim t As Single, i As Long