锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net选择排序法 vb应用选择法对数组a按升序排列( 二 )

IT技术排序


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、冒泡排序法：
位置相邻两数进行两两比较vb.net选择排序法，在比较时如果发现前面的数比后面的数大vb.net选择排序法，则进行交换vb.net选择排序法，都比较完一轮后vb.net选择排序法，把最大一个数放到最后，如此进行下去即可完成冒泡排序 。
2、比较交换法
假设第一个数最?。?然后第一个数依次与后面的每个数都进行比较， 若比较时发现后面的数比第一个数小，则两数位置进行交换， 全部都比较完算一轮，每一轮比较完后 ， 第一个数是最小的数，如此进行即可完成比较排序 。
3、选择排序
假设第一个数最小，接着记下最小数所在的位置 ， 然后将最小数依次与后面的每一个数都进行比较，若比较时发现后面的数比最小的数还小 ， 则修改最小数所在位置 ， 全部都比较完算一轮 。
每一轮比较完后，最小数所在的位置是否跟假设的是同一个位置，若不是，则最小数与第一个数进行交换位置，如此进行即可完成选择排序 。
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时 就是拿第一位和第二位比较 比较大vb.net选择排序法的的数排后面 然后比较第一位和第三位 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.net选择排序法：百度百科 - 选择法排序
关于vb.net选择排序法和vb应用选择法对数组a按升序排列的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：删除mongodblog，删除mongodb的一个月前数据

下一篇：excel怎么做趋势图，excel表格怎么制作趋势图