排序 在text框中输入将要排序的数字个数
来源:互联网 发布:java限制接口访问次数 编辑:程序博客网 时间:2024/06/07 01:17
在窗体的适当位置创建一个commandbutton,并在其属性窗口中将caption改为“排序”。在窗体的适当位置创建一个textbox。
Option Base 1(此句话要在通用条件下)
Private Sub Command1_Click()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
End Sub
0 0
- 排序 在text框中输入将要排序的数字个数
- 15电气齐振昊 在VB中排序(使用循环机构,在textbox中输入要排序的个数即可)
- c++实现判断在命令行中输入几个数字然后对输入的数字进行冒泡法排序
- 数字在排序数组中的个数
- 5-16: 输入10个数,要求编写一个排序函数,能够实现按绝对值从大到小排序。在主函数中输入10个数,输出排序后的10个数
- python中随机输入数字再排序
- 输入一个已经按升序排序过的数组和一个数字,在数组中查找两个数,使得它们的和正好是输入的那个数字。
- 输入一个已经按升序排序过的数组和一个数字, 在数组中查找两个数,使得它们的和正好是输入的那个数字。
- 输入一个已经按升序排序过的数组和一个数字, 在数组中查找两个数,使得它们的和正好是输入的那个数字
- 输入一个已经按升序排序过的数组和一个数字,在数组中查找两个数,使得它们的和正好是输入的那个数字。
- 输入一个已经按升序排序过的数组和一个数字, 在数组中查找两个数,使得它们的和正好是输入的那个数字。
- 输入一个已经按升序排序过的数组和一个数字, 在数组中查找两个数,使得它们的和正好是输入的那个数字。
- 输入一个已经按升序排序过的数组和一个数字, 在数组中查找两个数,使得它们的和正好是输入的那个数字。
- 我的排序,输入n个数,然后进行升降排序
- 输入的数字个数
- 输入一个已经按升序排序过的数组和一个数字,在数组中查找两个数
- 写一个输入框并将输入的结果在文本框中排序
- 一个已经按升序排序过的数组和一个数字, 在数组中查找两个数,使得它们的和正好等于输入的那个数字
- php框架+phpcms
- pre浏览器不折行问题解决
- TCP/IP详解学习笔记(4)-ICMP协议,ping和Traceroute
- sun.net.ftp.FtpClient 删除文件夹删除文件
- Cordova系列学习教程03 Cordova简单功能的实现
- 排序 在text框中输入将要排序的数字个数
- 15-电气-2012 VB语言中计算一位数乘一位数
- AndroidStudio1.5.1正式版使用笔记
- react的生命周期
- Android学习之使用HttpURLConnection下载文件
- Git客户端图文详解如何安装配置GitHub操作流程攻略
- VB
- [MySQL]快速解决"is marked as crashed and should be repaired"故障
- HDU3466(01背包)