第8章-数组.ppt

【例8-7】编写程序输出杨辉三角. 杨辉三角的特点： 第一列元素为1 第二行元素为1 对角线的元素都为1 其他元素：a(i,j)=a(i-1,j-1)+a(i-1,j) Private Sub Form_Load() Frame1.Caption = 请输入一个整数： Label1.Caption = 输入一个整数n，并按回车键， 即可求得杨辉三角形的前n项 Text1.Text = End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer, a() As Integer If KeyAscii = 13 Then n = Val(Text1.Text) If n 16 Then MsgBox 输入的数不能超过16 Exit Sub End If ReDim a(n, n) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 Next p = Format(1, !@@@@) Chr(13) 第一行 p = p Format(1, !@@@@) Format(1, !@@@@) Chr(13) 连上第二行 多个@占位符，并与 ! 配合时，从左至右匹配，并在相应的位置上显示格式化文本，占位位置不存在时，显示空白（空字符串） Format$(CHIN,!@a@@) 返回值 CaHIN For i = 3 To n p = p Format(1, !@@@@) 连上第一列 For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) p = p Format(a(i, j), !@@@@) Next p = p Format(a(i, i), !@@@@) Chr(13) Next MsgBox p, 0, 杨辉三角形 End If End Sub 【例8-8】用“筛法”找到 1-100之间的全部素数 程序设计思路： 在文本框中输出1-n的全部整数 先将1挖掉 将2及2的所有倍数挖掉(将2挖掉，将2后面所有能被2整除的数挖掉) 将3的倍数挖掉（将3后面所有能被3整除的数挖掉） 分别用5、7……等未被挖掉得各个数作为除数去除这些数后面的各数，这个过程一直进行到除数除数为 止 经如此筛选后，剩下来的部分全部是素数 。 查找 1、顺序查找 2、二分查找 例8-9 例8-10 12 17 23 28 30 39 41 57 61 78 83 85 89 93 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 12 17 23 28 30 39 41 46 57 61 78 83 85 89 93 left right mid mid=(left+right)/2=8 46 39 39 Right=mid-1=7 right mid=(left+right)/2=4 mid 28 39 Left=mid+1=5 left mid=(left+right)/2=6 mid 39 = 39 找到了！ 二分查找必须保证数据序列是有序的 key = Val(Text1.Text) ‘待查找的数 flag = False left = 1 right = 15 Do While left = right mid = (left + right) \2 If key = a(mid) Then flag = True Exit Do ElseIf key a(mid) Then left = mid + 1 Else right = mid - 1 End If Loop 第八章 数组 8.1 数组概述 8.2 动态数组及声明 8.3 控件数组 8.4 程序示例 2014 8.1 数