用两个数组进行比较,
 Dim a() As Int16 = {1, 2, 3, 3, 4, 5, 5, 5}
        Dim al As ArrayList
        Dim b As Boolean
        al = New ArrayList()
        al.Add(a(0))
        Dim i, j As Integer
        For i = 1 To 7
            b = False
            For j = 0 To al.Count - 1
                If a(i) = al(j) Then
                    b = True
                    Exit For
                End If
            Next
            If b = False Then
                al.Add(a(i))
            End If
        Next
        For j = 0 To al.Count - 1
            Response.Write(al(j))
        Next