15-10-16, 07:15 AM
عندى
اريد ان اعرف اذا كان رقم موجود ام لا
على الرغم من انه متواجد لاكن الناتج يطلع غير متواجد
كود :
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