Dimi,j,intminAsInteger,nAsInteger

Dimsngsq(),sngtAsSingle'輸入原始數據

n=Val(InputBox("請輸入排序的個數N的值"))

ReDimsngsq(n)'重新定義數組

Print"排序前"

Fori=1Ton

MsgBox"請輸入第"&Str(i)&"個數:"

sngsq(i)=Val(InputBox("請輸入"))'將輸入的數據轉換為數值型

Printsngsq(i);

Next

Print

Print"排序後"

'排序

Fori=1Ton-1

intmin=i'對第i遍排序，初始假定第i個元素最小

Forj=i+1Ton'找出最小的元素序號

Ifsngsq(j)<sngsq(intmin)Thenintmin=j

Nextj

'將找出的最小元素與第i個元素交換

sngt=sngsq(i)

sngsq(i)=sngsq(intmin)

sngsq(intmin)=sngt

Nexti

'打印輸出

Fori=1Ton

Printsngsq(i);'不換行輸出

Nexti