利用VB将一个数组中的所有数都清除，再添加新的数
Erase 数组名
要注意，如果是固定数组，则所有元素的值被初始化（字符型为空字符串，数值型为0），数组的大小是不变的；如果是动态数组，则所有元素被删除，内存空间被回收，要重新ReDim才能使用。
Private Sub Form_Click()
Dim a(9) As Integer,
i As Intege
rRandomizePrint "清除前："
For i = 0 To 9
a(i) = Rnd * 100
Print a(i);
NextPrintErase a
Print "清除后"
For i = 0 To 9
Print a(i);
Next
Print
End Sub
Erase 数组名
要注意，如果是固定数组，则所有元素的值被初始化（字符型为空字符串，数值型为0），数组的大小是不变的；如果是动态数组，则所有元素被删除，内存空间被回收，要重新ReDim才能使用。
Private Sub Form_Click()
Dim a(9) As Integer,
i As Intege
rRandomizePrint "清除前："
For i = 0 To 9
a(i) = Rnd * 100
Print a(i);
NextPrintErase a
Print "清除后"
For i = 0 To 9
Print a(i);
Next
End Sub
