منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندى

كود :

 Dim test1 As String() = {1, 2, 3, 4, 5, 6, 8, 7}

    Dim test2 As String() = {77, 88, 99, 22, 10, 33, 44}

اريد ان اعرف اذا كان رقم موجود ام لا

كود :

Dim find As String = 7

كود :

       For Each fd In test1

            If find.Contains(fd) Then

                Label1.Text = "Found"

                Label3.Text = 0

            Else

                Label1.Text = "Not"

                Label3.Text += 1

                Exit For

            End If

        Next

        For Each fd In test2

            If find.Contains(fd) Then

                Label2.Text = "Found"

                Label4.Text = 0

            Else

                Label2.Text = "Not"

                Label4.Text += 1

                Exit For

            End If

        Next

على الرغم من انه متواجد لاكن الناتج يطلع غير متواجد

عموما التحقق من وجود قيمة محددة في مصفوفة يستخدم Contains

وفي احدى مصفوفات مثالك يتم كالتالي

كود :

Dim test1 As String() = {1, 2, 3, 4, 5, 6, 8, 7}

Dim find As String = 7

If find.Contains(find) Then

    Label1.Text = "Found"

Else

    Label1.Text = "Not"

End If

ولو أردت أن تعرف أين يقع ما تبحث عنه داخل المصفوفة تستخدم Array.IndexOf

كود :

Dim index As Integer = Array.IndexOf(test1, find)

الكود التالي يوضح لك أحد الأساليب لكيفية كتابة Loop وذلك بهدف إيجاد القيمة التي تبحث عنها

PHP كود :

Dim list As String() = {1, 2, 3, 4, 5, 6, 8, 7}
        Dim s As String = 7
        Dim found As Boolean = False
        For i As Integer = 0 To list.Count - 1
            If s = list(i) Then
                found = True
                Exit For
            End If
        Next


        ' do something 
        If found Then
            Me.Text = "Found"
        Else
            Me.Text = "Not Found"
        End If 

جزاكم الله خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mohamed20

ممدوح

silverlight

Mohamed20