选择排序法——1到10
来源:互联网 发布:ubuntu密码忘记了 编辑:程序博客网 时间:2024/06/05 14:14
Private Sub Command1_Click()
Cls
Me.Font.Size = 10
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Print
Dim j As Integer
For j = 1 To 9
For i = j + 1 To 9
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
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(10) As Integer
Dim i As Integer
For 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 9
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
- 选择排序法——1到10
- 选择排序法——1到100
- 选择排序法——1到1000
- 选择排序法——1到10000
- 选择排序1到100
- 选择排序1到1000
- 选择排序1到10000
- 排序—选择排序
- 排序—选择排序
- 排序算法1—插入排序、选择排序、冒泡排序
- 排序算法——选择排序法
- 选择类排序法 — 简单选择排序
- 选择类排序法 — 简单选择排序
- 排序算法(1)——选择排序
- 排序1——冒泡,选择排序
- 选择排序法1-10
- Java从入门到放弃——选择排序
- 选择排序——直接选择排序
- 深入理解Java:注解(Annotation)自定义注解入门
- 欢迎使用CSDN-markdown编辑器
- 利用HttpClient的POST方式发起带参数的请求时,点击注册按钮无反应状态分析
- python socket编程
- python学习总结(一)
- 选择排序法——1到10
- (总结)Nginx配置文件nginx.conf中文详解
- iOS字典转字符串类型,NSDictionary 转 NSString转JsonData
- hammer.js手势
- Android的VectorDrawable与AnimatedVectorDrawable
- Java 基本数据类型的取值范围。
- 红糖水和白糖水
- Android Studio环境下EditText的BUG
- Android符号表转换