用BASIC编写个程序例5个数从大到小排列

可以的，以下是一个用BASIC编写的程序，可以将5个数从大到小排列：

10 INPUT A,B,C,D,E
20 IF A<B THEN SWAP A,B
30 IF A<C THEN SWAP A,C
40 IF A<D THEN SWAP A,D
50 IF A<E THEN SWAP A,E
60 IF B<C THEN SWAP B,C
70 IF B<D THEN SWAP B,D
80 IF B<E THEN SWAP B,E
90 IF C<D THEN SWAP C,D
100 IF C<E THEN SWAP C,E
110 IF D<E THEN SWAP D,E
120 PRINT A,B,C,D,E

在这个程序中，我们首先输入5个数A、B、C、D、E。然后，我们使用一系列的IF语句来比较这些数的大小，并使用SWAP语句来交换它们的位置，以便将它们从大到小排列。最后，我们使用PRINT语句将排好序的数输出。

相关问题

用Visual Basic设计，编写程序，用输人框输人三个数，然后找由大到小的顺序在街体上显示这三个数。

以下是用 Visual Basic 编写的程序，实现输入三个数，然后按照从大到小的顺序在界面上显示这三个数：

Private Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click
    '获取输入的三个数
    Dim num1 As Integer = CInt(txtNum1.Text)
    Dim num2 As Integer = CInt(txtNum2.Text)
    Dim num3 As Integer = CInt(txtNum3.Text)

    '比较三个数的大小，并进行排序
    Dim arr(2) As Integer
    If num1 > num2 Then
        If num1 > num3 Then
            arr(0) = num1
            If num2 > num3 Then
                arr(1) = num2
                arr(2) = num3
            Else
                arr(1) = num3
                arr(2) = num2
            End If
        Else
            arr(0) = num3
            arr(1) = num1
            arr(2) = num2
        End If
    Else
        If num2 > num3 Then
            arr(0) = num2
            If num1 > num3 Then
                arr(1) = num1
                arr(2) = num3
            Else
                arr(1) = num3
                arr(2) = num1
            End If
        Else
            arr(0) = num3
            arr(1) = num2
            arr(2) = num1
        End If
    End If

    '在界面上显示排序后的结果
    txtResult.Text = "由大到小的顺序为：" & arr(0) & "，" & arr(1) & "，" & arr(2)
End Sub

在界面上需要添加三个文本框用于输入三个数，一个按钮用于触发排序操作，以及一个文本框用于显示排序后的结果。在按钮的 Click 事件中，首先获取三个输入的数，然后进行比较和排序，最后在文本框中显示排序后的结果。

用basic写一个快速排序的程序

快速排序是一种常用的排序算法。它的基本思路是：

1. 从数列中选择一个基准数。
2. 将所有小于基准数的数移到基准数的左边，将所有大于基准数的数移到基准数的右边。
3. 对基准数左边和右边的两个子集分别递归地进行步骤 1 和 2，直到所有数都有序为止。

下面是一个使用 basic 语言实现快速排序的程序示例：

' 快速排序算法

' 定义交换数组元素的函数
SUB Swap(a AS INTEGER, b AS INTEGER)
    TEMP = a
    a = b
    b = TEMP
END SUB

' 定义快速排序函数
SUB QuickSort(arr() AS INTEGER, left AS INTEGER, right AS INTEGER)
    ' 如果左指针大于右指针，则退出递归
    IF left > right THEN EXIT SUB

    ' 选取基准数
    pivot = arr(left)
    i = left
    j = right

    ' 开始排序
    DO
        ' 从右往左扫描，找到第一个小于基准数的数
        DO WHILE arr(j) > pivot
            j = j - 1
        LOOP
        ' 从左往右扫描，找到第一个大于基准数的数
        DO WHILE arr(i) < pivot
            i = i + 1
        LOOP
        ' 如果两个指针还没有交叉，则交换两个数
        IF i <= j THEN
            Swap arr(i), arr(j)
            i = i + 1
            j = j - 1
        END IF
    LOOP UNTIL i > j

    ' 递归调用快速排