帮小弟解决一个问题

Question

任意输入5个数，按照由小到大的次序打印
 请帮我写出来，谢谢！急着用

Answer 1

Private Sub Command1_Click()
    
    Dim intNum(4) As Integer
    Dim intTmpNum As Integer
    
    Dim i As Integer
    Dim j As Integer
    
    Randomize
    For i = 0 To 4
    intNum(i) = Int(Rnd() * 1000)
    Next i
    
    For i = 0 To 3
        For j = i + 1 To 4
            If intNum(i) > intNum(j) Then
                intTmpNum = intNum(i)
                intNum(i) = intNum(j)
                intNum(j) = intTmpNum
            End If
        Next j
        Print intNum(i)
    Next i
    Print intNum(4)
    
End Sub

Answer 2

dim i as long
dim j as long
dim t as long
dim n(4) as long
for i=0 to 4
    n(i)=int(rnd()*1000)
next i
for i=0 to 4
    for j=0 to 3
        if n(j)>n(j+1) then
           t=n(j)
           n(j)=n(j+1)
           n(j+1)=t
        end if
    next j
next i
for i=0 to 4
    print n(i)
next i