VB 算法问题(简单高分)

来源：百度知道 编辑：UC知道 时间：2024/09/24 02:25:01
用VB计算出从0-9 6位数的最高排列组合:

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

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

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

要求:用VB代码完成

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

楼主选我吧。谢谢

一百呀！！我要加分哦，C语言编，VB编
先C吧！
#include "stdio.h"
main()
{
int i,j,k,l,m,n;
long int sum=0;SUM计总数为多少组合！
for(i=0;i<9;i++)
for(j=0;j<9;j++)
for(k=0;k<9;k++)
for(l=0;l<9;l++)
for(m=0;m<9;m++)
for(n=0;n<9;n++)
sum++;
printf("%d,%d,%d,%d,%d,%d\t",i,j,k,l,m,n); 输出6个组合！
printf("%l",sum);
}

VB编法一样！

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