排序,计时
来源:互联网 发布:冒险岛数据库2015 编辑:程序博客网 时间:2024/06/07 02:35
Private Sub Command1_Click()
Open "D:\ccc\ccc.txt" For Output As #1
Write #1, "start", Time
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 999
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
For i = 1 To 1000
Print #1, a(i)
Next
Write #1, Time
Close #1
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Sub
Open "D:\ccc\ccc.txt" For Output As #1
Write #1, "start", Time
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 999
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
For i = 1 To 1000
Print #1, a(i)
Next
Write #1, Time
Close #1
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
- 排序,计时
- 排序并计时
- 计时
- 计时
- 计时
- 计时
- 计时
- 选择排序函数的计时程序
- 随机数动态数组排序计时输出
- 快速排序与堆排序效率对比(TimeSpan计时)
- 计时工具
- JavaScript 计时
- 计时类
- JavaScript 计时
- 计时代码
- CRONTAB计时
- Java 计时
- Stopwatch计时
- 在Tomcat中单独发布网页的三种方法
- Unity与IOS交互,调用IOS系统相机和相册
- 自定义ViewGroup
- Java注解
- 【查找】二分查找、插值查找、斐波那契查找
- 排序,计时
- QT网络编程部分---Qt登陆请求PHP脚本实现登陆
- 《java入门第一季》之有趣的集合小案例---获取10个【1-20之间】的随机数,要求不能重复。
- 打字练习
- undefined is not a function (evaluating ‘UIManager.setChildren(containerTag,createdTags)’)
- Linux安装及LAMP环境简化配置(Ubuntu)
- 打字练习
- leetcode 14. Longest Common Prefix
- 打字练习