利用数组进行冒泡法排序举例
2007-04-01 19:13
162 查看
语法:VB .net
环境:.NetFrameword1.1
Dim i, j, k As Integer
Dim tmp As Integer
Dim sr(20) As String
Dim rr(20) As String
sr(1) = 2
sr(2) = 11
sr(3) = 1
sr(4) = 4
sr(5) = 3
sr(6) = 12
sr(7) = 5
sr(8) = 13
sr(9) = 7
sr(10) = 14
sr(11) = 6
sr(12) = 18
sr(13) = 8
sr(14) = 17
sr(15) = 9
sr(16) = 10
sr(17) = 15
sr(18) = 19
sr(19) = 16
For i = 1 To 19
For j = 1 To 20 - i
If Convert.ToInt16(sr(j)) < Convert.ToInt16(sr(j + 1)) Then
tmp = sr(j)
sr(j) = sr(j + 1)
sr(j + 1) = tmp
End If
Next
Next
For i = 1 To 19
T1.Text = T1.Text + sr(i) + vbCrLf
Next
环境:.NetFrameword1.1
Dim i, j, k As Integer
Dim tmp As Integer
Dim sr(20) As String
Dim rr(20) As String
sr(1) = 2
sr(2) = 11
sr(3) = 1
sr(4) = 4
sr(5) = 3
sr(6) = 12
sr(7) = 5
sr(8) = 13
sr(9) = 7
sr(10) = 14
sr(11) = 6
sr(12) = 18
sr(13) = 8
sr(14) = 17
sr(15) = 9
sr(16) = 10
sr(17) = 15
sr(18) = 19
sr(19) = 16
For i = 1 To 19
For j = 1 To 20 - i
If Convert.ToInt16(sr(j)) < Convert.ToInt16(sr(j + 1)) Then
tmp = sr(j)
sr(j) = sr(j + 1)
sr(j + 1) = tmp
End If
Next
Next
For i = 1 To 19
T1.Text = T1.Text + sr(i) + vbCrLf
Next
相关文章推荐
- 利用Arrays类中的方法对数组进行排序
- 矩阵算法----------利用随机数组的特性来定义矩阵,并进行加、乘、置换的运算
- 利用NSCountedSet对数组进行排序并清除相同对象
- 利用指针对数组&句子进行逆序
- java基础学习记录之利用数组查表法进行进制转换优化的学习与练习七(十转二、十转八、十转十六)
- 利用Arrays.sort(Array,Comparator)对数组进行排序
- Vb.net 利用数组进行组合查询
- C++利用指针数组和快排对输入的字符串进行排序
- javascript利用map,every,filter,some,reduce,sort对数组进行最优化处理
- 利用随机类生成数组,并用冒泡排序以及选择排序对不同数组的元素进行从小到大的排序
- 利用sort函数对数组进行排序【java】
- 利用C#原有函数对数组进行降序排列
- 利用数组模拟栈实现简单的表达式中缀转后缀并进行计算
- 利用sort()对结构体数组进行排序
- 利用函数调用,对数组进行初始化,更改,清零,逆置等操作
- Numpy 利用数组进行数据处理
- 利用集合进行数组的排序
- 桶排序:利用数组下标进行排序
- php利用数组来进行引用传递
- 利用函数调用,对数组进行初始化,更改,清零,逆置等操作