vb点虐 中数组索引 vb索引怎么填

在VB.NET中执行基本的数组操作

对数组进行操作的能力在任何编程语言中都很重要 VB NET与其它语言相似 提供了简单的途径对数据进行分组 将它们存放到数组结构中 本文中 我们将回顾数组的声明和使用

我们拥有十年网页设计和网站建设经验，从网站策划到网站制作，我们的网页设计师为您提供的解决方案。为企业提供成都做网站、成都网站设计、微信开发、小程序开发、手机网站制作设计、H5高端网站建设、等业务。无论您有什么样的网站设计或者设计方案要求，我们都将富于创造性的提供专业设计服务并满足您的需求。

数组的目的

数组通常用于存储相似类型的值和对象 它允许对变量进行分组 并且允许使用索引进行检索 数组有上界和下界 它用于指示数组的开始索引值和结束索引值 另外 数组中的数据可以按序排列 简单的数组是一维的 当然 在VB NET中也可以使用多维数组 还可以对数组进行循环 以确定或修改存储在数组中的某个值

数组的声明和初始化

有两个途径初始化数组 第一 在一条声明语句中进行声明同时初始化;第二 先声明数组 然后对其进行初始化

在一条语句中同时声明和初始化数组时 必须指定数组元素的数值类型 以及数组所包含元素的个数 VB NET中 数组是基于 的 这也就是说 数组的索引编号从 开始 其后元素进行连续编号 必须通过指定数组的上界确定数组中元素个数 上界是指定数组中最后一个元素索引的数字 Listing A给出了整型数组的声明和初始化示例

对数字进行声明和初始化的另外一个途径是 在分开的两步中分别进行声明和初始化操作 如果声明了一个数组 但是在这一行没有指定其大小 则在初始化时 需要对数组中的每一个单元都指定值 初始化值封装在{}括号中 两个值之间使用逗号做为分隔符 Listing B给出了在不同的两步对数组进行声明和初始化的示例

数组的声明和初始化一旦完成 则可以在运行时重新定义数组 从而改变其大小 可以使用ReDim声明改变数组结构中元素的个数 Listing C给出了声明 初始化和重新调整数组大小的示例

默认情况下 数组进行重新初始化后 原来的数值都会丢失 但是 在重新初始化时 可以使用ReDim声明和Preserve关键字保留数组的原有数值 Listing D中给出了一个这样的示例

lishixinzhi/Article/program/net/201311/11829

vb的程序升级到vb点虐 为什么会提示数组索引超出界限

很可能是你的Vb程序中有Option Base语句。

vb点虐 的数组基数都是从0开始的，并且不支持 Option Base 语句。

VB控件数组索引号在哪里设置

VB6.0控件数组索引号是在空间的属性窗口的Index 属性处设置。

Index 属性（控件数组），返回或设置唯一地标识控件数组中一个控件的编号。仅当控件是控件数组的元素时是有效的。

虽然缺省状态下 Visual Basic 分配下一个可用的整数作为控件数组中新的控件的 Index 的值，但也可以改变该分配值并跳过一些数。也可以为数组中的第一个控件的

Index 设一个非 0 的整数。如果在代码中引用一个 Index 的值而在控件数组中没有所标识的控件，那么将产生一个Visual Basic 运行时错误。

Index 属性区分控件数组中的元素。当数组中的一个控件识别了一个事件时，Visual Basic将调用公共事件过程并传递一个参数（Index 属性的值），分辨是哪个控件识别事件。

例如，Number_Click 事件过程的第一行代码是这样的：

Private Sub Number_Click (Index As Integer)

如果 Number(0) 识别事件，则 Visual Basic 将 0 作为 index 参数传递，而如果 Number(1) 识别事件，则 Visual Basic 将 1 作为 index 参数传递。

Index 属性示例

该例子开始时有两个 OptionButton 控件，并在每次单击 CommandButton 控件时在窗体中加入一个新的OptionButton。当单击一个 OptionButton 时，FillStyle

属性被设置并且画一个新的圆。要试用此例，将下面的代码粘贴到具有两个 OptionButton 控件、一个 CommandButton、以及一个大的 PictureBox

控件的窗体的声明部分之中。将两个 OptionButton 控件的 Name 属性都设置为 Option1

以创建一个控件数组。

Private Sub Option1_Click(Index As Integer)

Dim H, W   '声明变量。

Picture1.Cls   '清除图片。

Picture1.FillStyle = Index   '设置 FillStyle。

W = Picture1.ScaleWidth / 2   '获取圆的大小。

H = Picture1.ScaleHeight / 2

Picture1.Circle (W, H), W / 2   '画圆。

End Sub

Private Sub Command1_Click()

Static MaxIdx   '数组中的最大索引值。

If MaxIdx = 0 Then MaxIdx = 1   '预置 MaxIdx。

MaxIdx = MaxIdx + 1   '索引值增加 1 。

If MaxIdx 7 Then Exit Sub   '在窗体中放置八个按钮。

Load Option1(MaxIdx)   '在数组中创建新的项。

'在前一个按钮下面设置新选项按钮的位置。

Option1(MaxIdx).Top = Option1(MaxIdx - 1).Top + 360

Option1(MaxIdx).Visible = True   '使新的按钮可见。

End Sub

vb点虐 数组问题。下面的程序运行错误，提示是索引超出数组界限，没搞明白？哪位高手指点下？

你对For Each的使用没有明确

你这里的意思是指，，i属于a数组，所以，i会是2，也会是4，也会是6，也会是8，也会是10，也会是12.。。。如果 再用a(i)去 索引数组中的数据肯定会超出索引范围

你这个改，把

sum += a(i)

改成：

sum += i

就可以了