{"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/fa/tracks/vbnet/exercises/binary-search/solutions/david82","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/menketechnologies","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/RaulC0007","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/fstiffo","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/pgilgalad1","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/S2P2","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/Evan-Hock","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/aperezt","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/Spanjaard","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/williamjohanson","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/jasonbourne528491","private_iterations_url":"https://exercism.org/fa/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/fa/tracks/vbnet/exercises/binary-search/solutions/omaita","private_iterations_url":"https://exercism.org/fa/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