10 个未排序的数字
来源:互联网 发布:网络管理队伍状况分析 编辑:程序博客网 时间:2024/06/04 01:02
1.打开VB,然后在左侧找到command图标,在form上面适当位置创建图标,
双击图标然后输入以下代码:
Private Sub Command1_Click()
ClsFont.Size = 30
Dim sierdun(10) As Integer
n = 1
While n <= 10
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 9
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
n = 1
While n <= 10
Print sierdun(n)
n = n + 1
Wend
End Sub
0 0
- 10 个未排序的数字
- 15个数字的排序
- VB之15个数字的排序
- 10个数字从大到小排序
- 输入10 个数字,按各个位上的和从小到大排序,如果相同,则按数字从小到大排序。
- 如何给10^7个不同的数字的磁盘文件排序
- 15个数字排序 vb
- 给15个数字排序
- 100亿个数字排序
- 最简单的3个数字小到大排序
- 《3个数字的排序》15电气43号
- C语言—输入10个数字,按各个位上的和从小到大排序,如果相同,则按数字从小到大排序
- 输入10个数字将其按从小到大排序输出
- 输入10个数字并且排序后输出(汇编)
- 从键盘输入10个数字,进行冒泡排序
- 冒泡法10个数字按从小到大进行排序
- 从1亿个数字中取出最大的100个数字- 位图排序(空间换时间)
- 自动生成50个在[10,50]区间内的数字,对每个出现的数字进行排序,并打印出来
- HDOJ-2177 取(2堆)石子游戏
- 初始化与清理(3)
- 状压DP TSP不回到原点
- Protege-OWL API中文版(自己翻译的)
- Glide加载图片into(Target)导致OOM异常
- 10 个未排序的数字
- starUML
- android点击事件穿透
- vb作业
- MySQL InnoDB 悲观锁机制
- XRecyclerView:实现下拉刷新、滚动到底部加载更多以及添加header功能的RecyclerView
- iOS 改变UISlider的宽度
- 笔记 android发送状态栏消息
- 背包问题