c语言实验
2016-03-27 13:09
387 查看
Private Sub Command1_Click() Cls Me.Font.Size = 24 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim m As Integer Dim n As Integer Dim o As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) c = Int(Rnd * 1000) d = Int(Rnd * 1000) e = Int(Rnd * 1000) f = Int(Rnd * 1000) f = Int(Rnd * 1000) g = Int(Rnd * 1000) g = Int(Rnd * 1000) h = Int(Rnd * 1000) i = Int(Rnd * 1000) j = Int(Rnd * 1000) k = Int(Rnd * 1000) l = Int(Rnd * 1000) m = Int(Rnd * 1000) n = Int(Rnd * 1000) o = Int(Rnd * 1000) If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If i < j Then Call swap(i, g) End If If j < k Then Call swap(g, k) End If If k < l Then Call swap(k, l) End If If l < m Then Call swap(l, m) End If If m < n Then Call swap(m, n) End If If n < o Then Call swap(n, o) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If i < j Then Call swap(i, j) End If If j < k Then Call swap(j, k) End If If k < l Then Call swap(k, l) End If If l < m Then Call swap(l, m) End If If m < n Then Call swap(m, n) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If i < j Then Call swap(i, j) End If If j < k Then Call swap(j, k) End If If k < l Then Call swap(k, l) End If If l < m Then Call swap(l, m) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If i < j Then Call swap(i, j) End If If j < k Then Call swap(j, k) End If If k < l Then Call swap(k, l) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If i < j Then Call swap(i, j) End If If j < k Then Call swap(j, k) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If i < j Then Call swap(i, j) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If h < i Then Call swap(h, i) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If g < h Then Call swap(g, h) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If f < g Then Call swap(f, g) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If e < f Then Call swap(e, f) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If d < e Then Call swap(d, e) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If c < d Then Call swap(c, d) End If If a < b Then Call swap(a, b) End If If b < c Then Call swap(b, c) End If If a < b Then Call swap(a, b) End If Print a & "," & b & "," & c & "," & d & "," & e & "," & f & "," & g & "," & h & "," & i & "," & j & "," & k & "," & l & "," & m & "," & n & "," & o End Sub Private Sub swap(x As Integer, y As Integer) Dim temp As Integer If x < y Then temp = x x = y y = temp End If End Sub |
相关文章推荐
- C语言中从标准输入读取几行输入,并打印到标准输出上两种方法
- 孙敬哲的c++上机实验2-1
- 《Effective C++》读书笔记(第一部分)
- Item 26: 避免对universal引用进行重载
- 《高质量C/C++编程》——重载覆盖与隐藏规则
- 多重背包——(HDU-2191)
- [面试] C/C++ 语法(七)—— C++ 类型转换
- 排序算法(C语言+Python版)宝宝再也不怕面试官写排序算法了
- [面试] C/C++ 语法(六)—— RTTI(运行时类型信息)
- c++实验2-标准体重
- c++使用mysql的api连接相关问题
- C++中的动态绑定
- 格雷码C++实现
- 标准C++中的string类的用法总结
- C语言实现顺序表的插入、删除、查找、遍历等基本操作
- c++中使用fstream读写文件
- 平衡二叉树 c/c++实现
- 在c++中struct和class的区别
- 什么是C++虚函数、虚函数的作用和使用方法
- 归并排序C++实现