带有 For..Next 循环的变量

Question

我的 j 是问题所在。 VB 要求我声明它，但这不是我想要的。我试图在组合框中的列表框中添加所有内容（如果尚未添加）。最后说我添加了多少。

       'Delcare
    Dim bolItemFound As Boolean
    Dim intCounter As Integer

    'Adding all items not already listed
    For i = 0 To lstToPackItems.Items.Count - 1
        For j() = 0 To cboStandardToPackItems.Items.Count - 1
            If lstToPackItems.Items.Count < 0 Then
                lstToPackItems.Items.Add(cboStandardToPackItems.Items)
            End If
            Exit Sub
            If lstToPackItems.Items(i).ToString.ToUpper = cboStandardToPackItems.Items(j).ToString.ToUpper Then
                bolItemFound = True
            End If
            Exit Sub
        Next
        If bolItemFound = False Then
            'add item
            intCounter += 1
            lstToPackItems.Items.Add(cboStandardToPackItems.Items(j))
            MsgBox("You have successfuly added " & intCounter & " item(s) to your list box!")
        End If
    Next

Answer 1

在这一行：

For j() = 0 To cboStandardToPackItems.Items.Count - 1

j 后面不应有括号。