15电气刘慧岩作业
来源:互联网 发布:上海留学生落户 知乎 编辑:程序博客网 时间:2024/04/20 05:17
1.打开VB
2.新建一个按钮。
3.双击按钮,在新的窗口中输入以下代码
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
点击运行。
- 15电气刘慧岩作业
- 15电气李书鹏 作业1
- 15电气李书鹏 作业2
- 15电气郑明雨作业1
- 15电气郑明雨作业2
- 15电气一班刘思凡作业一
- 15电气一班刘思凡作业2
- 15电气一班郑明雨 1044 作业
- 15电气1班麻天骄作业
- 15电气1班麻天骄作业
- 15电气1班麻天骄作业
- 15电气李书鹏作业3(3)
- 15级电气2班阳军作业
- 15电气郄慧敏vb作业715个数的大小排序
- 15电气郄慧敏vb作业,生成10个数
- 15电气李书鹏VB作业3(1)
- 15电气李书鹏4月14日作业(1)
- 15电气郄慧敏vb作业计算一位数乘以一位数
- Communications link failure错误分析
- Linux vi/vim 多行注释
- HDU 1213 How Many Tables(并查集)
- Android安全攻防战,反编译与混淆技术完全解析(下)
- mysql Communications link failure
- 15电气刘慧岩作业
- jdk bug
- spring 事物多线程问题
- JAVA多线程面试50题 -- 内容由浅及深,全会的是神
- jQuery基础-选择图片并赋值
- leetcode-20 Valid Parentheses
- spring 多线操作事物问题 模拟
- Sql Server中的表访问方式Table Scan, Index Scan, Index Seek
- JDBC事务控制管理