如何检查一个项目是否已经在vb6中的列表框中

Question

我正在使用 vb6，我想生成多个随机数（从到的范围由用户确定，以及生成的答案的数量）并将它们发送到列表框但我不想复制生成的数字所以.. 我想在将生成的数字发送到列表框之前检查它是否已经存在于 lisbox 中。如果它已经存在，则生成另一个数字，如果不存在，则将其发送到列表框

这是我目前所拥有的 max 和 min 是选择数字的范围 answers 是生成数字的个数

    Randomize
For i = 1 To answers Step 1
    generated = CInt(Int((max - min + 1) * Rnd() + min))
        For n = 0 To List1.ListCount
            If List1.List(n) <> gen Then
            List1.AddItem (gen)
            Else
            If List1.List = gen Then
            'I don't know what to do from here 
            '(how to go back to generate another number)
        Next n
Next i

提前致谢请记住，我需要让事情变得简单非常感谢

Answer 1

如果生成的相同值在列表中，则使用布尔值来保留结果。

Private Sub AddRandomNumbers()
    Dim blnIfFound As Boolean
    Dim max As Integer
    Dim min As Integer
    Dim answers As Integer
    max = 10
    min = 1
    answers = 5

    Randomize

    Do While List1.ListCount < answers

        generated = CInt(Int((max - min + 1) * Rnd() + min))
        blnIfFound  = False

        For n = 0 To List1.ListCount
            If List1.List(n) = generated Then
                blnIfFound = True
                Exit For
            End If
        Next n

        If blnIfFound = False Then List1.AddItem (generated)

    Loop

End Sub

如何检查一个项目是否已经在vb6中的列表框中

How to check if an item is already in a listbox in vb6

random

vb6

listbox