(完整版)选择排序专题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1选择升序（6397541.10）
Private Sub Command1_Click()
For i = 1 To n - 1
k = i
For j = i + 1 To n
If d(k) >d(j) Then k = j
Next j
If i <> k Then
t = d(i): d(i) = d(k): d(k) = t
End If
Next i
End Sub
2双向选择排序算法。在经典的选择排序基础上，如果在选择出最小数的同时，也能选择预见最大数并将两数放置合适位置，这样就使排序效率提高一倍。依照上述双向选择排序的算法，小张编写了一个VB程序，功能如下：在列表框LIST1中显示排序前数据，单击“排序”按钮command1在列表框LIST2中显示这些数据按升序排序后的结果。运行效果如下图所示。
Const n=10
Dim b(1 To n) As Integer
Private Sub command1_Click()
Dim i As Integer
Dim t As Integer
For i = 1 To n-1……①
For j = i To n ……②
...

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：完整版 Integer Command Private click