vb.net 2010下求最大值、最小值及两种排序方法
来源:互联网 发布:山西省建筑业网络快报 编辑:程序博客网 时间:2024/04/29 07:57
算法:最大值,最小值及位置
Dim A%() = {8, 6, 9, 3, 2, 7}
Dim intMin%, intPos%, i%
intMin = A(0) ‘最小值’
intPos = 0 ‘位置’
For i = 1 To 5
If A(i) < intMin Then
intMin = A(i)
intPos = i
End If
Next
Debug.Print(intMin & " " & intPos)
End Sub
算法:排序——选择法
Dim xx%() = {18, 6, 9, 13, 2, 7}
Dim i As Integer, j As Integer
For i = 0 To 4
For j = i + 1 To 5
‘“>”从小到大排列,XX(1)最小
If xx(i) > xx(j) Then
Swap(xx(i), xx(j))
End If
Next j
Next i
For i = 0 To 5
Label1.Text &= xx(i) & Space(3)
Next i
算法:排序——冒泡法
Dim xx%() = {8, 6, 9, 3, 2, 7}
Dim i%, j%
Label1.Text = "排序前: 8, 6, 9, 3, 2, 7 " & vbCrLf & "排序后 :"
For i = 0 To 3
For j = 0 To 4 – i
‘“>”从小到大排列,XX(1)最小
If xx(j) > xx(j + 1) Then
Swap(xx(i), xx(j + 1))
End If
Next
Next
For i = 0 To 5
Label1.Text &= xx(i) & ","
Next
Dim A%() = {8, 6, 9, 3, 2, 7}
Dim intMin%, intPos%, i%
intMin = A(0) ‘最小值’
intPos = 0 ‘位置’
For i = 1 To 5
If A(i) < intMin Then
intMin = A(i)
intPos = i
End If
Next
Debug.Print(intMin & " " & intPos)
End Sub
算法:排序——选择法
Dim xx%() = {18, 6, 9, 13, 2, 7}
Dim i As Integer, j As Integer
For i = 0 To 4
For j = i + 1 To 5
‘“>”从小到大排列,XX(1)最小
If xx(i) > xx(j) Then
Swap(xx(i), xx(j))
End If
Next j
Next i
For i = 0 To 5
Label1.Text &= xx(i) & Space(3)
Next i
算法:排序——冒泡法
Dim xx%() = {8, 6, 9, 3, 2, 7}
Dim i%, j%
Label1.Text = "排序前: 8, 6, 9, 3, 2, 7 " & vbCrLf & "排序后 :"
For i = 0 To 3
For j = 0 To 4 – i
‘“>”从小到大排列,XX(1)最小
If xx(j) > xx(j + 1) Then
Swap(xx(i), xx(j + 1))
End If
Next
Next
For i = 0 To 5
Label1.Text &= xx(i) & ","
Next
0 0
- vb.net 2010下求最大值、最小值及两种排序方法
- Flex4.6 ArrayCollection求最大值,最小值,排序
- java求最大值的两种方法
- 求一组数据中的最大值及最小值
- 求最大值,最小值及中间值
- 求两正整数的正差值and求四个整数的最大值和最小值以及由大到小排序
- C++数组求最大值及最小值最快方法(3[n/2]的时间效率)
- 求最大值与最小值
- 求最大值和最小值
- 求最大值和最小值
- 求最大值最小值
- 求最大值最小值
- 求最大值和最小值
- awk 求最大值,最小值
- 求最大值,最小值
- 求最大值、最小值、平均值
- 求最大值 最小值 平均值
- 求int型List集合的最小值最大值排序
- 第十一天
- [Android] ImageView.ScaleType设置图解
- java与C之间的通信
- GC算法精解(复制算法与标记/整理算法)
- node.js笔记(3)
- vb.net 2010下求最大值、最小值及两种排序方法
- MongoDB--修改和查询
- Ubuntu安装StaruUML
- encode_one_frame ()中几个主要函数说明
- Maven工程的pro.xml报错处理
- 关于应用Java创建泛型创建链表
- 2016-10-11课后练习
- java中的break与continue用法
- Java:注解(Annotation)深度理解 自定义注解