请帮忙编程，VB的．谢谢，很简单．

Private Sub Form_click()
Dim n(1 To 100) As Single
Dim i, j, x, temp, m
m = 10
Randomize
For i = 1 To m
n(i) = Int((91 * Rnd) + 10)
Next i
For j = 1 To m - 1
For i = j + 1 To m
If n(i) <= n(j) Then
temp = n(i)
n(i) = n(j)
n(j) = temp
End If
Next
Next
Print "产生10个由100以内的两位数组成的有序序列"
For i = 1 To m
Print n(i);
Next

Do

x = InputBox("插入一个数", "插入框")
If x = "" Then
GoTo l
End If
Print vbCrLf & "插入一个数后重新排序为："
If x >= n(m) Then
n(m + 1) = x
Else
For i = 1 To m
If x <= n(i) Then
num = i
GoTo ll
End If
Next
ll:
For i = m + 1 To num + 1 Step -1
n(i) = n(i - 1)
Next
n(num) = x
End If
m = m + 1
For i = 1 To m
Print n(i);
Next
Loop While x <> ""
l: Unload Me

End Sub