{"request":{"endpoint":"https://exercism.org/api/v2/tracks/vbnet/exercises/binary-search/community_solutions","query":{},"options":{"initial_data":{"results":[{"uuid":"e0ee51db685e47049c309c9aad59df98","snippet":"Imports System Public Module BinarySearch Private Function SearchBinary(ByVal value As Integer, ByVal array As Integer(), ByVal low As Integer, ByVal high As Integer) As Integer If low > high Then Return -1 End If Dim mid As Integer = low + (high - low) \ 2 Dim midValue As Integer = array(mid) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":24,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-08-26T16:25:42.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"david82"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/david82","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"71c20213d259415cb604f7bcfbf9ba90","snippet":"Imports System Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer Dim lo = 0 Dim hi = input.Length - 1 While lo <= hi Dim mid = Math.Floor((lo + hi)/2) If input(mid) = value Return mid ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-12-11T17:30:44.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"menketechnologies"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/menketechnologies","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"a5fd2a0b8f1041ba864ad43b9835e5af","snippet":"Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer If input Is Nothing OrElse input.Length = 0 Then Return -1 End If Dim left As Integer = 0 Dim right As Integer = input.Length - 1 While left <= right ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":21,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2026-08-16T04:14:04.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"RaulC0007"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/RaulC0007","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"a1c9503ec9314935aa9a8bc555b15a12","snippet":"Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer If input.Length = 0 Then Return -1 Dim min As Integer = 0 Dim max As Integer = input.Length - 1 Dim middle As Integer = (max - min) / 2 Do While input(middle) <> value If min >= max Then Return -1 If input(middle) < value Then ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-03-13T08:58:11.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"fstiffo"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/fstiffo","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"668725af0d4c47bb9e1ad4559690c84d","snippet":"Imports System Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer ' Initialize variables to track the start and end of the search range Dim left As Integer = 0 Dim right As Integer = input.Length - 1 ' Perform binary search While left <= right ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-07-24T03:13:55.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"pgilgalad1"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/pgilgalad1","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"7eaf370f7ad34a7c8990bedc0db9572e","snippet":"Imports System Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer Return BSearch(input, value, 0, input.Length - 1) End Function Private Function BSearch(ByVal input As Integer(), ByVal value As Integer, ByVal min As Integer, ByVal max As Integer) As Integer If min > max Then Return -1 ' Not found ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-11-22T04:51:17.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"S2P2"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/S2P2","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"a18c8746e24747fb8d92008524de7198","snippet":"Imports System Public Module BinarySearch Public Function Find(input As Integer(), value As Integer) As Integer Dim lBound = 0 Dim uBound = input.Length While lBound < uBound Dim mid = lBound + ((uBound - lBound) \ 2) If value = input(mid) Then Return mid ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-08-01T22:54:36.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"Evan-Hock"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/Evan-Hock","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"e72680398ae34fdfbcde370af3db1615","snippet":"Imports System Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer Dim left As Integer = 0 Dim right As Integer = input.Length - 1 While left <= right Dim mid As Integer = left + (right - left) \ 2 ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-06-25T18:18:51.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"aperezt"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/aperezt","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"461ff11cfcad4cf5a25e5d5bd84992cd","snippet":"Imports System Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer Dim low As Integer = 0 Dim high As Integer = input.Length - 1 Do While low <= high Dim mid As Integer = (low + high) \ 2 ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":18,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2025-09-25T11:48:43.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"Spanjaard"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/Spanjaard","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"a3ff87da346b417b8a049fda1b1f2038","snippet":"Imports System Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer Dim midPoint As Integer Dim left As Integer = 0 Dim right As Integer = input.Count() - 1 While left <= right midPoint = (left + right) \ 2 ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-09-10T10:30:28.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"williamjohanson"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/williamjohanson","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"72a61f3e5442417eb3596fbe55a2f110","snippet":"Public Module BinarySearch Public Function Find(ByVal input As Integer(), ByVal value As Integer) As Integer Dim left as Integer = 0 Dim right as Integer = input.Length - 1 while left <= right Dim mid as Integer = left + (right - left) \ 2 If input(mid) = value then Return mid ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":17,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2026-07-31T23:36:47.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"jasonbourne528491"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/jasonbourne528491","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}},{"uuid":"afc27d67412e4589a701a35e44726c7f","snippet":null,"num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":20,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2024-07-07T20:34:22.000Z","is_out_of_date":false,"language":"vbnet","author":{"handle":"omaita"},"exercise":{"title":"البحث الثنائي","icon_url":"https://assets.exercism.org/exercises/binary-search.svg"},"track":{"title":"Visual Basic","icon_url":"https://assets.exercism.org/tracks/vbnet.svg","highlightjs_language":"vbnet"},"links":{"public_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/solutions/omaita","private_iterations_url":"https://exercism.org/ar/tracks/vbnet/exercises/binary-search/iterations"}}],"meta":{"current_page":1,"total_count":12,"total_pages":1,"unscoped_total":12}}}}}

مسارات اللغات

تعلّم البرمجة مع Jiki

رحلتك

مفضلاتكجديد

مزايا Exercism

فيديوهات المجتمع

سلسلة المقدمات الموجزة

مقابلات وقصص

Discord

المنتدى

البدء

الإرشاد

الوثائق

المساهمون

المترجمونجديد

تبرّع

عن Exercism

أثرنا

مزامن GitHubجديد

Insiders