如何在VB中删除数组中指定位置的元素?各位好心人进来看看吧!

来源：百度知道编辑：UC知道时间：2024/05/01 13:43:40

这是我的一道VB复习题,填空的,谢谢各位大哥大姐帮忙,顺便说下简单的道理,再次感谢!!!
Option Explicit
Dim a()
Dim n as Integer
Private Sub DeleteArray(x(),ByVal k )
for n=k to ______(1)_________
______(2)_________
next
ReDim Preserve x(n-1)
End Sub
Private Sub Command1_click()
n=0
If Ubound(a)>0 Then
n=Val(InputBox("请输入要删除的第几个元素(0-10):"))
End If
if n<=0 and n<=10 then_______(3)___________
End Sub
Private Sub From_Activate()
_________(4)______________
For n=0 to 10
a(n)=Int(Rnd*100)
next n
End Sub

Option Explicit
Dim a()
Dim n as Integer

Private Sub DeleteArray(x(),ByVal k )
for n=k to Ubound(x)-1
x(n)=x(n+1)
next
ReDim Preserve x(n-1)
End Sub

Private Sub Command1_click()
n=0
If Ubound(a)>0 Then
n=Val(InputBox("请输入要删除的第几个元素(0-10):"))
End If
if n<=0 and n<=10 then DeleteArray a,n
End Sub

Private Sub From_Activate()
ReDim a(10)
For n=0 to 10
a(n)=Int(Rnd*100)
next n
End Sub

如何在VB中删除数组中指定位置的元素?各位好心人进来看看吧! 舟--如何在C++中指定数组大小在VB中如何清除图像框（pictureBox)中指的位置、指定大小的一小块图像？怎么用vb查找access中指定数据并显示在DataGrid中? vb中如何在字节数组中取浮点数？ vb 中如何初始化数组？ access 数据库中，如何批量删除记录中指定的内容？ VB如何修改ACCESS数据库中指定的记录在VB中如何选择一个控件数组 vb编程,如何在数组中找到最大最小值?