台灣最大程式設計社群網站
線上人數
1474
 
會員總數:246209
討論主題:189782
歡迎您免費加入會員
討論區列表 >> ASP >> 陣列中的最大值如何計算
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
陣列中的最大值如何計算
價值 : 10 QP  點閱數:756 回應數:1
樓主

tiger
門外漢
0 14
480 53
發送站內信

郭靜, 張正三, 資優生, 林輸好, 王家家, 張正三, 資優生, 林輸好, 張曉明,張正一, 張正三, 林輸好, 王家家,張正三, 林輸好, 張曉明,資優生, 林輸好, 王家家,郭靜, 林輸好, 張曉明, 業品源,郭靜, 張正三, 王家家,張正三, 資優生, 王家家,


從上述陣列統計個人得票數,最多和前五名各是誰?程式如何寫?各位大大可以幫忙嗎?

本篇文章發表於2014-04-17 21:50
1樓
作者回應

tiger
檢舉此回應
我自己想的,先將k1,k2放入二維陣列,再對k2排序,映出相對最大值人名,但結果有問題耶,請大家幫忙
k1=(郭靜, 張正三, 資優生, 林輸好, 王家家)
k2=(5,5,15,3,9)//得到票數

k1=split(aa,",")
k2=split(bb,",")
for i=0 to ubound(k1)
for j=0 to ubound(k2)
redim kk(i,j)
next
next
Sort = 1
Dim t1,t2
t1 = Timer

If Sort = 1 Then '===循序排序法===
For i = 0 To UBound(k2)
For j = 0 To UBound(k2)
If k2(i) < k2(j) Then
temp = k2(i)
k2(i) = k2(j)
k2(j) = temp
End If
Next
Next
End If
aa=k2(ubound(k2))
response.write kk(aa,aa)
本篇文章回覆於2014-04-19 19:11
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.