Sub 组合()
stt = InputBox("请输入9个数并用，隔开。如1,4,6,8,17,20,29,45,60", "输入", "1,4,6,8,17,20,29,45,60")
arr = Split(stt, ",")
num = UBound(arr)
rownum = 2
Range("A1")。
Value = "组数"
Range("B1")。Value = "数一"
Range("C1")。Value = "数二"
Range("D1")。Value = "数三"
Range("E1")。
Value = "数四"
Range("F1")。Value = "数五"
If (num <> 8) Then
MsgBox "输入数字不是九个", 0, "error"
Else
For i = 0 To num
For j = i To num
For k = j To num
For l = k To num
For m = l To num
If (i = j Or j = k Or k = l Or l = m) Then
rownum = rownum
Else
Range("A" & rownum)。
Value = "第" & rownum - 1 & "组"
Range("B" & rownum)。Value = arr(i)
Range("C" & rownum)。Value = arr(j)
Range("D" & rownum)。
Value = arr(k)
Range("E" & rownum)。Value = arr(l)
Range("F" & rownum)。
Value = arr(m)
rownum = rownum 1
End If
Next
Next
Next
Next
Next
End If
End Sub。
问：从0到9中任选7个数字进行组合,可重复,可以组合多少组?
答：排列组合的问题，第1个数位有10种，同理后6个数位也各有10种，所以总数为10的7次方=10000000种详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
