Dim sngsq()，sngt As Single '輸入原始數據。
N = Val(InputBox("請輸入排序數n的值"))
ReDim sngsq(n)'重新定義數組。
打印“排序前”
對於i = 1到n
MsgBox "請輸入第壹個" &；Str(i)和amp"號碼:"
sngsq(I)= Val(InputBox(" Please enter "))'將輸入數據轉換為數值類型。
打印sngsq(I)；
然後
打印
打印“排序後”
整理
對於i = 1至n - 1
Intmin = i '對第I遍排序，最初假設第I個元素是最小的。
對於j = i+1到n '求最小的元素序號。
如果sngsq(j)& lt；sngsq(intmin)則intmin = j
下壹個j
用第I個元素交換找到的最小元素。
sngt = sngsq(i)
sngsq(i) = sngsq(intmin)
sngsq(intmin) = sngt
接下來我
打印輸出
對於i = 1到n
打印sngsq(I)；無換行符輸出
接下來我
輸出後保存即可。