vb 数组，VB中数组的下标的作用是什么？
数组数组就是数据组，一个数组包含若干个元素；例如：Dima(1to3)AsInteger就是定义了一个具有3个元素的整型类型的数组a，这个数组可以存放3个整数数据。对于数组的操作，通常是对其元素的一一操作，例如：a(1)=100'将100存放到数组a的第1个元素a(2)=200'将200存放到数组a的第2个元素又如：a(3)=a(1)*
5上述括号里的数字就是数组的下标，可见，数组下标的重要性。对数组的操作，是通过数组的下标对其元素的操作。
VB60选择法对数组进行排序？
1、打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“升序排列”和“降序排列”。
2、将窗体Form1的caption属性改为“选择法数组排序”，将界面设置成下图。
3、在Load事件中写入如下代码。RandomizeFor i = 1 To 10a(i) = Int(Rnd * 101 + 100)Lbl1.Caption = Lbl1.Caption & a(i) & " "Next i。
4、在通用对话框对数组进行定义，使其成为窗体级变量：Dim a(1 To 10) As Integer。
5、双击“升序排列”命令按钮，进入代码编辑窗口，输入如下代码：For i = 1 To 9Min = a(i)For j = i + 1 To 10If a(j) < Min ThenMin = a(j)t = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iLbl2.Caption = ""For i = 1 To 10Lbl2.Caption = Lbl2.Caption & a(i) & " "Next i。
6、双击“降序排列”命令按钮，进入代码编辑窗口，输入如下代码：For i = 1 To 9Max = a(i)For j = i + 1 To 10If a(j) > Max ThenMax = a(j)t = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iLbl2.Caption = ""For i = 1 To 10Lbl2.Caption = Lbl2.Caption & a(i) & " "Next i。
7、关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数。
8、单击“升序排列”命令按钮，标签一中的数组按升序排列在标签二中显示，如图。
9、单击“降序排列”命令按钮，标签一中的数组按降序排列在标签二中显示，如图。
vb控件数组中第一个元素是什么？
控件数组是由一组相同类型的控件组成。它们共用一个控件名，绝大部分的属性也相同，但有一个属性不同，即Index属性的值不同。
当建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个元素下标是0。
vbnet如何实现控件数组功能？
你好，我是【技术的还是觉得】，很高兴为你解答。可以实现首先创建一个Button类型控件数组：
1、创建“Windows应用程序”类型的工程，添加名为ButtonArray的类，并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。
2、为ButtonArray类添加ParentForm属性，即控件组所在窗体，创建初始化函数（构造函数）；
3、为控件数组类增加AddItem方法，该方法在控件数组类中添加成员；
4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员。示例代码：Public Class ButtonArray Inherits System.Collections.CollectionBase Private ReadOnly ParentForm As System.Windows.Forms.FormPublic Sub New(ByVal pForm As System.Windows.Forms.Form) ParentForm = pForm End SubDefault Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Button Get Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承 End Get End PropertyPublic Sub AddItem() Dim btnItem As New System.Windows.Forms.Button Me.List.Add(btnItem) ParentForm.Controls.Add(btnItem) '向窗体中增加控件 btnItem.Tag = Me.Count 'Count属性从CollectionBase 继承 btnItem.Top = Me.Count * 30 btnItem.Left = 200 btnItem.Text = "Button" & Me.Count.ToString AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序 End SubPublic Sub AddItem(ByVal btnItem As System.Windows.Forms.Button) Me.List.Add(btnItem) AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序 End Sub Public Sub RemoveItem() If Me.Count > 0 Then ParentForm.Controls.Remove(Me(Me.Count - 1)) Me.List.RemoveAt(Me.Count - 1) End If End SubPublic Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) '在这里编写控件数组对点击事件的响应 '例如： MsgBox("点击：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String)) End SubEnd Class使用创建的控件数组在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。双击Form添加代码：Public Class Form1 Inherits System.Windows.Forms.Form……Windows窗体设计器生成的代码…… Dim Buttons As New ButtonArray(Me)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Buttons.AddItem() End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Buttons.RemoveItem() End SubEnd Class其他的控件数组也可以用类似的方式来实现例如 Label控件数组LabelArray.vb代码如下：Public Class LabelArray Inherits System.Collections.CollectionBase Private ReadOnly ParentForm As System.Windows.Forms.Form Public Sub New(ByVal pForm As System.Windows.Forms.Form) ParentForm = pForm End SubDefault Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label Get Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承 End Get End PropertyPublic Sub AddItem(ByVal btnItem As System.Windows.Forms.Label) Me.List.Add(btnItem) AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序 End SubPublic Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) '在这里编写控件数组对点击事件的响应 '例如： MsgBox("点击：" & sender.GetType().ToString & CType(CType(sender, Label).Tag, String)) End SubEnd Class使用创建的Label控件在Form1中放置两
vb中如何定义一维数组中数组的个数？
函数参数不能限定数组元素的个数，参数仅仅是说明了参数类型是元素为double型的数组。
以下代码只保留数组的前五个元素的值，能起到限定数组长度的作用。Public Sub test(a() As Double, b() As Double) dim c(5) as double dim d(5) as double dim i as integer for i = 0 to 4 c(i)=a(i) d(i)=b(i) next d(0) = c(0) + 2: d(1) = c(1) + 3 End Sub