VB大小个排队吧 管不了你们了
来源:互联网 发布:python 图像分割 编辑:程序博客网 时间:2024/05/16 07:59
Option Base 1 'option base1 控制下界
Private Sub Command1_Click()
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 = LBound(sierdun)
While m <= UBound(sierdun) - 1
n = LBound(sierdun)
While n <= UBound(sierdun) - 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
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
平时洗脚不看书 再加上跳跃性有点大 再有点畏难情绪 这指定是不会了,大神的代码,笑着活下去 第四个真得未完待续了 留点脑细胞 还要继续奋斗
不告诉你们几点了
0 0
- VB大小个排队吧 管不了你们了
- VB 含有Flash不能保存你们遇到了吗?
- 顶你个肺是谁让你们审核了
- 广饶吧的吧主们你们神经质啊?发个便民的帖子也给删除了
- 你们都是怎么了?
- 你们也太疯狂了吧……
- 个 人 声 明 -—北京密安,你们道歉了吗?
- 买你们天眼2代算倒霉了。下个文件多哪
- 我的第一个网站上线了,你们帮忙看看哪里需要改正的
- 你们的福利。昨天下午做了个瀑布流,有腿哦
- 想你们了,兄弟姐妹们
- 你们又被耍了
- 你们好, 又重逢了
- 上海人民,你们辛苦了
- 你们那下雪了吗?
- 有你们就够了
- 飞鸽传书就不去袭击你们了
- 雷霆怎么招惹你们了
- C++第3次作业
- 区块链再思考:
- (三)Mina源码解析之IoFilter
- OC阅读笔记十四:dealloc
- web
- VB大小个排队吧 管不了你们了
- 轻量级数据库框架LitePal - 查询数据
- SDAU 搜索专题 19 N皇后问题
- Ionic单元测试(Unit Tests)
- 日期的逻辑判断(不用Date和 Calendar)
- Python
- UVA - 10791 Minimum Sum LCM 数学题 ,质因数分解
- python爬虫(爬取蜂鸟网图片)_创建文件夹
- Android消息机制