VB数组介绍与实例.pptVIP

数组 当我们在程序中欲记录一位同学的身高和体重时： dim name as string dim height, weight as integer name=“王小明” height=165 weight=52 不过当学生的人数增加到100位的时候，由于每个同学都需要使用到3个变量，那么10位同学就需要定义100×3＝30个变量，如果再对100个同学给予初值……此种方式编写程序有如噩梦一般。 幸运的是，VB.NET提供数组，将同性质的数据以一个数组来存放。若是上面的语句就需使用3个数组。 数组就像一组经过编号的变量，若将一个变量视为一个车厢的话，那么一个数组就是一列火车，而每列火车长度即数组的长度，就要由程序的需求来决定。 一维数组的声明： Dim 数组名（下标1） As 数据类型 数组元素由下标0到下标最高值连续排列。 数组元素的赋值： dim a() As Integer= { 0, 2, 4, 6, 8 } 赋初值时不可以在数组名后面的小括号内设置数组的大小，如下面的写法是错误的： dim a(4) As Integer= { 0, 2, 4, 6, 8 } 如果数组的类型是 Object，则可以在数组中混合使用各种数据类型。若定义一个数组时未用As来指定数组的数据类型则默认为object类型。 例如： dim myarray()={1,”abc”,0,True,-2} New子句定义数组 例如： dim myarray() as integer=new integer(3){} 同 dim myarray(3)as integer 使用循环读取数组的内容 例如：将已知数组的内容相加存入sum变量内。 sum=0 for i=0 to 9 step1 sum+=myarray(i) next i 实例练习： 使用文本框控件连续输入数据到数组中，每输入一个数据马上将输入的数据逐行显示在窗体的标签控件上面，最后按下“显示数组”按钮，会将整个数组内容以循环方式一次显示在窗体的标签控件上面。 Dim myarray(4) Dim I As Integer --------TextBox1_KeyPress--------- If e.KeyChar = Chr(13) Then If TextBox1.Text Then myarray(i) = TextBox1.Text i += 1 Label1.Text += ( i ) + TextBox1.Text + vbNewLine TextBox1.Text = End If If i = 5 Then Label1.Text += 输入完毕 TextBox1.Enabled = False End If End If -----Button1_Click------ dim j as integer label3.Text =数组元素如下：+vbnewline for j=0 to 4 label3.Text +=myarray(j)+, Next 多维数组 二维数组： 以两个下标来表示。如：dim myarr(2,3) as integer ‘3*4数组 动态数组 能够在运行时改变数组的大小 。 ReDim [ Preserve ] 数组名(下标1[,下标2…]) Preserve是可选项。使用ReDim语句重新定义一个数组时，数组原有的值通常会丢失，但可在ReDim语句中，使用Preserve关键字来保持这些值。 Dim I, MyArray(3) As Integer ReDim MyArray(4) 分配数组有5个元素 For I = 0 To 4 MyArray(I) = I 初始化数组，此时数组中的元素为0，1，2，3，4 Next I ReDim Preserve MyArray(6) 调整该数组具有7个元素，此时数组中的元素为0，1，2，3，4，0，0，最后两个元素