vb代码，再问一个问题，怎么删除数组中的一个元素后，后面的元素往前移动？

Dim a(), n, m As Integer
Dim str As String = ""
n = InputBox("请输入要产生随机数的个数")
m = InputBox("请输入要删除元素的位置")
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd() * 100)
str = str & a(i) & " "
Next
str = str & vbCrLf
For i = m To n - 1
a(i) = a(i + 1)
Next
For i = 1 To n - 1
str = str & a(i) & " "
Next
TextBox6.Text = str本回答被提问者采纳

病情分析：
你好，需要进一步彩超检查确定性别、
指导意见：
不过国家禁止非医学需要检查孩子性别。其他方法无法确定孩子的性别。

病情分析：
你好，需要进一步彩超检查确定性别、
指导意见：
不过国家禁止非医学需要检查孩子性别。其他方法无法确定孩子的性别。