VB高手解释选择排序排序

Question

1,选择排序和冒泡排序有什么不同

2,下面完全不懂解释一下,

为什么for i=1 to 9
这句什么意思p=i
为什么for j=i+1 to 10
如果a(p)>a(j) then p=j,冒泡好以不用then p=j， 这个p=j有什么用

if a(p)>a(j) then p=j

next j
temp=a(i)
a(i)=a(p)
a(p)=temp
next i

private sub form_load()
dim a(1 to 10) as integer
dim i as integer
dim j as integer
dim temp as integer
dim p as integer
print
print "排序前数组:";
for i=1 to 10
randomize
a(i)=((100-10)*rnd+10)
print a(i);" ";
next i
print
for i=1 to 9
p=i
for j=i+1 to 10
if a(p)>a(j) then p=j
next j
temp=a(i)
a(i)=a(p)
a(p)=temp
next i
print "排序后数组:";
for i=1 to 10
print a(i);" ";
next i
end sub

Answer 1

选择排序的过程：对比数组中前一个元素跟后一个元素的大小，如果后面的元素比前面的元素小则用一个变量k来记住他的位置，接着第二次比较，前面“后一个元素”现变成了“前一个元素”，继续跟他的“后一个元素”进行比较如果后面的元素比他要小则用变量k记住它在数组中的位置(下标)，等到循环结束的时候，我们应该找到了最小的那个数的下标了，然后进行判断，如果这个元素的下标不是第一个元素的下标，就让第一个元素跟他交换一下值，这样就找到整个数组中最小的数了。然后找到数组中第二小的数，让他跟数组中第二个元素交换一下值，以此类推。
冒泡排序的过程：比较相邻的元素。如果第一个比第二个大，就交换他们两个。对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。在这一点，最后的元素应该会是最大的数。针对所有的元素重复以上的步骤，除了最后一个。持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。
你给出的代码属于选择排序，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追问

解释得太清楚了，打字太多好辛苦，谢谢高手