VB--第七讲.pptVIP

Chen Ying Visual Basic 程序设计 第九讲 第五章 数组 5.1 数组的概念 5.2 静态数组及声明 5.3 动态数组及声明 5.4 数组的基本操作 5.5 控件数组 5.6 自定义数据类型 5.7 常用算法（二） 5.8 常见错误 5.7 常用算法（二） 1. 统计 例5.6 输入一字符串，统计各字母出现次数(大小写字母不区分)。 分析：1. 统计26个字母出现的个数，先声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 2. 从输入的字符串中逐一取出字符，转换成大写字符（使得大小写不区分），进行判断。 3. 运行界面： For I = 1 To le c = UCase(Mid(Text1, I, 1)) If c = A And c = Z Then j = Asc(c) - 65 + 1 a(j) = a(j) + 1 End If Next I 2.数组排序 – 选择法 例5.8 对已知存放在数组中的n个数，用选择法按递增顺序排序。 (1) 从n个数的序列中选出最小的数(递增), 与第1个数交换位置; (2) 除第1个数外，其余n-1个数再按(1)的方法选出次小的数，与第2个数交换位置; (3) 重复(1)n-1遍，最后构成递增序列。 For i = 1 To n - 1 iMin= i For j = i+1 To n If iA(j) iA(iMin) Then iMin = j Next j t= iA(i): iA(i) = iA(iMin) : iA(iMin) = t Next i 2. 数组排序 – 冒泡法 例5.9 在数组中输入n个数（直到输入0为结束），用冒泡法按递增顺序排序。 3.数组元素的插入 例5.10 在有序数组a(1 to n)(原有n-1个元素)中插入一个值Key元素。 算法: 查找要插入的位置k（1=k=n-1） 腾出位置, 把最后一个元素开始到第K个元素往后移动一个位置 第k个元素的位置腾出，就可将数据Key插入 4. 数组元素的删除 首先也是要找到欲删除的元素的位置k； 从k+1到n个位置开始向前移动； 最后将数组元素总数减1。 例 5.11 5.8 数组中常见错误和注意事项 1. 静态数组声明下标出现变量 n = InputBox(输入数组的上界) Dim a(1 To n) As Integer 2．数组下标越界 引用的下标比数组声明时的下标范围大或小。 Dim a(1 To 30) As Long, i% a(1) = 1: a(2) = 1 For i = 3 To 30 a(i) = a(i - 2) + a(i - 1) Next i 3．数组维数错 数组声明时的维数与引用数组元素时的维数不一致。 Dim a(3, 5) As Long a(i)=10 4．Aarry函数使用问题 只能对Variant 的变量或动态数组赋值。 5．获得数组的上界、下界 UBound 、Lbound函数 第六章 过程 6.1 函数过程的定义与调用 6.2 子过程的定义与调用 6.3 参数传递 6.4 变量、过程的作用域 6.5 递归 6.6 常用算法（三） 6.7 重点和难点 过程 按照结构化程序设计原则，将复杂问题分解成若干功能模块，即过程，供事件多次调用。 使得程序简练，便于调试和维护。 除了系统提供的内部函数过程和事件过程外，用户可自定义过程： “Function”保留字开始的为函数过程 “Sub”保留字开始的为子过程 6.1 函数过程的定义和调用 1. 引例6.1 已知多边形的各条边的长度，要计算多边形的面积。 分析： 计算多边形面积，可将多边形分解成若干个三角形。 计算三角形面积的公式如下： 例 6.1 定义函数过程 Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z)) End