跪着给老师补上我上周的敲码作业!!!!
来源:互联网 发布:学弹钢琴的软件 编辑:程序博客网 时间:2024/04/29 11:27
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
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
0 0
- 跪着给老师补上我上周的敲码作业!!!!
- 老师我上次的作业交晚了,补上了。
- 我的第二次数据库作业,老师给了满分!!!
- 我给外管局补上汇率知识课
- 李老师这件事给我的反思
- 我给老师发的邮件
- 上周作业
- dfs基础,补上我拉下的。
- 上周的!我不哭
- 我的印度软件老师,给的 几个C# PROGRAMS
- 王老师的“云脑”给我好好上了一课
- 老师给我推荐的经典管理书籍
- 老师给我推荐的经典管理书籍
- 某老师给我的javascript学习建议
- 不好意思老师,作业我没有放在一块,这也是第三周的作业
- 给老师的建议?????
- 大二生活之致给影响我最大的大学老师,我和老师的一些事
- 同事给我发的邮件,谈及上周参加项目会议,关于项目Delay的深刻体会(转述篇)。
- Activity管理Fragment之Fragment关闭当前回到之前Fragment
- SVN的Hooks功能--强制添加注释
- 变量存储空间 记录一下
- APP应用程序的生命周期
- hdoj2063过山车(二分图,并查集)
- 跪着给老师补上我上周的敲码作业!!!!
- iPhone拨号链接,iphone数字默认拨号
- EventArgs的一点变化
- 地址空间分割 记录一下
- newinstance()和new有什么区别?
- NDK-JNI实战教程(四)再谈新工具及NDK开发调试
- 用rman同时备份到多个路径下
- 微信调试环境介绍
- jstl中的<fmt:formatNumber>标签