"Visual Basic" Programlama dilinde "Dizideki Bir Elemanı Döngü İle Arama Örneği" ile ilgili kod örneği aşağıdadır.

Imports System

Module Main
  Sub Main(args As String())

    Dim numbers As Integer() = {9, 12, 5, 4, 3, 6, 8, 1, 0, 17, 24}
    Dim flag As Integer = 0

    Console.WriteLine("Bulunması istenen rakamı girin: ")
    Dim x As Integer = Integer.Parse(Console.ReadLine())

    For i As Integer = 0 To numbers.Length - 1
      If x = numbers(i) Then
        Console.WriteLine("Bulundu, elemanın pozisyonu: " + i.ToString())
        flag = 1
        Exit For
      End If
    Next

    If flag = 0 Then
      Console.WriteLine("Aranan eleman dizide bulunamadı.")
    End If
  End Sub
End Module