Question

编写一个程序,将用户从键盘输入的任意多个数排序后按降序输出

编写一个程序,将用户从键盘输入的任意多个数排序后按降序输出

Answer 1

声明一个足够大的数组，循环接收用户输入的数字，并记录下用户输入的数字个数，然后再用冒泡排序算法对整个数组进行降序排序，最后输出。

Answer 2

Public Sub 题1()
Dim n As Integer, t As Integer, i As Integer
Dim j As Integer
n = Val(InputBox("n:"))
ReDim a(1 To n) As Double
For i = 1 To n
a(i) = Val(InputBox("请输入" & "a" & (i) & "的值"))
Next
For i = 1 To n - 1
For j = i + 1 To n
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next
Next
For i = 1 To n
Debug.Print a(i);
Next
End Sub