Re: [VB6 ] 請問一個問題??麻煩各位大大了
※ 引述《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
討論串 (同標題文章)