随机十个数的排序,选择法排序
来源:互联网 发布:选股软件 编辑:程序博客网 时间:2024/06/05 20:33
打开软件,进行编译
随机十个数的排序,选择法排序
Private Sub Command1_Click()
Me.Font.Size = 30Dim a(10) As Integer
Dim i As IntegerFor i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Dim j As Integer
For j = 1 To 9
For i = j + 1 To 10
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
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
- 随机十个数的排序,选择法排序
- 随机十个数的排序,选择法排序
- 随机十个数排序法排序
- 随机十个数冒泡法排序
- 十个数排大小 选择排序法
- 随机产生十个数并排序排序
- 用if随机生成十个数排序
- 随机产生十个数并排序
- 随机选择k个把不同的数并排序
- 随机输入十个数,采用直接插入进行排序
- 用if语句随机生成十个数,排序
- 选择排序法 排列10个随机产生的10~100之间的数
- 十个数排序
- 对十个数排序
- 十个随机数的排列(选择排序)
- 用选择法对十个整数排序
- 冒泡法对输入的十个数从小到大排序
- 随机选择策略的快速排序
- Java基础之编码详解(1)
- 比较大小(冒泡法)
- HierarchyView使用的注意事项
- python里面的循环语句
- ssl1565 将功补过
- 随机十个数的排序,选择法排序
- android studio gradle打包
- [ULK08]内核内存管理
- malloc/free与new/delete的区别
- 关于android 系统sdk自带的解压包zip的坑
- node.js的process进程和子进程
- iOS跳转到设置界面,以及设置下的子界面
- 保存全屏为image
- 第十二周上机实践项目-项目1-实现复数类中的运算符重载