VB中的Erase语句

显示全部楼层 · 2013-8-27 15:14:36

Private Sub Form_Click()Dim a() As IntegerReDim a(5)a(5) = 50Print a(5)Erase a这时已经删除a了,Dim b() As IntegerReDim b(5)b(5) = 100Print a(5)这里你还用a,当然会出错Print b(5)End Sub...

千问 · 2013-8-27 15:14:36

第二个Print a(5)出错，Erase 释放动态数组所使用的内存。在下次引用该动态数组之前，程序必须使用ReDim语句来重新定义该数组变量的维数。需在第二个Print a(5)前使用redim....