问答1 问答5 问答50 问答500 问答1000
网友互助专业问答平台

首页

互助专区

登录

注册

asp如何取一个数字字符串中的最大数

提问网友 发布时间：2025-01-15 14:39
我来回答
声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com
共2个回答
热心网友 回答时间：2025-01-15 16:29
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim num
num = "3,2,9,5,8"
num = Split(num,",") '将字符串拆分为数组
response.Write Max(num)

'冒泡排序
Function Max(Arr)
If not IsArray(Arr) then Exit Function '如果非数组则跳出
dim Bound,isOk,i,t
Bound = UBound(Arr) '数组最大角标
isOk = False '标记是否有排序变化
Do while Bound > 0 and not isOk
isOk = True '如果比较后没有发生排序变化，说明排序已经正确，isOk值为True，直接跳出循环
For i = 0 to Bound - 1 '相邻两元素比较，小的往后排
If Arr(i) < Arr(i + 1) then
t = Arr(i)
Arr(i) = Arr(i + 1)
Arr(i+1) = t
isOk = False
End If
Next
Bound = Bound - 1 '循环一轮后，最小的排到最右了，再比较左（Bound-1）个元素，陆续把最小的排到最右
Loop
'得到Arr数组是由大到小排序
Max = Arr(0) '这里可以返回最大最小的都可以
End Function
'如果只要最大的，可以一次循环，只把最大冒泡出来
%>
热心网友 回答时间：2025-01-15 16:35
Function BIJIAO(TempArray)
TempArray = Split(TempArray,",")
Temp = TempArray(0)
For i=1 To UBound(TempArray)
If TempArray(i)>Temp Then
Temp = TempArray(i)
End If
Next
BIJIAO = Temp
End Function
Response.Write BIJIAO("3,2,9,5,8")

简单的小算法
热心网友 回答时间：2025-01-15 16:33
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim num
num = "3,2,9,5,8"
num = Split(num,",") '将字符串拆分为数组
response.Write Max(num)

'冒泡排序
Function Max(Arr)
If not IsArray(Arr) then Exit Function '如果非数组则跳出
dim Bound,isOk,i,t
Bound = UBound(Arr) '数组最大角标
isOk = False '标记是否有排序变化
Do while Bound > 0 and not isOk
isOk = True '如果比较后没有发生排序变化，说明排序已经正确，isOk值为True，直接跳出循环
For i = 0 to Bound - 1 '相邻两元素比较，小的往后排
If Arr(i) < Arr(i + 1) then
t = Arr(i)
Arr(i) = Arr(i + 1)
Arr(i+1) = t
isOk = False
End If
Next
Bound = Bound - 1 '循环一轮后，最小的排到最右了，再比较左（Bound-1）个元素，陆续把最小的排到最右
Loop
'得到Arr数组是由大到小排序
Max = Arr(0) '这里可以返回最大最小的都可以
End Function
'如果只要最大的，可以一次循环，只把最大冒泡出来
%>
热心网友 回答时间：2025-01-15 16:33
Function BIJIAO(TempArray)
TempArray = Split(TempArray,",")
Temp = TempArray(0)
For i=1 To UBound(TempArray)
If TempArray(i)>Temp Then
Temp = TempArray(i)
End If
Next
BIJIAO = Temp
End Function
Response.Write BIJIAO("3,2,9,5,8")

简单的小算法

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决
等待解决
asp中如何筛选一个字段中的多个数据? asp.net从sql上取数 asp 取冒号或者标点符号前的数据 data=spilt("not/b","/") asp中,如何得到data有几个组员?比如通过length... ASP.NET怎么判断一个数组里面是否还有某几个值 毛呢大衣山羊毛好还是绵羊毛好 江苏马路扫地机充电问题 山东垃圾扫地车配件 辽宁驾驶式半封闭扫地机维修 陕西手推式扫地机维修 电动扫地车常见故障及解决方法 电动扫地车维护保养方法 想把一个新卫生间,改成两个小点的卫生间,坐便器的排水管怎么改才好 形容总吹牛的人用什么词语 说大话炫耀是哪个词语的解释 海味三鲜有什么家常做法分享? 干鲜贝怎么做好吃 干鲜贝的做法 椒红虾仁鲜贝制作 液晶电视机有重影是否正常呢 按揭一辆十一万八千八的二手车,首付百分之五十,三年还清,我该首付多少... 张勋为什么复辟? 请问用iphone5s想下载免费的minecarft(我的世界)怎么下啊?怎么下载个游... 买iphone5s想下载游戏是不是必须收费啊? 苹果5s下载软需要收费吗? iphone5s下载生存战争(游戏)要收费!怎么回事,怎么解决? 长虹电视背光灯输出电压是多少 长虹有没有led42c2000这款机型 搬家当天禁忌什么东西 电子商务专业有必要专升本吗 电子商务统招专升本有必要吗 电子商务专业专升本有意义 电子商务专业升本有前途吗 电子商务专业的学生有必要升本吗 此组词(此组词语) 妄想山海 妄想山海怎么扫码登录? 妄想山海 妄想山海电脑上能玩吗? 妄想山海 妄想山海如何扫码登录账号? 妄想山海 妄想山海pc端怎么下载? 测绘工程产品价格计算 2009测绘产品成本费用定额中1:2000的比例尺幅指的是多大? 佛跳墙的味道是怎样的呢?

湘ICP备2022005869号-1

违法及侵权请联系：E-MAIL:1656858193@qq.com

Top