Question

VB 算法问题(简单高分)

用VB计算出从0-9 6位数的最高排列组合:

0,1,2,3,4,5,6,7,8,9

例如组合1:012345 (6位)
例如组合2:234567 (6位)

我想知道从0-9这些数字可以组成 多少个6位数.

要求:用VB代码完成

Answer 1

Private Sub Command1_Click()
Dim i, j, m, n, k, l, sum, s
sum = 0
For i = 0 To 5
For j = i + 1 To 6
For m = j + 1 To 7
For n = m + 1 To 8
For k = n + 1 To 9
For l = k + 1 To 9
s = s & i & j & m & n & k & l & vbCrLf
sum = sum + 1
DoEvents
Next
Next
Next
Next

楼主选我吧。谢谢

Answer 2

这不是数学里的排列组合的问题吗，有公式的，easy

Private Sub Command1_Click()
'排列的问题，从10个元素中取出6个元素的排列
Sum = 1
For i = 10 To (10 - 6 + 1) Step -1
Sum = Sum * i
Next i
MsgBox "共有" & Sum & "个"
End Sub

哪位高手帮帮忙，做做这道题。
http://zhidao.baidu.com/question/71272016.html

Answer 3

....................
穷举法,类似算24的原理
用for next循环语句就可以了,,
不过计算可能需要很长时间

Answer 4

Private Sub Command1_Click()
Dim i, j, m, n, k, l, sum, s
sum = 0
For i = 0 To 5
For j = i + 1 To 6
For m = j + 1 To 7
For n = m + 1 To 8
For k = n + 1 To 9
For l = k + 1 To 9
s = s & i & j & m & n & k & l & vbCrLf
sum = sum + 1
DoEvents
Next
Next
Next
Next
print sum

Answer 5

楼上已经有答案了. ..
这种问题求解方法很多,可以从排列组合去算,也可以用循环嵌套去列举的。