关于随机数的问题？请多多指教谢谢

先用循环得到7个整数,分别赋值到一个有7个元素的数组里面,这样a(1)--a(7)
就代表了每个整数,然后用冒泡法排序就好了关于冒泡法就是这样的
Sub popo()
For i = 0 To 6
For n = 0 To 5 - i
  If a(n) > a(n + 1) Then
   a = a(n + 1)
   a(n + 1) = a(n)
   a(n) = a
  End If
Next n
End Sub
原理就是连续比较相临的两个元素,谁大就把谁放到标号靠后的元素里面去,然后在比较下一组相临的元素就好了举个例子:a1>a2 就把a1和a2的值交换,然后比较a2 a3,这样一直比到a6 a7的时候就可以把最大的一个弄到a7去,然后再重新比较前六个的大小.这样就实现排序了