选择排序法——1到1000
来源:互联网 发布:期货配资软件 编辑:程序博客网 时间:2024/05/19 00:43
Private Sub Command1_Click()
Cls
Me.Font.Size = 10
Dim a(1000) As Integer
Dim i As Integer
For i = 1 To 1000
a(i) = 10 + Int(Rnd() * 1000)
Print a(i)
Next i
Print
Dim j As Integer
For j = 1 To 999
For i = j + 1 To 1000
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 1000
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(1000) As Integer
Dim i As Integer
For i = 1 To 1000
a(i) = 10 + Int(Rnd() * 1000)
Print a(i)
Next i
Dim j As Integer
For j = 1 To 999
For i = j + 1 To 1000
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 1000
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到1000
- 选择排序法——1到10
- 选择排序法——1到100
- 选择排序法——1到10000
- 选择排序1到1000
- 选择排序1到100
- 选择排序1到10000
- 排序—选择排序
- 排序—选择排序
- 选择排序法1-1000
- 排序算法1—插入排序、选择排序、冒泡排序
- 排序算法——选择排序法
- 选择类排序法 — 简单选择排序
- 选择类排序法 — 简单选择排序
- 排序算法(1)——选择排序
- 排序1——冒泡,选择排序
- Java从入门到放弃——选择排序
- 选择排序——直接选择排序
- 使用distcp并行拷贝大数据文件
- JavaScript实现加法运算例子(2种方法)
- 禁用ecshop缓存,关闭ecshop缓存功能
- mysql 带参数的游标
- python中if __name__ == '__main__': 的解析
- 选择排序法——1到1000
- Android Logcat输出为何能自动换行输出的原因以及多\n的作用
- mac下 ffmpeg 编译到android平台(支持 frei0r)
- React实战——基于百度IFE学院task50
- @interface 自定义annotation 通过AOP来实现人员操作日志
- springmvc参数绑定常用注解
- 23变成二进制
- iOS开发设置UISearchBar的输入背景框、提示文字等
- 幂等一二三