vb点虐 中的选择排序 vb中排序属性怎么设置

VB高手解释选择排序排序

选择排序的过程：对比数组中前一个元素跟后一个元素的大小，如果后面的元素比前面的元素小则用一个变量k来记住他的位置，接着第二次比较，前面“后一个元素”现变成了“前一个元素”，继续跟他的“后一个元素”进行比较如果后面的元素比他要小则用变量k记住它在数组中的位置(下标)，等到循环结束的时候，我们应该找到了最小的那个数的下标了，然后进行判断，如果这个元素的下标不是第一个元素的下标，就让第一个元素跟他交换一下值，这样就找到整个数组中最小的数了。然后找到数组中第二小的数，让他跟数组中第二个元素交换一下值，以此类推。

大理州网站建设公司成都创新互联公司,大理州网站设计制作，有大型网站制作公司丰富经验。已为大理州1000多家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱，请找那个售后服务好的大理州做网站的公司定做！

冒泡排序的察坦过程：比较相邻的元素。如果第一个比第二个大，就交换他们两个。对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。在这一点，最后败虚桐的元素应该会是最大的数。针对所有的元素重复以上的步骤，除了最后一个。持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较誉誉。

你给出的代码属于选择排序，For i=1 to 9是因为数组a只包含10个元素，按选择排序的要求，需要将数组前9个元素分别与后面的元素（从i+1起，直到10为止）比较大小；p=i的作用为把a(i)视为最小元素，记录a(i)的数组下标；p=j的作用为当a(j)比a(p)小时，记录a(j)的数组下标，p=j记录的是每一轮选择排序过程的最小值的数组下标。

选择排序和冒泡排序的排序过程对比（从小到大）：

选择排序(10个元素）----------- 冒泡排序（10个元素）

For i = 1 To 9 ------------------ For i = 9 To 1 Step -1

p = i

For j = i + 1 To 10 ------------- For j = 1 To i

If a(p) a(j) Then p = j ------- If a(j) a(j+1) Then 'j=i时,a(j+1)为每一轮的最大值

------------------------------------- temp = a(j + 1)

------------------------------------- a(j + 1) = a(j)

------------------------------------- a(j) = temp

------------------------------------ End If

Next j -------------------------- Next j

temp = a(i)

a(i) = a(j)

a(j) = temp

Next i -------------------------- Next i

VB选择法排序

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Int(Rnd * 10)

Print a(i);

Next i

Print

'以上十随机得出10个数

For i = 1 To 9 '这里开始是双重循环

For j = i + 1 To 10

If a(i) a(j) Then '如果前一个数大于后一个数则交换位置

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Print a(i);

Next i

Print a(i);

End Sub

I等于1时 就是拿第一位和第二位比较 比较大的的数排后面 然后比较第一位和第谈备三位 For j = i + 1

To 10 直到比较到最后一位

i=2 时也是如此 循环9次就完成排序

5 3 2 7

i=1 时

J=2时 3 5 2 7

J=3时 2 5 3 7

j=4时 2 5 3 7

I=2时含亏毁

j=3时 2 3 5 7

扩展资料

Private Sub 空基Command1_Click()

Dim a(10) As Integer

Dim b As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i = 1 To 10

a(i) = Int(Rnd * 90 + 10)

Print a(i);

Next i

Print

For i = 1 To 9

k = i

For j = k + 1 To 10

If a(j)  a(k) Then k = j

Next j

If a(i)  a(k) Then

b = a(i)

a(i) = a(k)

a(k) = b

End If

Next i

For i = 1 To 10

Print a(i);

Next i

Print

End Sub

参考资料：百度百科 - 选择法排序

VB中如何给指定的数组排序？？

Private Sub Command4_Click()

Dim t As clerk, i%, j%

For i = 0 To n - 1

  For j = i To n - 2

      If a(i).vc a(j + 1).vc Then

          t = a(i): a(i) = a(j + 1): a(j + 1) = t

      End If

  Next j

Next i

Picture2.Cls

Picture2.Print "学号       春嫌   姓名           VC            VB"

Picture2.Print "---------------------------------------------"

For i = 0 To n - 1

  Picture2.Print a(i).number, a(i).name, a(i).vc, a(i).vb

  Print

Next i

End Sub

扩展资料

vb数组排序思路：

1、冒泡排序法：

位置相邻两数进行两两比较，在比较时如果发现前面的数比后面的数大，则进行交换，都比较完一轮后，把最大一个数放到最后，如此进行下去即可完成冒泡排序。

2、比较交换法

假设第一个数最小，然后第一个数依次与后面的每个数都进行比较， 若比较时发现后面的数比第一个数小， 则两数位置进行交换， 全部都比较完算一轮，每一轮比较完后，第一个数是最小的数，如此进行即可完成比较排序。

3、选择排序

假设第一个数最小，接着记下最小数所在的位置，然后将最小数依次与后面的每一个数都进行比较，若比较时发现后面的数比最小的数还小，则修改最小数所在位置，全部都羡稿比较完算一轮。

每一轮比较完后，最小数所在的位置是否跟假设的是同一个位置，若不是，则最小数与扒派手第一个数进行交换位置，如此进行即可完成选择排序。