VB编程:数组中插入新的数组元素-26

举报
彭世瑜 发表于 2021/08/13 23:07:09 2021/08/13
【摘要】 运行效果: 程序代码: Dim a() As Long Private Sub Form_Load()     ReDim Preserve a(1 To 4)   'Preserve:当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据。  ...
运行效果:
VB编程:数组中插入新的数组元素-26

程序代码:
Dim a() As Long
Private Sub Form_Load()
    ReDim Preserve a(1 To 4)   'Preserve:当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据。
    'Dim i As Long, m As Long
    a(1) = 1: a(2) = 2: a(3) = 3: a(4) = 4
    For i = 1 To 4
        Text1.Text = Text1.Text & "a(" & CStr(i) & ")=" & CStr(a(i)) & "; "
    Next i
    i = 2
    Dim n As Long: n = 6
    ReDim Preserve a(1 To 5)
    For i = 2 To 5
        m = a(i)
        a(i) = n
        n = m
    Next i
    For i = 1 To 5
        Text2.Text = Text2.Text & "a(" & CStr(i) & ")=" & CStr(a(i)) & "; "
    Next i
End Sub

小结:
    1、数组中插入新的元素,数组的大小被改变,此时需要使用动态数组,并对数组ReDim重定义    
    2、Preserve:当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据。
 

文章来源: pengshiyu.blog.csdn.net,作者:彭世瑜,版权归原作者所有,如需转载,请联系作者。

原文链接:pengshiyu.blog.csdn.net/article/details/81048874

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。