最终实现任意个数字排序
来源:互联网 发布:怎样参加淘宝活动 编辑:程序博客网 时间:2024/06/03 22:45
- 打开VB软件
- 在左侧工具箱中找到command的图标,在窗体中适当位置创建图标,在左侧找到Text文本框的图标,在窗体中适当位置创建图表。
- 双击窗体中command图标,在上方command1箭头后面修改为通用,输入以下代码
Option Base 1
在Private Sub Command1_Click()下输入以下代码
ClsFont.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
0 0
- 最终实现任意个数字排序
- 最终实现任意个数字排序
- 最终实现任意个数字排序
- 最终实现任意个数字排序
- c语言实现任意个字符串排序
- C++实现100个数字排序
- 任意输出15个数字
- 输入任意个数字存进数组
- 输入任意个数字存入单链表中
- 汇编 输入3个数字排序 冒泡算法实现
- 求任意10个数字中最大的一个数字
- C语言插入排序算法的实现(输入任意个整数)
- 任意大数字加法的python实现
- 数字排序 另一种实现
- 15个数字排序 vb
- 15个数字的排序
- 给15个数字排序
- 100亿个数字排序
- SpringMVC MyBatis 集成 HelloWorld
- 冒泡排序法
- 基础级 - Date of PHP && JS
- 途牛原创|无线中心运营研发Redis酷实践
- java的继承关系中对象的加载和初始化顺序
- 最终实现任意个数字排序
- 选择排序法——1到100
- JAVA字符串格式化-String.format()的使用
- Sublime 文本或者代码编辑软件的使用
- java中的常见异常及错误和处理方法
- 软件破解
- Linux客户端远程访问windows服务器
- python中lock和rlock(递归锁)的区别
- 第7周 深入理解计算机系统(第二版) 知识总结 第一、二章