輸入A, B, C三 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

下面是引用pk01749276於2005-10-15 10:16發表的 輸入A, B, C三個數，判斷A,B,C的值，並將ABC由大到小排列:
輸入A, B, C三個數，判斷A,B,C的值，並將ABC由大到小排列

這是基本的程式入門題，我想你配合課本自已想一下，就可以寫出來了。

下面是引用t0306894於2005-10-15 10:29發表的 :


這是基本的程式入門題，我想你配合課本自已想一下，就可以寫出來了。

請問有多入門....屬於資料結構的哪個部份....要用到哪種演算法....
你這樣回答跟沒回答沒什麼差別 ....

要如何寫出程式呢?

下面是引用pk01749276於2005-10-15 14:26發表的 :
要如何寫出程式呢?

最簡單的話..用氣泡排序法就可以了....
因為只有三個數而已...所以不用用到插入排序或快速排序~

氣泡排序..精華區有~請翻翻看~
真寫不出來...再問~

OK感謝唷，我大概知道怎麼寫囉!!

Button1.Enabled = True
    a = InputBox("輸入第一個數", "請輸入數值", Val(0), )
    b = InputBox("輸入第二個數", "請輸入數值", Val(0), )
    c = InputBox("輸入第三個數", "請輸入數值", Val(0), )
    Label1.Text = "排序前:" & Space(3) & Val(a) & Space(3) & Val(b) & Space(3) & Val(c)
    If a > b Then

        If b > c Then

          Label2.Text = a & ">" & b & " >" & c

        Else
          If c > b Then
            If a > c Then
                Label2.Text = a & ">" & c & " >" & b

            End If
          End If

    End If
    End If

    If b > a Then

        If a > c Then

          Label2.Text = b & ">" & a & " >" & c

        Else

          If c > a Then

            If b > c Then

                Label2.Text = b & ">" & c & " >" & a



            End If

          End If

        End If

    End If

    If c > b Then

        If b > a Then

          Label2.Text = c & ">" & b & " >" & a

        Else

          If c > b Then

            If a > b Then

                Label2.Text = c & ">" & a & " >" & b



            End If

          End If

        End If

    End If

  End Sub