最后一个
来源:互联网 发布:1100lu千百最新域名 编辑:程序博客网 时间:2024/05/17 09:23
Option Base 1
Private Sub Command1_Click()
Font.size = 30
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
size = Int(Val(Me.Text1.Text))
Dim slerdum() As Integer
ReDim slerdum(size)
n = LBound(slerdum)
While n <= UBound(slerdum)
slerdum(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(slerdum)
While m <= UBound(slerdum) - 1
n = LBound(slerdum)
While n <= UBound(slerdum) - m
If slerdum(n) < slerdum(n + 1) Then
swap = slerdum(n)
slerdum(n) = slerdum(n + 1)
slerdum(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
While n <= UBound(slerdum)
Print slerdum(n)
n = n + 1
Wend
End Sub
Private Sub Text1_Change()
1
Private Sub Command1_Click()
Font.size = 30
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
size = Int(Val(Me.Text1.Text))
Dim slerdum() As Integer
ReDim slerdum(size)
n = LBound(slerdum)
While n <= UBound(slerdum)
slerdum(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(slerdum)
While m <= UBound(slerdum) - 1
n = LBound(slerdum)
While n <= UBound(slerdum) - m
If slerdum(n) < slerdum(n + 1) Then
swap = slerdum(n)
slerdum(n) = slerdum(n + 1)
slerdum(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
While n <= UBound(slerdum)
Print slerdum(n)
n = n + 1
Wend
End Sub
Private Sub Text1_Change()
1
End Sub
0 0
- 最后一个
- 最后一个
- 最后一个
- 大学最后一个长假
- “江湖最后一个大佬”
- 等待最后一个电话
- 最后一个晚上了...
- 最后一个专案
- 最后一个青年节
- 2008 最后一个周末
- 最后一个车站
- 最后一个学期了
- 最后一个喜蛋
- 大学最后一个暑假
- 2012,最后一个暑假
- dede 面包屑最后一个>
- 最后的一个万圣节
- js 去除最后一个,
- tx有关的设置
- 作业1
- Android中内容观察者的使用---- ContentObserver类详解
- ArchSummit北京2015 移动应用架构趋势纪要
- solr4.9--》dataimport导入数据类型转换问题
- 最后一个
- 一种CSS完全居中的神奇方法
- java对象与byte[]数组之间的相互转化,压缩解压缩操作
- 15电气1班麻天骄
- ORMLite的几个关键注解的使用说明
- 百度地图的集成定位与路径规划
- lintcode: Word Ladder
- iOS开发之 【_NSArrayM objectAtIndex:】:index 0 beyond bounds for empty array
- Java基础09 类数据与类方法