选择法
来源:互联网 发布:mac 搜狗输入法 流氓 编辑:程序博客网 时间:2024/04/26 06:25
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 1000)
Print a(i);
Next i
Print
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
swap a(j), a(j + 1)
End If
Next j
Next i
For i = 1 To 10
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
0 0
- 选择法
- 选择法
- 选择法
- 选择法
- 选择法
- 选择法
- 选择法
- 选择法
- 选择法
- 选择法
- 选择排序法法
- 排序:选择法
- 选择排序法
- 选择法排序
- 选择排序法
- 选择法C
- 选择排序法证明
- 选择排序法
- 重要的博客资源链接
- 可变数组
- ios 在复杂的cell里面定时器会很慢
- 第十二周项目1-实现复数类中的运算符重载(1.3实现复数与实数相加减乘除)
- java string byte之间的转换
- 选择法
- 随机产生一百个数并排序
- my information
- Android应用如何监听自己是否被卸载及卸载反馈功能的实现(第三版)
- 高级排序
- spring boot 下 500 404 错误页面处理
- 完整详解GCD系列(四)dispatch_semaphore(信号量)
- 顺序队列C/C++实现
- android.support.v4.view.NestedScrollingChild cannot be resolved