冒泡排序法
来源:互联网 发布:怎样参加淘宝活动 编辑:程序博客网 时间:2024/05/22 02:09
Private Sub Command1_Click()
Me.Font.Size = 6
Dim a(10) As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Print
For i = 2 To 10
If a(1) < a(i) Then
swap a(1), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 3 To 10
If a(2) < a(i) Then
swap a(2), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 4 To 10
If a(3) < a(i) Then
swap a(3), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 5 To 10
If a(4) < a(i) Then
swap a(4), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 6 To 10
If a(5) < a(i) Then
swap a(5), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 7 To 10
If a(6) < a(i) Then
swap a(6), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 8 To 10
If a(7) < a(i) Then
swap a(7), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
For i = 9 To 10
If a(8) < a(i) Then
swap a(8), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
Me.Font.Size = 6
Dim a(10) As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
For i = 2 To 10
If a(1) < a(i) Then
swap a(1), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 3 To 10
If a(2) < a(i) Then
swap a(2), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 4 To 10
If a(3) < a(i) Then
swap a(3), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 5 To 10
If a(4) < a(i) Then
swap a(4), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 6 To 10
If a(5) < a(i) Then
swap a(5), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 7 To 10
If a(6) < a(i) Then
swap a(6), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 8 To 10
If a(7) < a(i) Then
swap a(7), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
For i = 9 To 10
If a(8) < a(i) Then
swap a(8), a(i)
End If
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
0 0
- 【排序】冒泡排序法
- 常用排序-冒泡法排序
- 排序法之冒泡排序
- php排序&冒泡法排序
- 排序之冒泡排序法
- 排序算法--冒泡排序法
- 【PHP】冒泡排序法排序
- 排序算法--冒泡排序法
- 冒泡法排序
- 排序:冒泡法
- 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡排序法
- java 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡法排序
- Android入门开发之Intent
- kafka消费API理解
- mysql right函数
- JSP的注释
- SpringMVC MyBatis 集成 HelloWorld
- 冒泡排序法
- 基础级 - Date of PHP && JS
- 途牛原创|无线中心运营研发Redis酷实践
- java的继承关系中对象的加载和初始化顺序
- 最终实现任意个数字排序
- 选择排序法——1到100
- JAVA字符串格式化-String.format()的使用
- Sublime 文本或者代码编辑软件的使用
- java中的常见异常及错误和处理方法