搜尋Search

線性搜尋Linear Searching

        Dim arr(100), i, j, k, temp, search As Integer

        Randomize()

        For i = 1 To 100

            arr(i) = i

        Next

        For i = 1 To 50000

            j = Int(Rnd() * 100) + 1

            k = Int(Rnd() * 100) + 1

            temp = arr(j)

            arr(j) = arr(k)

            arr(k) = temp

        Next

        For i = 1 To 100

            Console.WriteLine("arr({0}) = {1}", i, arr(i))

        Next

        Console.Write("請輸入你要搜尋的數字(1-100):")

        search = Console.ReadLine()

        For i = 1 To 100

            If arr(i) = search Then

                Console.Write("你要搜尋的數字({0}),在陣列的第 {1} 個元素", search, i)

                Exit For

            End If

        Next

        Console.Read()

二元搜尋Binary Searching