最小数的排序问题---将最小数排在最后
来源:互联网 发布:js页面关闭时触发事件 编辑:程序博客网 时间:2024/05/22 05:18
将最小数排在最后
现在开始编程
Private Sub Command1_Click()
Cls
Font.Size = 30
Dim a As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = 1
While m < 14
n = 1
While n <= 15 - 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 <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
马妮娜原创
0 0
- 最小数的排序问题---将最小数排在最后
- 电气一班 宋家欢 将最小的数排在最后
- 15电气郄慧敏最小的数排在最后
- 把最小的数排最后
- 最小一个数在最后
- 输出数中最小的一个数在最后!!!
- 排序生成最小的数
- 把最小数放到最后
- 随机出现15个数,最小数在最后
- 将数组组成最小的数
- 将数组排成最小的数
- 输入10个数,将其中最小的数与第一个对换,最大的数与最后一个对换
- s2:VB之如何在15个数中把最小的数放在最后
- 五个数排序的最小比较次数
- 另一种做法(15个数中最小的数在最后)
- 把最小的排到最后。。。。
- 比较四个数的大小,并最后显示最大数和最小数
- 拼成最小的数
- crawler4j配置
- uses-permission
- Navicat for MySQL 使用SSH方式链接远程数据库
- Qt 无法debug, 显示找不到引擎
- 基本代码总结
- 最小数的排序问题---将最小数排在最后
- Android的ListView中添加数据库中的Image和RatingBar
- android studio 运行单个activity
- Spring BeanFactory详解
- 一些有用的python库
- 电脑运行常见命令
- 探索equals()和hashCode()方法
- BP神经网络基本介绍
- 欢迎页面带点儿