排序并计时
来源:互联网 发布:批发网络摄像头 编辑:程序博客网 时间:2024/06/02 03:34
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
1 0
- 排序并计时
- 排序,计时
- 获取手机验证码并计时
- 计时
- 计时
- 计时
- 计时
- 计时
- 选择排序函数的计时程序
- 随机数动态数组排序计时输出
- 快速排序与堆排序效率对比(TimeSpan计时)
- 页面倒数计时并自动跳转的脚本(Javascript)
- 页面倒数计时并自动跳转的脚本
- linux下bmp转化成jpg并计时统计
- VBS监控带计时器的网页 并完成自动计时
- FLex 固定时间倒计时 并计时结束后暄软组件
- d盘文件复制到e盘(并计时)
- 定时器计时,并在数码管实时显示时间
- 冒泡排序法
- 完整详解GCD系列(二)dispatch_after;dispatch_apply;dispatch_
- nyoj 781 又见回文数
- Webx Turbine 中 valves查找资源的过程
- ECSHOP去版权标志删除Powered by ECShop
- 排序并计时
- mysql数据库问题总结
- 商品搜索引擎资料整理
- oracle常用数据字典
- 文章标题
- Nginx负载均衡配置
- 文章标题
- [DP] codeforces 650D. Zip-line
- Oracle char、varchar、varchar2、nvarchar、nvarchar2、nchar比较