数组
Dim m As IntegerDim k = 1
Dim l = 0
For i = 0 To class_count - 1
clas_sub(i) = CType((datagrid1.Item(i, 3)), String)'把datagrid 控件的植（字符串）赋给数组clas_sub
Next ‘
For l = 0 To class_count - 2
For m = 0 To l - 1 ’通过两次循环来实现数组元素第n个元素与
If (clas_sub(l) = clas_sub(m)) Then ‘边 n-1个数的比较
k = k ‘k用来统计元素的个数，若相等则k
Else ‘ 无变化否则加一
k = k + 1
End If
Next
Next
temp.Text = k 结果显示在temp控件中；得到的结果为什么
‘与实际相差很大
--------------------编程问答-------------------- 你是想要全排列吗，
--------------------编程问答-------------------- 比如字符有3个5和3个6，1个7，这7个数，你要K＝2还是6 --------------------编程问答-------------------- 谢谢啊：我想让k为３啊，这说明有三个不同的树 --------------------编程问答-------------------- 先取出一个，与其它的比，如果一样则把第二个变为空，这样循环到最后看不空的有几个 --------------------编程问答-------------------- 直到取到最后为止 --------------------编程问答--------------------
补充：.NET技术 , VB.NET
