比较数的大小
2016-05-12 17:20
274 查看
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 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
Print
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
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
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
相关文章推荐
- slf4j 和 log4j使用案例
- Django基础(一)
- EF
- opencv remap基础例子:缩小图片
- linux学习之路——Linux出现“内部错误”解决方案
- 第二章 单机存储系统
- GCD的理解
- iOS开发——你真的会用SDWebImage?
- 关于getClass().getClassLoader()
- SaltStack 配置管理-状态间关系
- 自定义view刮刮卡效果
- 基于zookeeper分布式全局序列分布式锁详解
- Servlet对象是 单例模式 Singleton
- 笔记 - 颜色列表
- myphpadmin导入数据库文件最大限制2048KB的修改办法
- Mysql之触发器trigger
- zabbix:使用get方式监控服务器
- url变化的时候,modal框没有消失
- Intent之学习一(显式与隐式)
- angularjs学习笔记—工具方法