第4章 数组学习 文档 参考.pptx

Visual Basic 程序设计;第三章控制结构;第四章 数组;;;;第四章 数组;引例1;引例1;数组是一组相同类型的变量的集合 数组名代表一批数据，用下标表示该数组中的各个元素 ;4.2 数组的分类和操作;4.2.1 静态数组;4.2.1 静态数组;静态数组举例;4.2.2 动态数组;动态数组举例;1. n=12 Dim a(1 To n) As Integer 2. Dim a%[3,3] 3. Dim a(1,1,2) As Integer 4. Dim a%(10) ReDim a(1 To 12) 5. Dim a!() ReDim a(3,2) As Integer ;4.2.3二维数组的操作;4.2.4 数组其它相关操作; Option Base n; Lbound，Ubound;Array函数初始化数组条件： 一维数组 Variant(变体类型) 非静态数组（动态数组或数组变量）;Array函数;4.3 数组算法; 0.5;Dim a As Variant a = Array(2.0, -1.5, 0.7, 1.3,3.6，0.5) max=a(0) : min = a(0) For i = 0 To 5 If a(i) > max Then max = a(i) If a(i) < min Then min =a(i) Next i Print "最大值为:"; max Print "最小值为:"; min;???序算法;75 87 52 94 60;第 二 轮 比 较 ：;' n个数据需进行n-1趟排序 For i = LBound(a) To UBound(a) - 1 For j = i + 1 To UBound(a) If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i ;数组排序--选择法;For i = LBound(a) To UBound(a) - 1 ' n个数据需进行n-1趟排序;75;For i = LBound(a) To UBound(a) - 1 ' n个数据需进行n-1趟排序;适用于有序或无序数组 ;Dim a As Variant a = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518) n = UBound(a) k = Val(InputBox("输入要查询的关键值")) Print "要查询的数是："; k For i = 1 To n If k = a(i) Then Exit For Next i If i <= n Then Print k; "has be found,on"; i; "th position" Else Print k; "has not be found,on a" End If;-123;Dim a As Variant a = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518) n = UBound(a) k = Val(InputBox("输入要查询的关键值")) low = 1: high = n find = -1 'find=-1表示没有找到 While low <= high And find = -1 m = (low + high) \ 2 If k = a(m) Then find = 1 'find=1表示已经找到 Print k; "has be found,on"; m; "the position." Else If k < a(m) Then high = m - 1 Else low = m + 1 End If End If Wend If find = -1 Then