第11讲 一维数组.pptVIP

数组：一组相同数组名和类型数据的连续存储单元 数组包含一个或多个元素 数组在使用前必须先声明 格式: Dim 数组名(下标上界) [As 类型] 数组名: 命名规则与变量相同 下标上界: 必须有确定值 数组大小: 数组元素个数，对于一维数组：上界+1 数组元素的类型：省略类型，则为Object型 1. 下标下界为0 Dim A(50)，表示A(0)、A(1)、…、A(50) 2.下标值应在下界和上界之间，否则出错。 Dim A(10) As Integer (1) 单个赋值 A(1)=1 : A(2)=3 (2) 用循环 For i = 1 To 10 A(i) = 2 * i Next i 获得数组上、下界 对于一维数组，基本格式： UBound(数组名) 和 LBound(数组名) For i = LBound(A) To UBound(A) Label1.Text = A(i) “ “ Next i 选择法排序（递增） 例 数组中n个数，递增排序。算法描述： 第1趟，从A(1)至A(n)找最小元素，与A(1)交换 第2趟，从A(2)至A(n)找最小元素，与A(2)交换 …… 第n-1趟，从A(n-1)至A(n)找最小元素，与A(n-1)交换 规律：对第i趟比较时，假定第i个元素最小 第i趟：从第i至第n个元素找最小元素，与A(i)交换。 选择法排序（递增） Dim i%, j%, t%, iMin%, A(10) As Integer For i = 1 To n - 1 iMin = i For j = i+1 To n If A(j) A(iMin) Then iMin = j Next j If iiMin then 两个数交换 t= A(i): A(i) = A(iMin) : A(iMin) = t End If Next i 冒泡法排序（递增） 例 有n个数（存放在数组a(n)中），算法思想 小数上升“浮起”，最大数沉底 1）第一趟，将每相邻两数比较，小的调到前头； 2）第二趟，对余下n-1个数（最大的数已到位）按上法比较，经n-2次两两相邻比较后得次大数； 3）依次类推，n个数共进行n-1趟比较，在第i趟中要进行n-i次两两比较。 冒泡法排序（递增） For i = 1 To n-1 进行n-1趟比较 For j = 1 To n- i 对n-i个元素进行两两比较 If A(j) A(j+1) Then 若次序不对则交换位置 t = A(j) : A(j) = A(j+1) : A(j+1) = t End If Next j 出内循环，一轮排序结束，最大数已到最后 Next i * * 编程小贴士 设置属性确定事件； 构思算法草拟代码； 多写注释调整思路； 全面检查就这一招！ 编程思路：“初始化－输入－处理－输出” 本讲内容： 一维数组 如何将多个数据保存下来 一维数组的声明 Dim a(50) As String 下标问题 初始化：Dim 数组名() [As 类型] = {……} 例：Dim a() = {1,2,3,4,5,6} 1、数组元素的赋值 一维数组的操作 初值问题 例：结合实际经验，构造验证码，输出5个大写随机 字母，每行2个 往往使用循环：For i = 1 To 50 Label1.Text = A(i) “ “ If i Mod 5 = 0 Then Label1.Text =vbCrLf Next i 2．输出一维数组 3．UBound和LBound函数 输出前三个 输出后四个 4、求数组各元素和及平均数 Dim A(10) as Integer Dim Sum%, Avg%, i% For i = 0 To 10 Sum = Sum + A(i) Next i Sum = 0 Avg = Sum / 11 5. 求数组最大(小)元素及其下标 Dim Max%, iMax%, i%, A%(10) Max = A(0): iMax = 0 For i = 1 To 10 If A(i)Max Then Max = A(i) : iMax = i Next i Label1.Text =第 iMax 个数最大，值为 Max