1、Private Function jxm As IntegerAs Boolean Dim x As Integer，y As Integer，z As Integer x = Intm \ 100z = m Mod 10y = Intm Mod 100\ 10If x yAnd y zThen jx = True E。
2、直到高位小于低位为止 a = b%10 b = b10 ifb == 0如果最高位全是0，那么该数为降序数 return true return falseint main int n scanfquot%dquot，n。
3、ss2catchException e continue跳过 不可转换为数值的元素 ifd d2排序方式dltd2为降序，dd2为升序 arri = ss2arrj = ssss = ss2d = d2 return arr。
4、Dim C As Boolean， s%1 To 10Private Sub command1_clickFor i = 1 To 10 si = ValInputBoxquotquotPrint siIf i Mod 5 = 0 Then Print Next i For i = 1 To 10 For j = i To 10。
5、int a10int i，j，kint t输入10个数字到a中，略过for i=0ilt9i++ k = ifor j=i+1jlt10j++ if aklt aj 现在这样是降序排列，将lt改成，就变成升序排列 k =。
6、用ASCII码吧， 每个字母都有ASCII码，大小不一样，小写字母的比大写字母的大，z比a大。
7、源程序代码如下define _CRT_SECURE_NO_WARNINGSVS环境下需要，VC不需要 includeltstdioh头文件int main int i = 0int j = 0double temp = 0double a10 = 0 定义三个变量和一个。
8、includeltstdiohint main int n = 1， i = 0， j = 0， tmp = 0 int a100 = 0 printfquot你要输入多少个数quot scanfquot%dquot，n ifn lt 1 printfquot输入错误。
9、三个数，n取值3就行了For i = 1 To n 1 For j = 1 To ni If aj aj+1 Then temp=aj aj=aj+1 aj+1=temp End if Next j Next i。
10、include ltiostream#define N 100 预定义数组长度using namespace stdtypedef int DataType用DataType指代类型int，方便下面的交换，排序函数重用要对其它类型数据作排序时，只需要改变这个指代类型就行了void Swap。
