冒泡法排序
来源:互联网 发布:js json对象的长度 编辑:程序博客网 时间:2024/05/21 19:34
Private Sub Command1_Click()
Me.Font.Size = 30
Dim a(10) As Integer
Dim i As Integer
Dim t As Integer
Dim p As String
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i);
Next i
Dim j As Integer
For i = 1 To 9
For j = 1 To 10 - i
Ifa(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Nextj
Nexti
Fori = 1 To 10
p =p & Str(a(i))
Next i
Print p
End Sub
0 0
- 【排序】冒泡排序法
- 常用排序-冒泡法排序
- 排序法之冒泡排序
- php排序&冒泡法排序
- 排序之冒泡排序法
- 排序算法--冒泡排序法
- 【PHP】冒泡排序法排序
- 排序算法--冒泡排序法
- 冒泡法排序
- 排序:冒泡法
- 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡排序法
- java 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡法排序
- 冒泡排序法
- 【C语言】模拟实现strchr,strrchr,strrstr.
- CI框架中登录时候使用 加密 session 以及session注意的问题
- [Nutch]Solr配置自定义的中文分词器mmseg4j
- 友盟分享5.1步骤记录
- 冒泡法排序
- java多线程
- Android 开源框架Universal-Image-Loader完全解析(一)--- 基本介绍及使用
- 利用视觉差实现图片滑动
- 第二个爬虫:查看csdn博客阅读数
- 数据结构x实验三--串的操作
- Phoenix 导出csv文件
- 动态规划—Problem O
- Android 异步加载图像优化,如:引入线程池、引入缓存