循环结构排序
来源:互联网 发布:java中方法的定义包括 编辑:程序博客网 时间:2024/06/03 16:17
Cls
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim wzs() As Integer
ReDim wzs(size)
n = LBound(wzs)
While n <= UBound(wzs)
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(wzs)
While m <= UBound(wzs) - 1
n = LBound(wzs)
While n <= UBound(wzs) - m
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = LBound(wzs)
While n <= UBound(wzs)
Print wzs(n)
n = n + 1
Wend
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim wzs() As Integer
ReDim wzs(size)
n = LBound(wzs)
While n <= UBound(wzs)
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(wzs)
While m <= UBound(wzs) - 1
n = LBound(wzs)
While n <= UBound(wzs) - m
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = LBound(wzs)
While n <= UBound(wzs)
Print wzs(n)
n = n + 1
Wend
0 0
- 循环结构排序
- 15-电气-李少振 在VB中使用循环结构排序
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- 循环结构
- SVN:工程文件打不开
- qt 读取txt文件内容并保存到数组中
- 2位数乘1位数
- 15个数排序
- ScrollView嵌套ListView时ListView只显示出一行数据的解决办法
- 循环结构排序
- Android Process 详解
- 前端MVC框架
- 利用小闹钟1-100求和
- 关于编程语言的学习
- 为什么在sys.setdefaultencoding之前要写reload(sys)
- Asp.net mvc 提交列表(三)
- Splash
- Android string-array 的使用