我有1-100中的任意10个数，也有可以10个数都相同，我想知道这10个数中有几个相同数，有多少个相同数，是不是10个数都连在一起的，假如有10个这样的数10,20,12,10,40,30,30,40,19,40,它们之中有10的数2个，40的有3个，30的有两个，不是连续数，我这指的连续数是10个数都不相同，并连续的数。。这样的怎么写啊，想了好久都没头绪，请帮忙，谢谢。。

给你一个思路吧。
你可以先在这10个数中提取出有什么数字是相同的（这个你可以用双重循环来遍试），再分别用提取出的这些的数字在这个10个数中查找有那些数字和提取出的数字一致（这个你可以用最简单的遍历查找算法），这时，在遍历查找中你可以设置一个变量（例如：count）递增来记录每次数字一直的情况。而count变量最后的结果就是某个一致数字的相同情况（出现次数）。

谢谢你的回复，可不可以给段代码。。。。

给段带有一点点BUG的代码你看看，由于时间等等原因所以还没有修正BUG。大家都可以来修改一下，这样共同进步嘛，呵呵
代码如下：
Private Sub Command1_Click()
    arr = Array(5, 6, 8, 2, 5, 2, 5, 6)
    Dim arr2() As Integer
    Dim k As Integer
    For i = 0 To UBound(arr)
        For j = i + 1 To UBound(arr)
            '此处出现一点小小的BUG，这个BUG将会导致arr2数组出现相同的元素，你可以修改一下
            '不要忘了修改之后发布代码，共同学习嘛，呵呵
            If arr(j) = arr(i) Then
                k = k + 1
                ReDim Preserve arr2(k)
                arr2(k) = arr(j)
            End If
        Next
    Next
    Dim count As Integer
    For i = 1 To UBound(arr2)
        For j = 0 To UBound(arr)
            If arr2(i) = arr(j) Then
                count = count + 1
            End If
        Next j
        Print arr2(i) & " 出现的次数：" & count
        count = 0
    Next i
End Sub

这个BUG也很麻烦啊

“几个相同数，有多少个相同数，是不是10个数都连在一起的”，这是三个问题。可以编是那个函数来个个击破。

treeview1.linestyle=tvwrootlines

forme1.zorder (0)
treewiew1.nodes.item(treeview1.selecteditem.index)
那位大哥帮解释下,谢谢了

帮帮忙好不好
谢谢了

先建一个类模块，粘贴下面代码：
Option Explicit

Private mCount As Integer


''''''相同数的个数'''''''
Public Property Get Count() As Integer
    Count = mCount
   
End Property


''''''''''求几个相同数'''''''

Public Function SameNumber(StringValue As String) As String
Dim Value() As String
Dim ColNum As Collection     '''存储数字
Dim i As Integer
Dim j As Integer
Dim Q As Integer
Dim Q1 As Integer
Dim Temp As Integer
Dim Temp1 As Integer
Dim Temp2 As String

On Error GoTo ProcError

    Value() = Split(StringValue, ",")
    Q = LBound(Value)
    Q1 = UBound(Value)
   
    ''''''先排序，从小到大'''''
   
    For i = Q To Q1 - 1
'        Temp = Val(Value(i))
        For j = i + 1 To Q1
'            Temp1 = Val(Value(j))
            
            If Val(Value(i)) > Val(Value(j)) Then
'            If Temp > Temp1 Then
                Temp2 = Value(j)
                Value(j) = Value(i)
                Value(i) = Temp2
               
               
            End If
        
        Next
        
    Next

'    Temp2 = ""
'    For i = Q To Q1
'        If i = Q Then
'            Temp2 = Value(i)
'
'        Else
'            Temp2 = Value(i) & "，" & Temp2
'
'        End If
'
'    Next

'    MsgBox "排序后的序列为：" & Temp2
   
    '''''''取出不同的数'''''''''''
   
    Set ColNum = New Collection
   
    ColNum.Add Val(Value(Q))
    Temp = Val(Value(Q))
        
    For j = Q + 1 To Q1
        Temp1 = Val(Value(j))
        If Temp <> Temp1 Then
            ColNum.Add Temp1
            Temp = Temp1
            
        End If
   
    Next
   
    Dim x As Variant
   
    Temp2 = ""
    For Each x In ColNum
        If Temp2 = "" Then
            Temp2 = x
        
        Else
            Temp2 = Temp2 & "," & x
        
        End If
   
    Next
   
'    MsgBox "取出的数列为：" & Temp2
   
    SameNumber = Temp2
    mCount = ColNum.Count
   
ProcExit:
    Exit Function
   
ProcError:
    MsgBox Err.Number & vbCrLf & Err.Description, 48
    Resume ProcExit
   
End Function

''''''判断是否为连续的数列'''''''

Public Function IsSame(StringValue As String) As Boolean
Dim Temp As String
Dim Temp1 As Integer
Dim x As Variant
Dim Value() As String

    ''''''获取不相同的数列'''''''''
    Temp = Me.SameNumber(StringValue)
    Value() = Split(Temp, ",")
   
    IsSame = True
    Temp1 = -1
    For Each x In Value
        If Temp1 = -1 Then
            Temp1 = Val(x)
            
        Else
            If Val(x) - Temp1 <> 1 Then
                IsSame = False
                Exit For
            
            Else
                Temp1 = Val(x)
            End If
        End If
        
    Next
   
End Function
然后在Form1窗体上建Text1,Text2,text3,text4和一个command1按钮，Text1为输入框。然后粘贴下列代码：
Option Explicit


Private Sub Command1_Click()
Dim C As New Class1
   
   
    Text3 = C.SameNumber(Text1)
    Text2 = C.Count
    If C.IsSame(Text1) = False Then
        Text4 = "不是连续的数列！"
   
    Else
        Text4 = "此数列为连续的数列！"
   
    End If
   
End Sub

现在的人真是让人心寒。好心回答问题，完事后连谢谢都不会说。世态炎凉啊！