关于数组的排序和查找的流成图

来源：百度知道编辑：UC知道时间：2024/06/19 08:35:01

输入20个任意数，先将这20个数从大到小排列，然后将排列好的后10个数从小到大（在后10个位置上）排列。
要这个的流程图和VB程序
会做的能坐下么.
+383359947
我会再追加

代码如下：

Private Sub Command1_Click()

Dim a(1 To 20) As Integer

For i = 1 To 20 '输入20个数

a(i) = Val(InputBox("输入第" & i & "个数"))

Print "原数序列:"

Call xs(a)

For i = 1 To 19 '20个数排降序

For j = i + 1 To 20

If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t

Next j

Next i

Print "降序序列:"

Call xs(a)

For i = 11 To 20 '后10个数排升序

For j = i + 1 To 20

If a(i) > a(j) Then t = a(i):&nb