最终实现任意个数字排序
2016-04-21 16:34
330 查看
打开VB软件
在左侧工具箱中找到command的图标,在窗体中适当位置创建图标,在左侧找到Text文本框的图标,在窗体中适当位置创建图表。
双击窗体中command图标,在上方command1箭头后面修改为通用,输入以下代码
Option Base 1
在Private Sub Command1_Click()下输入以下代码
Cls
Font.size = 30
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim sierdun() As Integer
ReDim sierdun(size)
n = LBound(sierdun)
While n <= UBound(sierdun)
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
n = 1
While n <= UBound(sierdun)
Print sierdun(n)
n = n + 1
Wend
End Sub
在左侧工具箱中找到command的图标,在窗体中适当位置创建图标,在左侧找到Text文本框的图标,在窗体中适当位置创建图表。
双击窗体中command图标,在上方command1箭头后面修改为通用,输入以下代码
Option Base 1
在Private Sub Command1_Click()下输入以下代码
Cls
Font.size = 30
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim sierdun() As Integer
ReDim sierdun(size)
n = LBound(sierdun)
While n <= UBound(sierdun)
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
n = 1
While n <= UBound(sierdun)
Print sierdun(n)
n = n + 1
Wend
End Sub
相关文章推荐
- 第一冲刺阶段工作总结03
- 团队项目冲刺第三天
- RabbitMQ学习之messageconver插件实现(Gson)
- Mac终端快捷键
- Mac终端快捷键
- c++ lambda表达式
- mini2440 X35上做韦东山LCD裸板程序
- Jquery帮助文档
- 页面弹窗提示,确认跳转另一页面
- Scrapy Pipeline之使用专门的Twisted客户端(以Redis缓存为例)
- python os.listdir按文件存取时间顺序列出目录
- Centos开机自启动redis
- 个人工作总结03
- 团队站立会议03
- start.S引入
- 冒泡排序及其优化
- Visual studio 快速定位打开文件在项目中的位置
- Android刮刮卡实现原理与代码讲解
- 数组和指针的区别(a和&a以及&a[0]的区别)
- 拓扑排序&&欧拉(回)路