帮忙,我的数组冒泡排序为什么不对呢?

seesea125 2003-06-13 10:21:30
这是个二维数组,我想根据它的第一维进行冒泡排序,但是结果总是不对,各位高手看看错在哪里了?还有对二维数组的第一维进行排序的更好方法吗?
dim j,k,x,cnt
dim talk(5,1)
dim tmp(0,1)
y=5
cnt=y-1
for j=0 to cnt-1
for k=1 to cnt
if talk(k,0)>talk(j,0) then
for x=0 to 1
tmp(0,x)=talk(k,x)
talk(k,x)=talk(j,x)
talk(j,x)=tmp(0,x)
next
end if
next
next
for k=0 to 5
response.write talk(k,0)
next
%>
...全文
62 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Andyken 2003-06-13
  • 打赏
  • 举报
回复
<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
</head>
<body>
<%
dim i
dim j
dim k,g
dim Arr1
dim Arr2
i=5
j=1
redim Arr1(i,j)
redim Arr2(0,j)
For g=0 to j
For k=0 to i

Arr1(k,g)=g+k
response.Write "Arr1("&k&","&g&")="&Arr1(k,g)&"<br>"
Next
response.Write "//////////////////////////////////////////////////<bR>"
Next

response.Write "<Hr>"


For g=0 to j
For k=1 to i
For F=1 to i
''response.Write "Arr1("&F&","&g&")="&Arr1(F,g)&"----->"
'' response.Write "Arr1("&F-1&","&g&")="&Arr1(F-1,g)&"<br>"

if Arr1(F,g)>Arr1(F-1,g) then
'' response.Write "Arr1("&F&","&g&")>Arr1("&F-1&","&g&")<br>"
tmp_=Arr1(F,g)
Arr1(F,g)=Arr1(F-1,g)
Arr1(F-1,g)=tmp_
''response.Write "<b>After-----------------------------------------</b><br>"
'' response.Write "Arr1("&F&","&g&")="&Arr1(F,g)&"----->"
'' response.Write "Arr1("&F-1&","&g&")="&Arr1(F-1,g)&"<br>"
''response.Write "<b>End -----------------------------------------</b><br>"
end if
Next
'' response.Write "************************************************<bR>"
Next

Next
response.Write "<font color=red>After pop-------------------------------------!</font><Br>"
For g=0 to j
For k=0 to i

response.Write "Arr1("&k&","&g&")="&Arr1(k,g)&"<Br>"
Next
response.Write "=========================================<br>"
Next

response.Write "<Hr>"
%>


</body>
</html>
Andyken 2003-06-13
  • 打赏
  • 举报
回复
你是不是想把数组的一维和二维的最大值取出来啊?
Andyken 2003-06-13
  • 打赏
  • 举报
回复
你的数组talk and tmp 都没有初始化呢!
怎么进行这样的比较:talk(k,0)>talk(j,0)

28,404

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧