VB程序设计有关数组的难题

'就在这吧，不用mail了

Private Sub Command1_Click()
Dim UB%, marr%(), m%, n%, p%, Tmp%, NN%
UB = InputBox("请输入一个大于3的整数作为数组上限")
ReDim marr(1 To UB)
'生成数组
For m = 1 To UB
Randomize
marr(m) = Int(Rnd * 100) + 1
Print marr(m);
Next m
Print
'排序
For m = 1 To UB - 1
n = m
For p = m + 1 To UB
If marr(p) < marr(n) Then n = p
Next p
If m <> n Then Tmp = marr(m): marr(m) = marr(n): marr(n) = Tmp
Next m
'显示
For m = 1 To UB
Print marr(m);
Next m
Print

''NN
NN = InputBox("请输入一个整数进行下一步操作")

'删除
p = UB
For m = 1 To UB
If marr(m) = NN Then
p = p - 1
For n = m To UB - 1
marr(n) = marr(n + 1)
Next n
End If
Next m
ReDim Preserve marr(1 To p)

'插入
If p = UB Then
For m = 1 To UB
If marr(m) > NN Then
p = m
Exit For
End If
Next m
ReDim Preserve marr(1 To UB + 1)
For m = UB + 1 To p Step -1
marr(m) = marr(m - 1)
Next m
marr(p) = NN
End If

'输出比较
For m = 1 To UBound(marr)
Print marr(m);
Next m
Print

End Sub

其实我没懂````生成指定个数的元素 ，，，根据什么生成，，总要有条件的吧，随机？？显然不是，那请问怎么根据那值生成呢？