排15个数
2016-03-31 16:23
246 查看
Option Base 1
Private Sub Command1_Click()
Cls
Font.Size = 30
Dim n As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
'------------开始排序-----------!
Dim swap As Integer
m = 1
While m <= 14
n = 1
While n <= 15 - m
If sierdun(n) < sierdun(n + 1) Then
swap = sierdun(n)
sierdun(n) = sierdun(n + 1)
sierdun(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
'-------------排序结束---------!
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
Private Sub Command1_Click()
Cls
Font.Size = 30
Dim n As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
'------------开始排序-----------!
Dim swap As Integer
m = 1
While m <= 14
n = 1
While n <= 15 - m
If sierdun(n) < sierdun(n + 1) Then
swap = sierdun(n)
sierdun(n) = sierdun(n + 1)
sierdun(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
'-------------排序结束---------!
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
相关文章推荐
- 简单方法实现手势解锁
- iOS小知识点(非UI部分)
- hdu 2222 Keywords Search AC自动机模板题
- yum源配置
- 软考信息系统监理师,2016年3月25日作业
- 15个数排序(1)
- python笔记
- VB作业2
- jstl中的<fmt:formatNumber>标签
- C++常用库函数
- JavaSe基础(18)-- 嵌套循环 案例
- hdoj2063过山车(二分图,DFS)
- leetcode 228. Summary Ranges
- VB咳咳咳
- 学习makefile(记录遇到的问题)
- android textview字符串指定分段设置字体颜色
- uri和url的区别?
- CTF——被改错的密码
- iOS内存管理方法
- 三和 韓長庚 先生 墓所探訪