今天学习了刘金玉老师VB编程教程的第25期，学习的主要内容是选择排序法。

1.选择排序法就是在冒泡排序法的基础上的一个升级。它没有每一趟的比较中将值进行交换，而是一趟交换一次值。每一趟比较出来，我们筛选出最小(大）值的索引，然后每一趟中，根据这个索引去进行值的交换。每次对数据的比较过程中，筛选出最小(大）的按个值的索引，然后再交换。

2.掌握选择排序法的原理:关键是记录最小值的索引。

3.每一轮比较的时候，只能与后面的数值去比较，因为我们已经把最小的数值放在最前面。

4.案例：新建7个text控件组，将text属性内的数据按从小到大的顺序进行排序。

①输入代码：

Private Sub Command1_Click()

Dim i%, j%

For i = 0 To 6 Step 1 '代表有几趟比较

Dim mindex%

mindex = i

For j = i l To 6 Step 1

If Val(Text1(mindex).Text) > Val(Text1(j).Text) Then

mindex = j

End If

Next j

Dim t%

t = Val(Text1(i).Text)

Text1(i).Text = Val(Text1(mindex).Text)

Text1(mindex).Text = t

Next i

End Sub

②点击运行后，我们可以看到运行代码后，将文本框内的数据自动从小到大进行排列，我们也可以在上面七个文本框内输入想要排序的数据，然后运行得到排序的结果。

今天又是一节烧脑的课程，慢慢消化吧。