找壹個VB算法。

私有子命令1_Click()

Cls

使不規則化

Dim Sum(5到20)為整數，AbsoluteDeviation(5到20)為整數，OriginalIndex(5到20)為整數

Dim秩(1到16)為整數

For i = LBound(Sum)至UBound(Sum)

對於j = 1到I

總和(i) =總和(i) +整數(Rnd * 100 + 1)

絕對偏差(i) =絕對偏差(總和(i) - 500)

下壹個j

OriginalIndex(i) = i

打印“Sum(& amp；格式(I，“00”)& amp；”)" & ampFormat(Sum(i)，" @@@@ ")，Format(AbsoluteDeviation(i)，" @@@@ ")

接下來我

絕對偏差排序和，絕對偏差，原始指數，排名

打印

For i = LBound(AbsoluteDeviation)到UBound(AbsoluteDeviation)

打印“Sum(& amp；格式(OriginalIndex(i)，" 00 ")& amp；”)" & ampFormat(Sum(i)，" @@@@ ")，Format(AbsoluteDeviation(i)，" @ @ @ @ " & amp；空間(三)& amp格式(等級(i - 4)，“@@”)

接下來我

末端接頭

public Sub AbsoluteDeviationSort(s()為整數，a()為整數，o()為整數，r()為整數)

Dim b為整數

對於i = LBound(a)至UBound(a) - 1

對於j = i + 1到UBound(a)

如果a(j)& lt；a(我)然後

t = a(i)

a(i) = a(j)

a(j) = t

t = s(i)

s(i) = s(j)

s(j) = t

t = o(i)

o(i) = o(j)

o(j) = t

如果…就會結束

下壹個j

接下來我

r(1) = 1

For i = LBound(r) + 1至UBound(r)

如果a(i + 4) = a(i + 3 ),則

r(i) = r(i - 1)

其他

r(i) = i

如果…就會結束

接下來我

末端接頭

運行界面: