精华内容
下载资源
问答
  • VB 删除数组中指定元素实例

    热门讨论 2010-06-07 14:13:35
    VB 删除数组中指定元素实例 VB 删除数组中指定元素实例
  • VB编程:数组中删除数组元素-27

    千次阅读 2016-11-26 11:34:18
    1、插入数组元素和删除数组元素都使用循环交换,插入数组元素是原数组元素往后移动,删除数组元素是将原数组的元素往前移动。   2、插入数组元素,需要先将数组长度加长再增加数组元素;删除数组元素,可以先删除...
    运行效果:
    VB编程:数组中删除数组元素-27

    程序代码:
    Dim a()
    Private Sub Form_Load()
        ReDim Preserve a(1 To 5)
        For i = 1 To 5
            a(i) = i
        Next i
        For i = 1 To 5
            Text1.Text = Text1.Text & "a(" & i & ")=" & a(i) & ";   "
        Next i
        For i = 2 To 4
            a(i) = a(i + 1)
        Next i
        ReDim Preserve a(1 To 4)
        For i = 1 To 4
            Text2.Text = Text2.Text & "a(" & i & ")=" & a(i) & ";   "
        Next i
    End Sub

    总结:
        1、插入数组元素和删除数组元素都使用循环交换,插入数组元素是原数组元素往后移动,删除数组元素是将原数组的元素往前移动。
        2、插入数组元素,需要先将数组长度加长再增加数组元素;删除数组元素,可以先删除数组元素,再建数组长度缩短。

    展开全文
  • 删除数组中的元素vb6

    2011-04-23 16:29:55
    删除数组中的指定的元素,这个例子自动生成随机数在数组中删除其中的指定的一个元素的例子。
  • VB 清除数组中全部元素的值

    千次阅读 2019-06-12 11:41:58
    程序运行时候此数组内容必须为空,所以需要在程序末尾...所需的 arraylist 参数是一个或多个用逗号隔开的需要清除的数组变量。 说明 Erase 根据是固定大小(常规的)数组还是动态数组,来采取完全不同的行为。Eras...

    程序运行时候此数组内容必须为空,所以需要在程序末尾增加一清空数组内所有元素值得动作
    Erase a

    以下来自帮助
    Erase 语句

    重新初始化大小固定的数组的元素,以及释放动态数组的存储空间。

    语法

    Erase arraylist

    所需的 arraylist 参数是一个或多个用逗号隔开的需要清除的数组变量。

    说明

    Erase 根据是固定大小(常规的)数组还是动态数组,来采取完全不同的行为。Erase 无需为固定大小的数组恢复内存。Erase 按下表来设置固定数组的元素:

    数组类型 Erase 对固定数组元素的影响
    固定数值数组 将每个元素设为 0。
    固定字符串数组(长度可变) 将每个元素设为零长度字符串 ("")。
    固定字符串数组(长度固定) 将每个元素设为 0。
    固定 Variant 数组 将每个元素设为 Empty。
    用户定义类型的数组 将每个元素作为单独的变量来设置。
    对象数组 将每个元素设为特定值 Nothing。

    Erase 释放动态数组所使用的内存。在下次引用该动态数组之前,程序必须使用 ReDim 语句来重新定义该数组变量的维数。

    展开全文
  • vb 一个数组删除相同元素,加入空值的出现。在网上找的如果出现空值vb就会死掉。
  • VB6实现动态多行增加和删除控件 Option Explicit Dim S1GlngMaxCharactor As Long Dim ChoiceRemove As Long '选择角色移除对象 Private Sub CmdAdd() Dim i As Long, n As Long Dim MaxCharactor As Long ...

               VB6实现动态增加和删除控件数组中的控件

    2021-6-3修改一个BUG

    控件的添加:

    1From1名称改为FrmWork

    2.添加Picture控件名称改为PicCharacterContainer

    3.添加Picture控件名称改为PicShow放入PicCharacterContainer中,设置成控件数组

    4.添加Text控件名称改为TxtShow放入PicCharacterContainer中,设置成控件数组

    操作:在PicCharacterContainer中鼠标左键添加控件,鼠标右键去除控件(可以点选指定控件)。

     

    代码: 

    Option Explicit
    Dim S1GlngMaxCharactor As Long
    Dim ChoiceRemove As Long '选择角色移除对象
    Private Sub CmdAdd()
    Dim i As Long, n As Long
    Dim MaxCharactor As Long
    MaxCharactor = 100 '最大控件数
    For i = 1 To MaxCharactor
        If fChkControls(FrmWork, "PicShow", i) = True Then '控件存在
        n = n + 1
        End If
    Next i
    S1GlngMaxCharactor = n + 1
    For i = 1 To MaxCharactor
        If fChkControls(FrmWork, "PicShow", i) = False Then '控件不存在
            AddCharactor i '增加Picture控件
            AddCharactorNotice i '增加Text控件
            PublicNewArrangeAdd S1GlngMaxCharactor, "PicShow", FrmWork, FrmWork.PicShow '在缺失位置增加控件
            PublicNewArrangeAdd S1GlngMaxCharactor, "TxtShow", FrmWork, FrmWork.TxtShow '在缺失位置增加控件
            AlignBoxes '对齐控件
            TxtShow(i).Text = i '显示控件数组编号
            Exit For
        End If
    Next i
    End Sub
    Private Sub CmdRemove()
    Dim n As Long, i As Long
    If ChoiceRemove <> 0 Then
    Unload PicShow(ChoiceRemove)
    Unload TxtShow(ChoiceRemove)
    ChoiceRemove = 0
    Else
        If S1GlngMaxCharactor >= 1 Then
                    For i = 1 To 100
                        If fChkControls(FrmWork, "PicShow", i) = True Then '存在 '2020-8-22修改为True
                        n = i '找到未删除最大编号
                        End If
                    Next i
                    If n = 0 Then
                        S1GlngMaxCharactor = S1GlngMaxCharactor - 1
                        MsgBox "最初控件不能移除"
                        Exit Sub
                    End If
        Unload PicShow(n)
        Unload TxtShow(n)
        S1GlngMaxCharactor = S1GlngMaxCharactor - 1
        Else
        MsgBox "最初控件不能移除"
        End If
    End If
    End Sub
    Private Sub PicCharacterContainer_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        CmdAdd
    End If
    If Button = 2 Then
        CmdRemove
    End If
    End Sub
    Rem 判断控件是否存在
    Function fChkControls(frmObject As Form, strControlsName As String, ByVal lngIndex As Long) As Boolean
    On Error GoTo Err
        Dim strContrName As String
        If lngIndex >= 0 Then
            strContrName = frmObject.Controls(strControlsName)(lngIndex).Name
        Else
            strContrName = frmObject.Controls(strControlsName).Name
        End If
        fChkControls = True
        Exit Function
    Err:
        fChkControls = False
    End Function
    Rem 增加控件
    Public Sub AddCharactor(ByVal n As Long)
    Dim RowNum As Long
    Dim Row As Long, Line As Long
    Load FrmWork.PicShow(n)
    Set FrmWork.PicShow(n).Container = FrmWork.PicCharacterContainer
    RowNum = Int(FrmWork.PicCharacterContainer.Width / FrmWork.PicShow(0).Width)  '一排容纳多少控件
    If n - 1 >= 0 Then
        Line = Int(n / RowNum) + 1               '控件所处行号
        Row = (n + 1) - (Line - 1) * RowNum '控件所处列号
        FrmWork.PicShow(n).Left = FrmWork.PicShow(0).Left + (Row - 1) * FrmWork.PicShow(n).Width
        FrmWork.PicShow(n).Top = FrmWork.PicShow(0).Top + (Line - 1) * (FrmWork.PicShow(n).Height + FrmWork.TxtShow(0).Height)
        FrmWork.PicShow(n).Visible = True
    End If
    End Sub
    Rem 增加文字控件
    Public Sub AddCharactorNotice(ByVal n As Long)
    Load FrmWork.TxtShow(n)
    Set FrmWork.TxtShow(n).Container = FrmWork.PicCharacterContainer
    If n - 1 >= 0 Then
        FrmWork.TxtShow(n).Left = FrmWork.PicShow(n).Left
        FrmWork.TxtShow(n).Top = FrmWork.PicShow(n).Top
        FrmWork.TxtShow(n).Visible = True
    End If
    End Sub
    Rem MaxNumber         最大数量
    Rem ControlBoxName 控件名称
    Rem From                     工作界面
    Rem ControlBox           控件:例子From.PicShow
    Public Sub PublicNewArrangeAdd(ByVal MaxNumber As Long, ByVal ControlBoxName As String, _
    ByRef From As Object, ByRef ControlBox As Object)
    Dim i As Long, l As Long, A As Variant, B As Variant
    For l = 1 To MaxNumber
        For i = 1 To MaxNumber
            If fChkControls(From, ControlBoxName, i) = True And fChkControls(From, ControlBoxName, i + l) = True Then
               If ControlBox(i).Left > ControlBox(i + l).Left Then
                If ControlBox(i).Top = ControlBox(i + l).Top Then '2021-6-2增加,作用是同行才交换位置
                A = ControlBox(i + l).Left
                B = ControlBox(i).Left
                ControlBox(i + l).Left = B
                ControlBox(i).Left = A
                End If
               End If
            End If
        Next i
    Next l
    End Sub
    Public Sub AlignBoxes()
    Dim i As Long
    On Error Resume Next '防止控件没有出错
    For i = 1 To S1GlngMaxCharactor
        FrmWork.TxtShow(i).Left = FrmWork.PicShow(i).Left
        FrmWork.TxtShow(i).Top = FrmWork.PicShow(i).Top + FrmWork.PicShow(i).Height
    Next i
    End Sub
    Private Sub PicShow_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        ChoiceRemove = Index
        CmdRemove
    End If
    If Button = 1 Then
        CmdAdd
    End If
    End Sub
    

     

    展开全文
  • VB数组详解

    2019-09-27 20:33:05
    这些变量称为数组的元素,每个数组元素都有一个编号,这个编号叫做下标,我们可以通过下标来区别这些元素。数组元素的个数有时也称之为数组的长度。一般情况下,数组的元素类型必须相同,可以是前面讲过的各种基本...

    一、数组的概念
    数组是一组具有相同类型和名称的变量的集合。这些变量称为数组的元素,每个数组元素都有一个编号,这个编号叫做下标,我们可以通过下标来区别这些元素。数组元素的个数有时也称之为数组的长度。
    一般情况下,数组的元素类型必须相同,可以是前面讲过的各种基本数据类型。但当数组类型被指定为变体型时,它的各个元素就可以是不同的类型。
    数组和变量一样,也是有作用域的,按作用域的不同可以把数组分为:过程级数组(或称为局部数组)、模块级数组以及全局数组。
       
    二、定长数组和动态数组
        定长数组
    定长数组的长度是在定义时就确定的,在程序运行过程中是固定不变的。其定义格式为:

    Dim数组名([下界TO]上界)[As类型名]
    其中,数组的下界和类型是可选的。所谓下界和上界,就是数组下标的最小值和最大值。缺省下界时,vB默认的下界是0,但通常人们习惯上是从1开始的,因此我们可以设置让数组的默认下界为1,这需要在每个模块的“(声明)”部分添加一行代码:
    如果定义数组时不指定其类型,默认是变体型的。
    下面举例说明定长数组的定义:
    ①Dim
    a(1 to 3)As Integer
    ②Dim b(5 to 9)As String
    ③Dim c(7)As Integer
    ④Dim
    d(6)
    其中,例①定义了一个具有三个元素的整型数组,其下标从1到3。例②定义了一个具有五个元素的字符型数组,其下标从5到9。例③缺省了下界,它定义了一个具有八个元素的整型数组,其下标从0到7。例④则缺省了下界和类型,定义的是具有七个元素的变体型数组,其下标从0到6。如果在该模块的“(声明)”部分添加了Option
    base 1,则例③和例④的下标都是从l开始了。
    在定义定长数组时,其上界和下界必须是常数或常量表达式。
       
    动态数组
    在很多情况下,数组的长度事先是无法预测的,而且有时可能需要在程序中改变数组的长度以适应新的情况,因此出现了动态数组。动态数组是在定义数组只指定数组名及其类型,等以后知道数组的长度或需要改变数组长度时再用“ReDim”指定它的长度。现举例如下:
       
    Dim X AS Integer
        Dim a()As String
    ……
        ReDim a(x)
    ……
       
    X=X+3
        ReDim
    a(x)
    其中的“…”代表其它代码。这段代码首先定义了一个整型变量和—个字符型的动态数组,之后经过一系列运算后使变量X得到一个定值,再使用“ReDim”指定数组的长度,最后根据需要又再一次改变了数组的长度。
    虽然可以一次或多次改变动态数组的长度,但当重新指定数组长度时,数组内原有的数据降会被清除。如果既想改变数组的长度,又想保留数组原有的数据,则在使用“ReDim”时需要加上“Preserve”关键字。例如:ReDim
    Preserve
    a(x)。但要注意,如果缩小数组长度,那么数组中超出新的下界到上界之间的元素将清除,即使使用了“Preserve'’关键字,也不会保留这些元素,如果仍然访问这些元素将会引起“下标越界”的错误!
    当不需要再使用某个动态数组时,我们可以使用“Erase”删除该数组,以释放该数组占用的内存空间,例如:Erase
    a()。
    三、多维数组及数组元素的引用
    一个数组可以是一维的,也可以是多维。当需要表示平面中的一个点坐标,就需要用到二维数组;表示空间中的一个点时,就需要用到三维数组。多维数组的定义格式为:
       
    Dim数组名([下界TO]上界[,TO 上界[下界 TO]   
    [,…])[AS类型名]
    多维数组的定义格式与—一维数组基本上是一致的,只是多加几个上界和下界。
    现在举例如下:
    Dim a(1 TO 3,1
    TO 4)    As Integer
    Dim b(5, 9)    As Siring
    Dim b(4, 3)

    这三行语句分别定义了一个两维数组,第一个指定了下界及类型;第二个只指定了类型   
    使用默认的下界;最后一个下界和类型都没有指定,其类型是变体型的。
    对数组元素的引用,是数组名加下标的形式。例如:
    Dim a(5)as
    Integer
    Dim b(3,4)as
    Integer
    a(1)=3
    a(2)=5
    a(3)=a(1)+a(2)
    b(2,1)=a(2)
    msgbox
    a(3)
    msgbox
    b(2,1)
    在此例中,先对数组a的前三个元素赋值,再给数组b的一个元素赋值,最后显示两个数组元素的值。用数组元素时,其下标不要超出了下界至上界的范围。转载请注明诚信在线娱乐http://www.shall-market.com

    转载于:https://www.cnblogs.com/treryh/p/3184112.html

    展开全文
  • 删除数组重复元素(VB.NET)

    热门讨论 2010-07-20 15:31:52
    VB.NET删除数组中的重复元素,包括源码和可执行程序,已在VS2005测试通过。
  • vb个数组去除相同值或只要相同值简单例子
  • VB学习记录——数组

    万次阅读 多人点赞 2019-07-06 13:05:49
    1.定义一个数组,其实就是让系统在内存分配一个连续的区域,用来存储数组的元素。其格式为:Dim 数组名字 (下界 To 上界) As 类型。 Dim MarkVB(1 To 30) As Integer '定义一个一维数组 上界30 下界是1 共30个...
  • 我现在有一个数组,然后怎么把指定的元素在数组中删除,比如一个数组 Dim a() As Integer={10,58,67,5,87} 然后我想删除67 新的数组变成{10,58,5,87}
  • VB 删除数组中的重复元素

    千次阅读 2013-02-14 19:43:27
    VB 删除数组中的重复元素,当几个数组元素的值相等时,只保留第一个元素,其他的元素被删除。并且返回结果数组。以下这个函数只支持一维数组。 Function Array_unique(Arr As Variant) As Variant Arr = QuickSort...
  • vb 数组删除元素

    2011-12-12 15:04:00
    Private Sub Command1_Click() Dim n(1 To 100) As Integer ...请输入数组元素个数", "输入框") Print "原始组为:" For i = 1 To num n(i) = i * 5 + 1 Pri...
  • VB数组的清除

    2015-10-12 15:27:00
    一个程序,同一数组只能用Dim语句定义一次。但有时可能需要清除数组的内容或对数组重新定义,这可以用:Erase语句来实现。 格式:Erase(数组名)[,(数组名)] 功能:用于重新初始化静态数组的元素,或者释放...
  • VB检测数组中的重复元素

    千次阅读 2013-01-11 14:52:01
    '需要点击菜单:工程->引用->Microsoft Scripting RuntimePublic Function HasRepeat(ByRef arr() As String) As Boolean Dim dict As Dictionary Set dict = New Dictionary Dim i As Variant ...
  • vb数组题型分析 精品文档 精品文档 收集于网络如有侵权请联系管理员删除 收集于网络如有侵权请联系管理员删除 精品文档 收集于网络如有侵权请联系管理员删除 数组题型分析 29. 以下有关数组的说明错误的是_29_ (A)...
  • VB中数组

    千次阅读 2011-09-16 09:26:39
    5.1 数组的概念 1.引例  求100个学生的平均成绩及超过平均成绩的人数。 ... 如果用一般变量来表示成绩,需要用100个变量,如:mark1、mary2、……...若用数组,可以只用一个来表示mark(1  To 100)。 2
  • vb.net 数组列表详解

    千次阅读 2017-08-10 16:48:19
    现在除了数组的长度计数是基于0开始的这个变化外,vb.net还引进了一个数组列表(ArrayList)对象来代替原来的集合(Collection)对象,集合对象的长度计数总是从1开始的,而且在需要的时候,数组列表的长度可以是不定的...
  • 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob,UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactema...
  • 怎样从数组中删除某个值?

    千次阅读 2014-04-21 21:02:13
    怎样从一个Perl数组中删除某个值? 我不确定undef是否和从数组中消除值有确切的关系,猜测一下,如果我们将undef视为"空",那么会有一些联系。但通常来说,将某些东西赋值为undef和删除某些东西是不一样的。 ...
  • VB-数组、集合、泛型

    2019-06-24 16:09:59
    最开始用内存中一个位置映射一个值,用变量来“使用”这个值。 进一步发展,用变量来引用一组值,这就是数组。由数组概念,发展出链表、堆、栈,进行排序、检索等。 但这并不能完全表达,由此发展出集合概念,它是...
  • vb动态数组

    2012-12-14 14:52:48
    VB环境下建立一个动态数组类,可以动添加、删除数组成员,获得成员个
  • VB数组快速排序算法

    千次阅读 2013-02-14 19:43:23
    VB数组排序模块,使用的是快速排序法,支持 Variant、Double、Long、String……等多种数据类型数组排序。 Option Explicit Private Sub QuicksortInt(list() As Integer, ByVal min As Integer, ByVal max As ...
  • vb 如何定义一个未知大小一维数组? 2012-12-09 10:33 酷依航 | 分类:VB | 浏览1941次我是这样定义 dim a(100) as string,但是经常性出现下标越界,又不想定义的范围太大,就想问下可不可以定义一个自适应的一维...
  • VB讲课笔记08:数组

    千次阅读 2018-03-12 18:01:30
    VB讲课笔记08:数组学习目标:理解数组的概念、掌握数组的声明、引用方法,掌握数组的使用以及与数组有关的常用算法;...1、数组数组元素将一组排列有序的、个有限的变量作为一个整体,用一个...
  • 掌握了本篇知识之后,简历上就可以多加条个人技能了:熟悉 Java/Android 常见的集合源码,包括 List、Set、Map、Queue/Deque 等....下面就是正文了,欢迎讨论~:前言起初想看集合源码是因为,次偶然的机会,...
  • VB中删除数组重复元素

    千次阅读 2010-01-22 15:36:00
    Option ExplicitFunction Delete3(Arr As Variant) As Variant Dim i As Integer For i = LBound(Arr) To UBound(Arr) If i > UBound(Arr) Then Exit For If Arr(i) = 3 Then
  • ![怎么插入一个元素到数组中,还有指定的元素怎么删除图片说明](https://img-ask.csdn.net/upload/201702/13/1486967219_29787.png)
  • 句代码搞定数组去重:  NSArray *oldArr = @[@"1",@"4",@"2",@"2",@"1"];  NSArray *newArr = [oldArr valueForKeyPath:@"@distinctUnionOfObjects....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,390
精华内容 4,956
关键字:

vb数组中删除一个数