1樓：匿名使用者
<%@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
'如果只要最大的，可以一次迴圈，只把最大冒泡出來
%>
2樓：匿名使用者
function bijiao(temparray)temparray = split(temparray,",")temp = temparray(0)
for i=1 to ubound(temparray)if temparray(i)>temp thentemp = temparray(i)
end if
next
bijiao = temp
end function
response.write bijiao("3,2,9,5,8")簡單的小演算法
asp中怎麼取出字串中的數字
3樓：匿名使用者
你好，給你個取數字的方法和例子：
<%str="0123tt9str"'含有01239數字，其他為字母，下面**可以把數字提取出來
for i=1 to len(str)
s=mid(str,i,1)
if asc(s)>=asc(0) and asc(s)<=asc(9) then
l=l&s
end if
next
response.write l
%>
asp提取出字串中的數字
4樓：匿名使用者
我懷疑你小學沒畢業。表達能力很低、看了3遍 沒看明白。廢話多。請原諒我的無理。
5樓：匿名使用者
aa=left("3658黑色",4)
asp 中怎麼取乙個字串的某幾位,用什麼函式？
asp.net提取字串中的數字
6樓：
public static string igetnumber(string str)
-]*", "");
}public static void main()結果:03-2015874
更符合要求的正則需要號碼的構造資訊
asp如何提取字串中的數值和字母
7樓：
使用"某某"二字對它分割
8樓：匿名使用者
不知道是什麼用處，為何不在數字和文字中間加上分隔符？
asp取出字串中的第乙個、第二個、第三個字元
9樓：知三四郎
str=「我今天心情很好"
for i=1 to 3
response.write(mid(str,i,1)&"
")next
-----------------------------------
呵呵，放鬆，一切都會好起來的！
10樓：匿名使用者
s = "我今天心情很好"
s1 = left(s, 3)
asp 字母和數字的字串，如何提取字串中的數字。比如：字串「km16」如何提取字串數字「16」
11樓：華仔成教
送你乙個函式吧，取得部分或全部字串中的數值部分。當sall為真時取得字串中所有數字
' 使用：varnum = val(numberstring, [false|true])
function val(numstr, sall)
if isnull(numstr) or numstr = "" then
val = 0: exit function
end if
dim i, ii, b
const n = "-.0123456789"
if vartype(sall) <> 11 and vartype(sall) <> 2 then
sall = false
else
sall = cbool(sall)
end if
for i = 1 to len(numstr)
ii = mid(numstr, i, 1)
if sall = true then '取出所有數字
if instr(1, n, ii) > 0 then
val = val & ii
b = isnumeric(val)
if i > 1 then
if b = false or right(val, 1) = "-" then
val = left(val, len(val) - 1)
end if
end if
end if
else '遇到非數字時退出
if instr(1, n, ii) = 0 then
exit for
else
val = val & ii
b = isnumeric(val)
if i > 1 then
if b = false or right(val, 1) = "-" then
val = left(val, len(val) - 1)
exit for
end if
end if
end if
end if
next
if isnumeric(val) then
val = cdbl(val)
else
val = 0
end if
end function
12樓：匿名使用者
判斷ascii碼 0~9 是 38 到 47
VB如何將數字字串轉換成數字用以計算
用val就可以了，比如a是字元型的變數 a 1500 b val a 這時候b就是1500 數值 了。 十六進位制自己搞個函式弄吧，a f 對應 10 15 然後按權位 加起來就10進位制了 hf0 十六進位制沒h。 蔡瑀 public function cdm byval val val repl...
未結束的字串常量，ASP 未結束的字串常量
程式不完整！if request action login thenusername request username password request password set rs server.createobject adodb.recordset rs.open sql,conn,3,3 ...
如何判斷字串中存在另外字串java
肖颯盤靈韻 1 public intindexof int ch string str 用於查詢當前字串中字元或子串，返回字元或子串在當前字串中從左邊起首次出現的位置，若沒有出現則返回 1。2 public intindexof int ch string str,intfromindex 該方法與...