由於連小弟都覺得好亂=___='(因為係我做ge)

全部都運行到ge,不過2,3,4,5題..我都整到開頭係自己打再運行,如有錯誤/問題/有d步驟多左ge請留言或者add我啦..做完睇過眼都唔想認真睇多眼,頭都暈..

題目係e-class mark哥有比...

  '輸入輸出
  Dim i As Short
        Dim k As String = "陣列數值:"
        Dim a(4) As Short
        For i = 0 To 4
            a(i) = InputBox(i + 1)
            k &= a(i) & Space(2)
        Next
        TextBox1.Text = k

    '氣泡
   Dim a() As Short = New Short() {80, 1, 5, 77, 91}
        Dim i, j, tmp As Short
        Dim k, p As String
        k = "後:" : p = "前:"
        For j = 0 To 4
            p &= a(j) & Space(2)
        Next
        For i = 1 To 4
            For j = 0 To 3
                If a(j) > a(j + 1) Then
                    tmp = a(j)
                    a(j) = a(j + 1)
                    a(j + 1) = tmp
                End If
            Next
        Next
        For j = 0 To 4
            k &= a(j) & Space(2)
        Next
        TextBox1.Text = ""
        TextBox1.Text = p & vbCrLf & k

    '選擇
  Dim a() As Short = New Short() {80, 1, 5, 77, 91}
        Dim i, j, tmp, n As Short
        Dim k, p As String
        k = "後:" : p = "前:"
        For j = 0 To 4
            p &= a(j) & Space(2)
        Next
        For i = 0 To 3
            n = i
            For j = (i + 1) To 4
                If a(n) > a(j) Then
                    n = j
                End If
            Next
            If n <> i Then
                tmp = a(n)
                a(n) = a(i)
                a(i) = tmp
            End If
        Next
        For j = 0 To 4
            k &= a(j) & Space(2)
        Next
        TextBox1.Text = ""
        TextBox1.Text = p & vbCrLf & k

    '循序
    Dim a() As Short = New Short() {80, 1, 5, 77, 91}
        Dim target As Short = 91
        Dim i As Short
        Dim k As String = ""
        Do
            If a(i) = target Then
                k &= "找到數值" & target
                Exit Do
            End If
            If i = 4 Then
              k &= "找不到數值" & target
                Exit Do
            End If
            i += 1
        Loop Until i > 4

        TextBox1.Text = ""
        TextBox1.Text = k

    '二元
   Dim a() As Short = New Short() {80, 1, 5, 77, 91}
        Dim target As Short = 80
        Dim i, j, tmp, m, l, r As Short
        Dim k As String = "找不到數值" & target
        For i = 1 To 4
            For j = 0 To 3
                If a(j) > a(j + 1) Then
                    tmp = a(j)
                    a(j) = a(j + 1)
                    a(j + 1) = tmp
                End If
            Next
        Next
        l = 0 : r = UBound(a)
        Do
            m = (l + r) \ 2
            If a(m) = target Then
                k = "找到數值" & target
                Exit Do
            Else
                If a(m) > target Then
                    r = m - 1
                Else
                    l = m + 1
                End If
            End If
        Loop Until l > r
        TextBox1.Text = ""
        TextBox1.Text = k

     '比較大小
     

Dim a(4), i, j, m, n As Short

        Dim p, k, pk As String

        p = "最小值為"

        k = "最大值為"

        pk = ""

        m = 0 : n = 0

        For i = 0 To 2

            a(i) = InputBox("...")

            pk &= a(i) & "   "

        Next

        i = 0 : m = i : n = i

        For j = i + 1 To 2

            If a(m) < a(j) Then

                m = j

            Else

                If a(n) > a(j) Then

                    n = j

                End If

            End If

        Next

        TextBox1.Text = ""

        TextBox1.Text = k & a(m) & vbCrLf & m & vbCrLf & p & a(n) & vbCrLf & n & vbCrLf & pk