删除数组元素,生成 10 个 1~99 的随机整数作为原始数据,存于数组 d( ) 中,然后删除指定位置的数组元素。如果指定位置小于 1 或者大于数组元素的个数,则不执行删除操作,将删除前、后的数组元素分别显示在两个文本框中。将下列程序代码补充完整。 【提示】删除指定位置 p 的数组元素,只要从 p+1 位置的元素到最后一个元素全部向前移动一个位置,删除操作数后数组元素的总个数减 1 。为了适应多次删除的需要,允许改变数组元素的个数,因此将数组 d( ) 设置为动态数组。 下列,文本框 Text1 用于显示原数组元素,文本框 Text3 用于显示删除后的数组元素。删除位置 p 由文本框 Text2 输入。 程序代码如下: Dim n As Integer, d() As Integer ‘ 在窗体模块的声明声明动态数组 d() , n 为下标数 Private Sub Form_Load() Text1.Text=”” n=10 ‘n 初始值为 10 ReDim d(n) ‘ 定义动态数组 For k=1 To n d(k)=Int(Rnd*99+1) Text1.Text=Text1.Text & Str(d(k)) ‘ 数组中数据显示在 Text1 中 Next k End Sub Private Sub Command1_Click() Text4.Text=“” pos= Val(Text3.Text) ‘ 删除的位置 if pos<1 Or pos>n Then Exit Sub ‘ 若 pos 超界,则不执行删除操作,退出本事件过程 For k= pos To ( 1 ) ( 2 ) Next k n=n-1 ( 3 ) For k=1 to n Text4.Text =Text4.Text & Str(d(k)) ‘ 插入后结果显示在 Text4 中 Next k End Sub