15电气1班麻天骄作业

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
 Me.Text1.Text = "a<b"
Else
If a = b Then
 Me.Text1.Text = "a=b"
Else
Me.Text1.Text = "a>b"
End If
End If


End Sub





Private Sub Command1_Click()
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
Dim swab 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)
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, 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 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
















Dim a As Integer

15个数排序作业心好累

Dim b As Integer

Dim c As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)

c = Int(Rnd * 1000)

If a < b Then
swap = a
a = b
b = swap
End If

If a < c Then
swap = a
a = c
c = swap
End If

If b < c Then
swap = b
b = c
c = swap
End If

Print a & "," & b & "," & c
End Sub