none
怎么读取集合里的东西? RRS feed

  • 问题

  • 我在用递归,不能用太多的变量,所以用列表框代替了。大多数变量在外面声明的。

    递归还没写完,所以我还没有写跳出递归的语句。
    Private Function w(ByVal str1 As String, ByVal str2 As String) As String
    Dim i, j As Integer
    Dim list1, list2 As New ListBox
    For i = 0 To num
    '现在请问,怎么用集合读取list2的内容?
    Next
    For i = 0 To UBound(a, 1)
    For j = 1 To UBound(a, 2)
    If a(i, j) = str1 Then list1.Items.Add(a(i, 0))
    Next
    Next
    For i = 0 To list1.Items.Count
    If a(i, 0) = list1.Items(i) Then
    For j = 1 To UBound(a, 2)
    list2.Items.Add(a(i, j))
    num = num + 1
    jihe.Add(list2)
    Next
    End If
    Next
    For i = 0 To list2.Items.Count
    If list2.Items(i) = str2 Then
    bl = True
    Else
    w(list2.Items(i), str2)
    End If
    Next
    End Function

    2011年8月30日 4:15

答案

全部回复