选择排序法1-10000
来源:互联网 发布:python 执行adb 编辑:程序博客网 时间:2024/06/05 11:59
Private Sub Command1_Click()
Cls
Me.Font.Size = 10
Dim a(10000) As Integer
Dim i As Integer
For i = 1 To 10000
a(i) = 10 + Int(Rnd() * 10000)
Print a(i)
Next i
Print
Dim j As Integer
For j = 1 To 9999
For i = j + 1 To 10000
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 10000
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(10000) As Integer
Dim i As Integer
For i = 1 To 10000
a(i) = 10 + Int(Rnd() * 10000)
Print a(i)
Next i
Dim j As Integer
For j = 1 To 9999
For i = j + 1 To 10000
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 10000
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-10000
- 选择排序1到10000
- 排序算法(1)选择排序法
- 选择排序法1-10
- 选择排序法1-100
- 选择排序法1-1000
- 7-1 选择法排序
- 排序1-选择排序
- 排序 1 --选择排序
- 选择排序法——1到10000
- 选择排序1-简单选择排序
- 1-- 选择排序之简单选择排序
- 常用排序-选择法排序
- 常见排序-选择法排序
- 排序算法--选择排序法
- 按选择排序法排序。
- 排序模板 选择法排序
- 排序算法--选择排序法
- cocoapod创建自己的私有库
- 追追追
- 装饰者模式
- linux基础(20)--linux磁盘阵列RAID--RHEL6.5
- Linux read()实现
- 选择排序法1-10000
- 37-001-1 web商城项目的Spring框架环境的初步搭配
- 实现自动翻页,并显示页数
- Python的lambda匿名函数
- stm32实际运用中遇到的问题
- ant出现语法命令不正确
- Android之十三图片2D翻转
- 机器学习之——神经网络模型
- python获取os.system的执行结果