| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1168 人关注过本帖
标题:就是数一堆数字,我想知道其中一个排第几
只看楼主 加入收藏
liuzhibiao2632
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-10-13
收藏
 问题点数:0 回复次数:5 
就是数一堆数字,我想知道其中一个排第几
如:7,8,9,10,11,15,25,81,1,...怎么查11在里面按大到小排在第几位呢?
高手救救我啊...在线等的啊...
搜索更多相关主题的帖子: 数字 
2008-11-04 11:13
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
如果是按,号分割用Split函数就能解决这个问题
<%
Function ReLocation(Str,Num)
   Dim tAry,i,Loc
   Loc=-1
   tAry=Split(Str,",")
   For i=0 To Ubound(tAry)
       If CInt(tAry(i))=Num Then
          Loc=i
          Exit For
       End IF
   Next
   ReLocation=Loc
End Function
Dim tStr
tStr="7,8,9,10,11,15,25,81,1"
Respons.Write "字符串'"&tStr&"'中11在第"&ReLocation(tStr,11)&"位"
%>
2008-11-04 12:26
tianyu123
Rank: 1
等 级:新手上路
威 望:2
帖 子:576
专家分:0
注 册:2007-8-26
收藏
得分:0 
做个参考
<%
function ss(str,num)
str=str
num=num
s1=1
s=split(str,",")
for i=0 to ubound(s)-1
    for j=i+1 to ubound(s)
        if cint(s(i))<cint(s(j)) then
           temp=s(i)
           s(i)=s(j)
           s(j)=temp
        end if
    next
next
for k=0 to ubound(s)
    if s(k)<>cstr(num) then
       s1=s1+1
    else
        exit for
    end if
next
ss=s1
end function
dim str
str="7,8,9,10,11,15,25,81,1"
response.write"11 在数字 "&str&" 中按大到小排在第<font color=red>"&ss(str,11)

&"</font>位"
%>

[[it] 本帖最后由 tianyu123 于 2008-11-4 15:35 编辑 [/it]]

改变一切,须从改变观念开始!
2008-11-04 15:34
ak42d
Rank: 1
来 自:火星
等 级:新手上路
帖 子:53
专家分:0
注 册:2008-7-1
收藏
得分:0 
高手!~~~

我看不懂   厲害啊

軟件就像性,免費的總比花錢的好。
2008-11-04 15:39
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
用快排吧……
2008-11-04 22:55
liuzhibiao2632
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-10-13
收藏
得分:0 
谢了..
2008-11-05 08:46
快速回复:就是数一堆数字,我想知道其中一个排第几
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021825 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved