- 博客(2)
- 收藏
- 关注
RSS订阅原创 选择排序法
首先介绍一下代码Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() Form_Load End SubPrivate Sub Command2_Click() p = “” For i = 1 To 9 '选择排序外循环 For j = i + 1 To 10 '内循环 If
2016-05-20 21:40:01
876
38
原创 冒泡排序法
首先是代码介绍Dim a(1 To 10)Private Sub Command1_Click() Form_Load End Sub Private Sub Command2_Click() p = “”For i = 1 To 9 '冒泡排序 For j = 1 To 10 - i If a(j) < a(j + 1) Then '相邻两个数比较
2016-05-20 21:31:54
805
36
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人