vb 如何创建这样的动态数组，动态往里边写东西 ，遇上重复的不写，空值也写。 用完后清空。

Question

vb 如何创建这样的动态数组，动态往里边写东西 ，遇上重复的不写，空值也写。 用完后清空。请赐教

Answer 1

用Collection就可以～Dim tC As New Collection

Answer 2

Option Explicit
Dim Arr() As String
Private Sub Command1_Click()
    Dim Str As String
    Dim x As Boolean
    Dim i As Long
    Dim j As Long
    For i = 0 To 9
        ReDim Preserve Arr(i) As String
        Str = InputBox("TEXT")
        For j = LBound(Arr) To UBound(Arr)
            If Arr(j) = Str Then x = True: Exit For Else x = False
        Next
        If Not x Then Arr(i) = Str
    Next
    For i = 0 To 9
        Debug.Print Arr(i)
    Next
    Erase Arr
End Sub