Question

VB怎么清除数组中的全部元素的值

我想利用VB将一个数组中的所有数都清除，再添加新的数

Answer 1

Erase 数组名

要注意，如果是固定数组，则所有元素的值被初始化（字符型为空字符串，数值型为0），数组的大小是不变的；如果是动态数组，则所有元素被删除，内存空间被回收，要重新ReDim才能使用。

追问

我这个是固定的数组，能不能给个代码看看

追答

Private Sub Form_Click()
Dim a(9) As Integer, i As Integer
Randomize
Print "清除前："
For i = 0 To 9
    a(i) = Rnd * 100
    Print a(i);
Next
Print
Erase a
Print "清除后"
For i = 0 To 9
    Print a(i);
Next
Print
End Sub

 一般情况下，Erase这个命令是很少用到的，因为只要给数组重新赋值即可，用不着先清除再赋值，给人“脱裤子放屁”的感觉。

Answer 2

清除数组的话用erase arr,不过这样一来arr数组没有任何元素无法使用.如果是清除值用redim arr(0) 这样数组最大元素只有0