怎么清空数组! 在线谢谢 怎么清空数组! 在线谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不知道楼主要做什么,做个循环置空不就行了??????要不你真得试试重新定义一下,用ReDim 原来数组 如果是动态数组 使用 redim 否则 使用 Windows API: ZeroMemory 一般来讲 Redim 就可以了,虽不是效率最高的方法,但对于绝大多数的情况下是足够要求了。如果要最高的效率您得看值不值了,因为您可能要多写上几十行的代码。 如果你想清空数组里的内容的话,就用循环清空就可以了用Redim,重定义一下了 Erase 语句重新初始化大小固定的数组的元素,以及释放动态数组的存储空间。语法Erase arraylist所需的 arraylist 参数是一个或多个用逗号隔开的需要清除的数组变量。说明Erase 根据是固定大小(常规的)数组还是动态数组,来采取完全不同的行为。Erase 无需为固定大小的数组恢复内存。Erase 按下表来设置固定数组的元素:数组类型 Erase 对固定数组元素的影响 固定数值数组 将每个元素设为 0。 固定字符串数组(长度可变) 将每个元素设为零长度字符串 ("")。 固定字符串数组(长度固定) 将每个元素设为 0。 固定 Variant 数组 将每个元素设为 Empty。 用户定义类型的数组 将每个元素作为单独的变量来设置。 对象数组 将每个元素设为特定值 Nothing。 Erase 释放动态数组所使用的内存。在下次引用该动态数组之前,程序必须使用 ReDim 语句来重新定义该数组变量的维数。---------------------------------------------------Erase 语句示例该示例使用 Erase 语句重新初始化固定大小的数组中的元素,以及释放动态数组存储空间。'声明数组变量。Dim NumArray(10) As Integer ' Integer 数组。Dim StrVarArray(10) As String '变长的 String 数组。Dim StrFixArray(10) As String * 10 '定长的 String 数组。Dim VarArray(10) As Variant 'Variant 数组。Dim DynamicArray() As Integer '动态数组。ReDim DynamicArray(10) '分配存储空间。Erase NumArray '将每个元素设为 0。Erase StrVarArray '将每个元素设为 '零长度字符串 ("")。Erase StrFixArray '将每个元素设为 0。Erase VarArray '将每个元素设为 Empty。Erase DynamicArray '释放数组所用内存。 vb如何在窗体循环显示数据库中数据? 如何选取已有表的记录建立新表 在程序中违反唯一约束条件的写入命令,怎样做令程序不自动退出 高分求题解(3/3)!!! 为什么我的CAB安装包不能自动下载安装?(在线等待) 一个关于datareport分组标头的问题 想修改像toolbar,statubar的形象该怎么办呀? 怎么样让SSTAB控件点击不同的选项卡出现不同的颜色。 我用VB打包的安装文件总提示出错,请高手指教。 送分菜问题。 请问怎么实现象msn或QQ那样,当有新消息来的时候,窗口(最小化)在任务栏上一闪一闪的功能??? 如何用print打印出数组的结果
ReDim 原来数组
否则 使用 Windows API: ZeroMemory
如果要最高的效率您得看值不值了,因为您可能要多写上几十行的代码。
用Redim,重定义一下了
固定数值数组 将每个元素设为 0。
固定字符串数组(长度可变) 将每个元素设为零长度字符串 ("")。
固定字符串数组(长度固定) 将每个元素设为 0。
固定 Variant 数组 将每个元素设为 Empty。
用户定义类型的数组 将每个元素作为单独的变量来设置。
对象数组 将每个元素设为特定值 Nothing。
Erase 释放动态数组所使用的内存。在下次引用该动态数组之前,程序必须使用 ReDim 语句来重新定义该数组变量的维数。
---------------------------------------------------
Erase 语句示例
该示例使用 Erase 语句重新初始化固定大小的数组中的元素,以及释放动态数组存储空间。'声明数组变量。
Dim NumArray(10) As Integer ' Integer 数组。
Dim StrVarArray(10) As String '变长的 String 数组。
Dim StrFixArray(10) As String * 10 '定长的 String 数组。
Dim VarArray(10) As Variant 'Variant 数组。
Dim DynamicArray() As Integer '动态数组。
ReDim DynamicArray(10) '分配存储空间。
Erase NumArray '将每个元素设为 0。
Erase StrVarArray '将每个元素设为
'零长度字符串 ("")。
Erase StrFixArray '将每个元素设为 0。
Erase VarArray '将每个元素设为 Empty。
Erase DynamicArray '释放数组所用内存。