Erase语句应用示例 Private Sub Form Click Dim A(3) As Integer, B(As Integer A(1)=1:A(2)=2:A(3)=3 ReDim e(4)为B分配4个整数单元(8B) PrintA(D),A(2),A(3) Erase A,B‘A充0,B的单元释放 PrintA(D),A(2),A(3) End SubErase语句应用示例 Private Sub Form_Click() Dim A(3) As Integer, B ( ) As Integer A(1) = 1: A(2) = 2: A(3) = 3 ReDim B(4) ‘为B分配4个整数单元（8B） Print A(1), A(2), A(3) EraseA, B ‘A充0，B的单元释放 Print A(1), A(2), A(3) End Sub