数字排列大小

今天我做的是数字排列大小。

Me.Font.Size = 50

   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 g 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)

    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

   

    Ifc < 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

   

    Ifb < 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

   

    Ifa < 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

    printa&","&b&","&c&","&d&","&e

   printf&","&g&","&h&","&i&","&j

   printk&","&l&","&m&","&n&","&o

  EndSub

 Private Sub swap(X As Integer,Y As Integer)

  Dimtemp As Integer

 IfX

 temp=X

  X=Y

 Y=temp

  EndIf

  EndSub

Private Sub Form_Load()

我是前十名做出来的同学，老师给我加了五分，我下次课继续努力。