作者hebe52h (Aki)
站内Visual_Basic
标题Re: [VB6 ] 请问一个问题??麻烦各位大大了
时间Mon Jan 5 14:15:28 2009
※ 引述《hebe52h (Aki)》之铭言：
: 要做个大小的排序显示1~7
: 有7个数如:49 41 19 59 40 23 49
: 它会显示: 5 4 1 7 3 2 5
: 正确的显示:5 4 1 7 3 2 6
: 如何让第二个"49"显示成为六
: 意思就是要让相同的数字,也可以比出大小
: 较慢出现的数字较大
i=k(0) & k(1) & k(2) & k(3) & k(4) & k(5) & k(6)一开始产生的7个乱数
for x=0 to 6-1
for y=x+0 to 6
if k(x)>k(y) then
t=k(y)
k(x)=k(y)
k(y)=t
end if
next y
next x
j=k(0) & k(1) & k(2) & k(3) & k(4) & k(5) & k(6)...j是已经比完大小排序好的
for z=0 to 6
if t(z)=k(0) then
t(z)=1
elseif t(z)=k(1) then
t(z)=2
elseif t(z)=k(2) then
t(z)=3
.
.
.
elseif t(z)=k(6) then
t(z)=7
end if
用这种方式可以找出他们比完大小然後放在哪个位置
但是当出现两个或以上相同的数他们就无法比较相等的值的大小
我想要把相等的数较慢出现的还可以累加
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.115.12