问个比较大小疑点（100分啊）[

问个比较大小问题（100分啊）[

1.有12个数，比较这12数的大小，a1-a12,选出最大的！ 
别用PHP的ARSORT 之类啊。。。。 

2.把选出来的数和另外11数比较，a13-a23,删除比它大的数，选出除自己之外最大数！如果没有，就是自己！ 


把这2段话改成ASP语句啊。。谢谢，那个哥会！再次强调不能用PHP语句！ 


[解决办法]
首先给12个数按降序排序,第一个就是最大数,再给另外11个数按降序排序,然后拿前者的最大数与后者从第一个向后比较,结果就有了,简单.
[解决办法]
我提供你个方法arsort()这个方法是从大到小排队。你就用，写出后面的程序就行，这个arsort（）我已经完成了！就是说，那a1比较12数，删除比自己大的数，然后在剩余中选出最大的就好了！
[解决办法]
我就是想问，怎么删除比自己大数，比如说这个排列为12，11，......1,我现在这个数是9，怎删除12-10，选出8这个数，就问的是这个ASP程序！写个VB fuction也行啊
[解决办法]
不至于要排序一遍吧

探讨

首先给12个数按降序排序,第一个就是最大数,再给另外11个数按降序排序,然后拿前者的最大数与后者从第一个向后比较,结果就有了,简单.

[解决办法]

探讨

我就是想问，怎么删除比自己大数，比如说这个排列为12，11，......1,我现在这个数是9，怎删除12-10，选出8这个数，就问的是这个ASP程序！写个VB fuction也行啊

[解决办法]
<%Function NewOrder(sz)
Dim ali,icount,i,ii,j,itemp
ali=split(sz,",")
icount=UBound(ali)
For i=0 To icount
 For j=icount - 1 To i Step -1
If j+1 <= UBound(ali) Then
If int(ali(j))<int(ali(j+1)) Then
itemp=ali(j)
ali(j)=ali(j+1)
ali(j+1)=itemp
End If
End If
 Next
Next
For ii=0 to Ubound(ali)
 If ii = Ubound(ali) Then
NewOrder = NewOrder & ali(ii)
 Else
NewOrder = NewOrder & ali(ii) & ","
 End If
Next
End Function
%>'这个是从大到小排序，用这个选出，最大数An

然后在排序An和另外11个数
出来一个序列比如叫，array
然后dim a=slipt(array,",")
if a(11)=An then 
response.write a(11)
else
for i=0 to 11
if a(0)>=An then
next
else
response.write a(i)
end if 
end if
[解决办法]
if a(0)>=An then 
改一下是if a(i)>=An then 

查看更多 下一篇