比较数的大小
来源:互联网 发布:国家基础地理数据下载 编辑:程序博客网 时间:2024/05/01 11:20
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 i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
swap a(j), a(j + 1)
End If
Next j
Next i
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
0 0
- 比较数的大小
- 比较数的大小
- 比较数的大小
- 比较数的大小
- 浮点数的大小比较
- 比较两个数的大小
- 比较三个数的大小
- 比较两个数的大小
- 比较三个数的大小
- 比较十个数的大小
- 比较两个数的大小
- 两个数大小的比较
- 三个数大小的比较
- 十个数大小的比较
- 比较两个数的大小
- 比较三个数的大小
- 比较三个数的大小
- 比较两个数的大小
- 选择排序1到1000
- Spring MVC @ResponseBody 返回中文乱码问题
- 笔记--jsp
- web.xml配置的servlet加载两次的原因及解决方法
- SQL Server存储过程
- 比较数的大小
- Is it possible to simulate a new addressing scheme for MANETs using GNS3 ?
- jquery tmpl $被jsp jstl占用
- effective objective-c 2.0 笔记 第一章 :熟悉Objective-C
- 请求-响应的实现模式
- springmvc+easyui Ajax提交返回json IE出现下载问题
- 我的第一个博客!
- linux环境上setuptools-20.7.0安装
- NYOJ 21 三个水杯(bfs,广搜)