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