冒泡排序法
2016-05-07 17:07
211 查看
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
End Sub
相关文章推荐
- 十六进制的转换
- hdu 5677 ztr loves substring【回文Manacher+多重背包】
- 机器学习中的数学(4)-线性判别分析(LDA), 主成分分析(PCA)
- IOS NSDate日期操作总结
- 第一章 JAVA入门(Main函数简介)
- Codeforces Beta Round #97 (Div. 1) A. Replacement 水题
- 二叉树
- 求任意范围内回文素数c++解决方案(解决了地址释放的问题,附错误原因简述)
- 十六进制的编程
- 基于R-CNN的物体检测
- 机器学习中的数学(3)-模型组合(Model Combining)之Boosting与Gradient Boosting
- poj,1273Drainage Ditches
- 《Hibernate学习笔记十》:多对多关联关系详解
- Windows安装AndroidStudio开发软件
- 16进制的转换
- IOS NSTimer 定时器用法总结
- 第一章 JAVA入门(Hello World)
- 栈与队列的互相转化
- PowerDesigner 的 COMMENT注释
- 整理音乐