输入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