随机产生10个数,并使用选择法,由大到小排序
2016-05-07 17:42
387 查看
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Print
Dim j As Integer
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
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Dim j As Integer
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
相关文章推荐
- 0基础如何学习安卓开发
- 数据结构X实验一
- CSS 布局模型
- hdoj2045动态规划
- VS2008高版本VC使用微软串口控件mscomm小结
- c++实验5-项目1数组分离
- 排列组合列出所有情况之类的问题
- 16进制
- 10的阶乘
- [SICP]函数定义
- glsl基础
- 【转】svn服务器IP修改后,本地怎么跟新svn同步,svn relocate 操作
- smarty中常用方法(在php文件中使用) append ,clearallassign, clearassign, fetch ,getconfigvars,gettemplatevars
- Swift-贝赛尔曲线实现画图板 && 截图保存到相册中
- 十进制转化为十六进制
- jQuery mobile 监听页面的各种生命周期
- 比较数的大小(选择法)
- 10个随机数
- 【转】SVN的UUID错误
- SSH-Web项目中 .classpath、.mymetadata、.project文件的作用