題目 題型：代碼題 難度：★★★★★ 
13.3萬熱度
用選擇排序法子過程對已知的若干整數按遞增次序排列Subsort(a())Dimimin%,i%,j%Fori=0ToUB
用選擇排序法子過程對已知的若干整數按遞增次序排列
Sub sort(a())
Dim imin%, i%, j%
For i = 0 To UBound(a) - 1
imin = i
For j = i + 1 To UBound(a)
If a(j) < a(imin) Then imin = j
Next j
t = a(i): a(i) = a(imin): a(imin) = t
Next i
End Sub
Private Sub Form_Click()
Dim b(), i%
b = Array(8, 9, 4, 2, 6)
Call sort(b())
For i = 0 To UBound(b)
Print b(i);
Next i
End Sub
浙公網安備 33062402000520號