15电气郄慧敏 高级排序
来源:互联网 发布:搜本子的软件 编辑:程序博客网 时间:2024/04/29 07:43
1打开电脑桌面上的vb
2点击左面的textbox,在窗体中建造一个窗口,
3点击此窗口,修改command 1为通用,输入以下内容
Option Base 1
Private Sub Command 1_Click()
Cls
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim a() As Integer
ReDim a(size)
n = LBound(a)
While n <= UBound()
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = LBound(a)
While m <= UBound(a) - 1
n = LBound(a)
While n <= UBound(a) - m
If a(n) <a(n + 1) Then
swap = a(n)
a(n) =a(n + 1)
a(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = LBound(a)
While n <= UBound(a)
Print a(n)
n = n + 1
Wend
End Sub
4点击运行即可看到结果
15电气郄慧敏15050341023
0 0
- 15电气郄慧敏 高级排序
- 电气一班 宋家欢 高级排序
- 15电气郄慧敏vb作业715个数的大小排序
- 15电气李丹【给15个数字排序】
- 15电气 齐振昊 实验名称:15个数排序
- 15电气臧洪颖15个数的大小排序
- 《3个数字的排序》15电气43号
- 15-电气-李少振 在VB中使用循环结构排序
- 15 电气 齐振昊 VB中使用选择法排序
- 15 电气 齐振昊 VB中使用冒泡法排序
- 15电气郄慧敏两位数乘以一位数
- 15电气郄慧敏转化为16进制数
- 15电气刘慧岩作业
- 15电气1吕四旺
- 15电气郑明雨
- 15电气1吕四旺
- 15电气吕四旺
- 15电气郑明雨
- 博弈论-囚徒困境与重复囚徒困境的启示
- 【BZOJ4236】JOIOJI【数学】【排序】【乱搞】
- Java编程手册-泛型
- 通给给定旋转轴向量v,旋转角度ang,计算出旋转矩阵
- APK极限压缩
- 15电气郄慧敏 高级排序
- ReactiveCocoa - iOS开发的新框架
- 写不对 = =
- AngularJS 中的scope($scope)
- 关于iPhone4s 设置手机铃声过程中的问题
- plsql免客户端连接
- 出现15个数
- iOS获取通讯录联系人信息
- VB之15个数的排序