随机十个数的排序,选择法排序
来源:互联网 发布:淘宝网开网店步骤 编辑:程序博客网 时间:2024/06/08 17:52
打开软件,进行编译
随机十个数的排序,选择法排序
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之间的数
- 十个数排序
- 对十个数排序
- 十个随机数的排列(选择排序)
- 用选择法对十个整数排序
- 冒泡法对输入的十个数从小到大排序
- 随机选择策略的快速排序
- 选择法
- 十进制向十六进制转化.
- GLSL学习教程博客
- 将text中的数值转换成十六进制
- 十进制改为十六进制
- 随机十个数的排序,选择法排序
- 选择法排序
- vb23
- java基础类型
- C/C++ 中求数组长度
- 选择法排序
- 16进制
- 16.5.7
- PCL行人检测