05-数组.ppt

数组与数组元素 数组声明语句 数组与数组元素的说明 题6.1 建立单位矩阵 Array函数 求最高、最低分 动态数组 建立动态数组 ReDim语句应用举例 数组刷新语句 题6.3 矩阵转置 编程及上机调试6.5 For Each…Next循环语句 例5-7 选择排序法 例5-8 冒泡排序法 固定大小的数组 设计步骤如下： ◇ 建立应用程序用户界面并设置对象属性，如下图： ◇ 编写事件代码 ? 在模块的通用段声明数组 Dim a(1 To 10) As String, b(1 To 10, 1 To 4) As Integer ? 查阅学生各科成绩的事件代码 Private Sub List1_Click() n = List1.ListIndex + 1:Text1.Text = b(n, 1):Text2.Text = b(n, 2) Text3.Text = b(n, 3):Text4.Text = b(n, 4) End Sub 固定大小的数组 ? 数组赋值事件代码 Private Sub Form_Load() a(1) = 赵高阳: b(1, 1) = 89: b(1, 2) = 85: b(1, 3) = 91 a(2) = 赵世杰: b(2, 1) = 75: b(2, 2) = 78: b(2, 3) = 84 a(3) = 李民维: b(3, 1) = 64: b(3, 2) = 82: b(3, 3) = 72 a(4) = 马丽英: b(4, 1) = 88: b(4, 2) = 68: b(4, 3) = 64 a(5) = 杨广民: b(5, 1) = 79: b(5, 2) = 79: b(5, 3) = 87 a(6) = 李灵君: b(6, 1) = 91: b(6, 2) = 88: b(6, 3) = 87 a(7) = 陈吉至: b(7, 1) = 68: b(7, 2) = 73: b(7, 3) = 64 a(8) = 王东明: b(8, 1) = 58: b(8, 2) = 68: b(8, 3) = 65 a(9) = “姜大伟: b(9, 1) = 76: b(9, 2) = 81: b(9, 3) = 88 a(10) = 吴晓林: b(10, 1) = 78: b(10, 2) = 89: b(10, 3) = 82 End Sub ? 在列表框中显示姓名的事件代码 Private Sub Form_Activate() For n = 1 To 10 List1.AddItem a(n), n – 1: b(n, 4) = b(n, 1) + b(n, 2) + b(n, 3) Next Text1.Text = : Text2.Text = : Text3.Text = : Text4.Text = End Sub 固定大小的数组 ? 数学平均分及平均分以下学生名单事件代码 Private Sub Command1_Click() s = 0 For n = 1 To 10 s = s + b(n, 1) Next s = s / 10:p = For n = 1 To 10 If b(n, 1) s Then p = p a(n) Next MsgBox “低于平均分数的同学有:” Chr(13) _ Chr(13) p, 0, 数学的平均分为: s End Sub ? 语文平均分及平均分以下学生名单事件代码为Command2_Click() ? 外语平均分及平均分以下学生名单事件代码为Command3_Click() 以上两个事件代码类同?，所以略 动态数组 示例6：输出斐波那契(Fibonacci)数列的前n项。 设计步骤如下： ◇ 建立应用程序用户界面并设置对象属性，如下图： ◇ 编写事件代码 ? 在模块的通用段声明数组 Dim f() 示例6 动态数组 ? 编写文本框Text1的按键 （ KeyPress ）事件代码 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer : List1.Clear Const s1 = !@@@@@@@@@@@@@, s2 = ######### If KeyAscii = 13 Then n = Val(Text1.Text) ReDim f(n) f(0) = 0: f(1) = 1 p = Fo