首页 > 解决方案 > VB 用列表计算两个整数

问题描述

我想评估用两个整数列表的值分隔的两个整数。

在此处输入图像描述

例如:

我从两个变量中接收两个整数

id1 = 1

id2 = 2

然后我有一个两个整数的列表

1 - 2

4 - 6

我想检查这些 id 是否一起在整数列表中。既然我们做不到

For e = 0 To excluidos.Count
    If misGallos(i).taquillaP = excluidos(e).id1P Or excluidos(e).id2P And _
       misGallos(j).taquillaP = excluidos(e).id1P Or excluidos(e).id2P Then

        MsgBox("igua")
    End If
Next e

我不知道有什么更好的方法。如果我应该将这些 id 放在另一个列表中以比较两个列表,或者是否存在将这些 id 放在一起并检查列表中是否有相等的任何方法。

标签: .netvb.net

解决方案


那是因为你的逻辑是错误的,试试这样的:

    Dim List1 As New List(Of Integer) From {1, 3, 5, 22}
    Dim List2 As New List(Of Integer) From {2, 4, 8, 12}
    Dim ID1 As Integer = 22
    Dim ID2 As Integer = 12

    If List1.Contains(ID1) Then

        If List2.Contains(ID2) AndAlso List2(List1.IndexOf(ID1)) = ID2 Then 'is present on list and same row
            Debug.Print("hi1")
        End If

    ElseIf List2.Contains(ID1) Then

        If List1.Contains(ID2) AndAlso List1(List2.IndexOf(ID1)) = ID2 Then 'is present on list and same row
            Debug.Print("hi2")
        End If

    End If

推荐阅读