15电气吕四旺
来源:互联网 发布:大数据龙头股票2016 编辑:程序博客网 时间:2024/04/28 10:24
Option Base 1
Private Sub Command1_Click()
Cls
Font.size = 30
Dim a 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
0 0
- 15电气1吕四旺
- 15电气1吕四旺
- 15电气吕四旺
- 15电气刘慧岩作业
- 15电气郑明雨
- 15电气郑明雨
- 15电气李书鹏
- 15电气李书鹏 作业1
- 15电气李书鹏 作业2
- 15电气郑明雨作业1
- 15电气郑明雨作业2
- 15电气郄慧敏 高级排序
- 冒泡法 15电气 2012
- 15电气李丹【交换两个数字】
- 15电气一班刘思凡作业一
- 15电气一班刘思凡作业2
- 15电气一班郑明雨 1044 作业
- 15电气李书鹏3(2)
- hadood2.6.0启动datanode报错
- 最后十五个数的排序
- iOS开发之linker command failed with exit code 1 (use -v to see invocation)
- 这个bug很简单-log4j:ERROR Attempted to append to closed appender named
- RStudio 清除历史记录,变量,窗口
- 15电气吕四旺
- lucene5.5创建索引和检索
- Mosquitto pub/sub服务实现代码浅析-主体框架
- 两小时搞定matlab基础编程学习
- Javascript 构造函数、继承
- Android设置透明、半透明等效果
- url参数中带有&号,需要用先把url做个解析,使其方便在网络上传递
- 博客导航
- 两种方法修改数据库myslq密码