最终实现任意个数字排序
2016-05-12 17:30
399 查看
打开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
相关文章推荐
- mysql right函数
- Kinect SDK2.0 + OpenCV 3.0 抠人,换背景
- 升级webapi依赖的Newtonsoft.json的版本(转)
- JSP的注释
- 关于iOS APP 需要支持ipv6-only 开发者需要做的事情
- kafka消费API理解
- Android入门开发之Intent
- ENVI中基于Modis影像提取NDVI处理步骤
- springmvc+easyui Ajax提交返回json IE出现下载问题
- 实践centos6.5编译安装LNMP架构web环境
- Android Studio环境下EditText的BUG
- 手把手教你写电商爬虫-第二课 实战尚妆网分页商品采集爬虫
- 使用nginx搭建http代理服务器
- 途牛原创|基于EAV模型的运营系统架构实践
- java中日期时间格式与毫秒数的转换如何将指定时间转换为Date类型
- vb()
- 修改Windows下的键盘映射
- cnblogs.com的用户体验
- iOS字典转字符串类型,NSDictionary 转 NSString转JsonData
- 在嵌入式学习过程中的困惑——有人说软件技术变化太快,现在学的东西过两年就要完全淘汰,是吗?