选择排序法——1到100
来源:互联网 发布:怎样参加淘宝活动 编辑:程序博客网 时间:2024/06/05 15:44
Private Sub Command1_Click()
Cls
Me.Font.Size = 10
Dim a(100) As Integer
Dim i As Integer
For i = 1 To 100
a(i) = 10 + Int(Rnd() * 1000)
Print a(i)
Next i
Print
Dim j As Integer
For j = 1 To 99
For i = j + 1 To 100
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 100
Print a(i);
Next i
Print
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
Cls
Me.Font.Size = 10
Dim a(100) As Integer
Dim i As Integer
For i = 1 To 100
a(i) = 10 + Int(Rnd() * 1000)
Print a(i)
Next i
Dim j As Integer
For j = 1 To 99
For i = j + 1 To 100
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 100
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
- 选择排序法——1到100
- 选择排序法——1到10
- 选择排序法——1到1000
- 选择排序法——1到10000
- 选择排序1到100
- 选择排序1到1000
- 选择排序1到10000
- 排序—选择排序
- 排序—选择排序
- 排序算法1—插入排序、选择排序、冒泡排序
- 排序算法——选择排序法
- 选择排序法1-100
- 选择类排序法 — 简单选择排序
- 选择类排序法 — 简单选择排序
- 排序算法(1)——选择排序
- 排序1——冒泡,选择排序
- Java从入门到放弃——选择排序
- 选择排序——直接选择排序
- 冒泡排序法
- 基础级 - Date of PHP && JS
- 途牛原创|无线中心运营研发Redis酷实践
- java的继承关系中对象的加载和初始化顺序
- 最终实现任意个数字排序
- 选择排序法——1到100
- JAVA字符串格式化-String.format()的使用
- Sublime 文本或者代码编辑软件的使用
- java中的常见异常及错误和处理方法
- 软件破解
- Linux客户端远程访问windows服务器
- python中lock和rlock(递归锁)的区别
- 第7周 深入理解计算机系统(第二版) 知识总结 第一、二章
- 内部类小记