简单VB， 帮下忙，谢，回答好的给加分

编制程序，输出随机产生的10个1～1000内的正整数，经从小到大排序后，重新输出。要求用两种方法实现：
方法1：在标准模块中用3个子过程分别实现数组赋值、排序和输出；最后在Form1的Form_Click( )事件中利用参数传递输出排序前、后的结果。
方法2：在Form1中用设数组为通用变量来实现程序
要能运行得具体代码。。。满意加分。。。谢

Option Explicit

Private Function 随机数(Upper As Long, Lower As Long, NumMax As Long)
Dim i As Long, RNum() As Long
ReDim RNum(NumMax)
For i = 1 To NumMax
Randomize
RNum(i) = Int((Upper - Lower + 1) * Rnd + Lower)
Next
随机数 = RNum
End Function

Private Function 排序(NewNum)
Dim i As Long, TmpNum As Long, j As Long
For i = 1 To UBound(NewNum)
For j = i To UBound(NewNum)
If NewNum(i) < NewNum(j) Then
TmpNum = NewNum(i)
NewNum(i) = NewNum(j)
NewNum(j) = TmpNum
End If
Next
Next
排序 = NewNum
End Function

Private Sub 输出(PntNum)
Dim i As Long
For i = 1 To UBound(PntNum)
Debug.Print PntNum(i)
Next
End Sub

Private Sub Form_Click()
Dim a, b
a = 随机数(1000, 1, 10)
b = 排序(a)
输出 b
End Sub

哈哈，快给我加200分。

实现很简单，但要求太多了。。。。

Private Sub Command1_Click()