输入任意八个数,从大到小的顺序排序并输出
输入任意八个数,从大到小的顺序排序并输出
日期：2016-06-13 15:40:41 人气：1
Option Explicit
Sub pailie()
Dim arr(500),m
Do
m=inputbox ("输入排序数字个数，不超过500","标题")
If isnumeric(m) Then
If m=2 Then
Call ctrl '输入数据
Call sq()
Exit Do
else
Msgbox"必须是2-500"
End If
Else
msgbox"必须是数字&quo