VB这样在数组中添加新数据?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VB这样在数组中添加新数据?相关的知识,希望对你有一定的参考价值。

VB这样在数组中添加新数据?如图所示:记录数组已数据,将数据(如25)添加到、指定序号(如3),按下添加按钮,记录数组原数据“10,20,30,40,50,60”变成新数据“10,20,25,30,40,50,60”。序号前的数据不变(10,20),序号后的数据也不变、只是都后移一位,将“25”夹在“20与30”中间。(静态)数组的数量可自定(可以几十个),数据可自定(任意数),序号不超过数组的序号。这个问题看似简单,但本人却无能为力,敬请各位大师热心援手帮助一解,至此先真诚谢谢。

给你一个方法,但是代码来不及帮你写了
1、数组自己可以定义成不定大小的,也就是可以修改上限的,记住要设置成可以保留原数据的那种
2、将数组的上限增加一个,原来有n个元素,现在修改为n+1
3、将需要插入位置及以后位置的数据用另外的数组保存
4、将需要插入的数据赋值给原来数组对应的位置,然后将保存的数据重新赋值回来
(3和4步,可以不用新的数组实现:将第n个数据赋值到第n+1个,第n-1个数据赋值到第n个、第n-2个数据赋值到第n-1个,依次类推,直到所有需要转移的数据全部操作完毕既可)追问

谢谢您的提示,我也试着做,还是有困难;如果再增加新数组问题又多了,按理说不增加新数组应该可以解决问题,可能我还没有理清其中关系;我努力试吧,不过还请大师能指点迷津,百忙之余指点一二,毕竟本人对VB不熟;总之感谢不尽。

追答Private Sub Command1_Click()
    Dim tt() As String, i As Integer, ss As String
    ReDim tt(1 To 10)
    For i = 1 To 10
        tt(i) = i
        ss = ss & tt(i) & ", "
    Next i
    Print ss
    ReDim Preserve tt(1 To 11)
    For i = 11 To 4 Step -1
        tt(i) = tt(i - 1)
    Next i
    tt(3) = 2.5
    ss = ""
    For i = 1 To 11
        ss = ss & tt(i) & ", "
    Next i
    Print ss
End Sub

上面的代码可以演示你要的结果,供你借鉴

参考技术A 没有好方法,只能用循环把插入点以后的所有元素后移一个,然后在插入点写入添加的数据。

以上是关于VB这样在数组中添加新数据?的主要内容,如果未能解决你的问题,请参考以下文章

在 VB 2010 的数据表中插入新列时,如何更新 SQL Server 2008 数据库?

数组:在原数组中添加新数据

vb.net Datagridview添加行

vb中如何让一个按钮调用另一个按钮中的数组

vb6.0系统,如何在DataBrid控件中直接修改数据?

vb.net 用数据集填充数组