从品牌网站建设到网络营销策划,从策略到执行的一站式服务
用Erase 函数试试,
成都创新互联公司主营延吉网站建设的网络公司,主营网站建设方案,成都app开发,延吉h5微信平台小程序开发搭建,延吉网站营销推广欢迎延吉等地区企业咨询
Erase函数的作用是:重新初始化大小固定的数组的元素,以及释放动态数组的存储空间。
希望有帮助
思路:个人认为,VB里没有特别好的办法,不如直接定义一个大小为2000的数组,用个循环把2500这个数组的数抄过去,抄的过程中,能被5整除的就跳过。例子:
Dim arr,brr(5) As Integer '定义一个长为5的数组,把长为10的数组内奇数抄过来
Dim i, j As Integer
j = 0
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To 9
If Not arr(i) Mod 2 = 0 Then '偶数的,不要
brr(j) = arr(i)
j = j + 1
End If
Next i
For i = 0 To 4 '输出结果
Print brr(i)
Next i
Erase 数组名
要注意,如果是固定数组,则所有元素的值被初始化(字符型为空字符串,数值型为0),数组的大小是不变的;如果是动态数组,则所有元素被删除,内存空间被回收,要重新ReDim才能使用。Private Sub Form_Click()Dim a(9) As Integer, i As IntegerRandomizePrint "清除前:"For i = 0 To 9 a(i) = Rnd * 100 Print a(i);NextPrintErase aPrint "清除后"For i = 0 To 9 Print a(i);NextPrintEnd Sub
删除数组元素只能用于动态数组,否则元素只能清零(整型)或清空(字符)
如数组a
清0 a(0)=0
清空 a(0)=""
动态数组清空:erase a
(1)如果ComboBox中的不是通过数据绑定得到的,用ComboBox.Items.Clear 方法 从 ComboBox 中移除所有项。
'清除所有项
ComboBox1.Items.Clear()
'清除ComboBox1显示
ComboBox1.ResetText()
(1)如果ComboBox中的是通过数据绑定得到的,在用ComboBox.Items.Clear 方法 从 ComboBox 中移除所有项之前,先断开绑定的数据源。
'断开数据源
ComboBox1.DataSource = Nothing
'清除所有项
ComboBox1.Items.Clear()
'清除ComboBox1显示
ComboBox1.ResetText()
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图