选择排序法1-100
来源:互联网 发布:4i网络整合营销理论 编辑:程序博客网 时间:2024/05/16 10:49
Private Sub Command1_Click()
Cls
Me.Font.Size = 10
Dim a(100) As Integer
Dim i As Integer
For i = 1 To 100
a(i) = 10 + Int(Rnd() * 1000)
Print a(i)
Next i
Print
Dim j As Integer
For j = 1 To 99
For i = j + 1 To 100
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 100
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(100) As Integer
Dim i As Integer
For i = 1 To 100
a(i) = 10 + Int(Rnd() * 1000)
Print a(i)
Next i
Dim j As Integer
For j = 1 To 99
For i = j + 1 To 100
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 100
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-100
- 排序算法(1)选择排序法
- 选择排序1到100
- 选择排序法1-10
- 选择排序法1-1000
- 选择排序法1-10000
- 7-1 选择法排序
- 排序1-选择排序
- 排序 1 --选择排序
- 选择排序法——1到100
- 选择排序1-简单选择排序
- 1-- 选择排序之简单选择排序
- 常用排序-选择法排序
- 常见排序-选择法排序
- 排序算法--选择排序法
- 按选择排序法排序。
- 排序模板 选择法排序
- 排序算法--选择排序法
- eclicpes导入linux android apk以及快速修改包名
- 编写一个程序,它使用一个char数组和循环来每次读取一个单词,直到输入done为止并用strcmp检测
- Android 加载大图片是出现的 OutOfMemoryError问题
- C语言封装线程与日志类
- java实现用*号打出等腰三角形与等边三角形
- 选择排序法1-100
- BPM中常见子流程使用场景介绍一(复用型、集成型)
- 二十二、代理模式Proxy 第一部分(结构型模式)
- 图片文字提取之路-02数据预测
- Set Matrix Zeroes
- 简历中使用STAR法则
- ios开发——基本控件与变量(数据)的关联与使用
- android易混点
- 选择排序法1-1000