数组集合与结构.ppt

④ 数组中每个元素的存储单元是连续的，按照行优先来排列，例如A(4,3)的排列： ⑤ 数组声明中的下标规定每一维的大小，表明数组的整体特性，而在其他位置出现的下标表示数组中的不同元素； Dim A(5) As Integer A(5)=32 ⑥ 要确定数组某一维下标的下界或者上界，可以通过数组本身的方法GetLowerBound(维度）和GetUpperBound(维度）来实现； Dim intA(5, 8) As Integer Dim intB(12) As String Dim temp As Integer temp = intA.GetUpperBound(0) temp = intA.GetUpperBound(1) temp = intB.GetUpperBound(0) temp = intB.GetLowerBound(0) 4、数组的声明(续) ⑸　交错数组 　　又称为嵌套数组,数组的元素也是数组。有时，数组是两维的但并不是矩形。 比如，一个月份的数值，其每个元素又是天数的数组，由于不同的月份又不同的天数，元素不能构成一个矩形的两位数组。在这种情况下，可以使用交错数组。也就是说，数组里面嵌套数组。 在声明中，在变量名后添加的圆括号的对数与嵌套数组的级数相同。 4、数组的声明(续) 例如： Dim myarr()()() as string ’ ok Dim arr1(2)()() As Integer ’ ok Dim arr2(2)(3)() As Integer ’ error Dim arr3(2)()(4) As Integer ’ error Dim arr4(2)(3)(4) As Integer ’ error error: “初始化数组的数组时，只能指定顶级数组的界限” Dim str As String Dim i As Integer Randomize() str = For i = 0 To 8 a(i) = Int(90 * Rnd()) + 10 str = str a( i ) = CStr(a(i)) If (i + 1) Mod 3 = 0 Then str = str vbCrLf End If Next Label1.Text = str Dim max, min, i As Integer Dim sum As Double max = 10 : min = 100 : sum = 0 For i = 0 To 8 If a(i) max Then max = a(i) If a(i) min Then min = a(i) sum = sum + a(i) Next Label5.Text = max Label6.Text = min Label7.Text = sum / 9 4.1 数组 4.1.6 　If i Mod 4 = 0 Then 如果每行显示超过4个数据 myString = myString Chr(13) 连接一个回车换行符，换行显示 End If Next Label1.Text = myString End Sub 命令按钮“计算”的Click事件 Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) _Handles Button2.Click Dim i As Integer Dim sum As Double For i = 1 To 100 sum = sum + a(i) 计算数组总和 Next TextBox1.Text = sum End Sub 与For…Next语句类似，都是重复执行指定的一组语句。但For Each…Next语句专门用于数组或对象集合中的每个元素。 其语法格式为： For Each 〈成员〉[ As 〈数据类型〉] In 〈数组或对象集合〉