第5章数组和自定义类型(4学时理论+4学时上机)研讨.pptVIP

课后习题讲解 输入一个字符串，反序输出。 Private Sub Command1_Click() s = Text1 For i = Len(s) To 1 Step -1 y = y + Mid(s, i, 1) Next i Print y End Sub Private Sub Command2_Click() s = InputBox(输入一个字符串) For i = Len(s) To 1 Step -1 Print Mid(s, i, 1); Next i End Sub 第5章 数组和自定义类型 5.1 数组 5.2 数组的基本操作 5.3 列表框和组合框控件 5.4 自定义类型及其数组(不要求) 5.5 综合应用 5.1 数组5.1.1 数组的概念 5.1.2 定长数组及声明 2.多维数组声明 5.1.3 动态数组及声明 Dim mark() As Integer , n%, i% 动态数组声明 aver = 0 [例5.2] n = Val(InputBox(请输入学生人数)) ReDim mark(1 To n) For i = 1 To n 本循环结构输入成绩 mark(i) = Val(InputBox(输入第 i 位学生的成绩)) Print mark(i) Next i ReDim Preserve mark(1 To n + 2) For i = 1 To n 本循环结构求分数和 mark(n + 1) = mark(n + 1) + mark(i) Next i mark(n + 1) = mark(n + 1) / n 求平均分 For i = 1 To n 本循环结构统计高于平均分的人数 If mark(i)mark(n + 1) Then mark(n + 2)=mark(n + 2)+1 Next i Print 平均分：, mark(n + 1) Print 高于平均分的人数：; mark(n + 2) 5.2 数组的基本操作 4、数组的输出 5、求数组和、最值、位置 复习：编写一个程序，按每行5个数显示有n个斐波那契数序列。如: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55….. Dim x() As Long Dim n%, i% n = Val(InputBox(输入序列数)) ReDim x (n - 1) x(0) = 1 x(1) = 1 For i = 2 To n - 1 x(i) = x(i - 1) + x(i - 2) Next i For i = 0 To n - 1 Print x(i), If (i + 1) Mod 5 = 0 Then Print Next i 6、数组排序 7.插入数据 Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) 获得数组的上界 x = 14 For k = 0 To n 查找欲插入数x在数组中的位置 If x a(k) Then Exit For Next k ReDim Preserve a(n + 1) 数组增加一个元素 For i = n To k Step -1 数组元素后移一位，腾出位置 a(i + 1) = a(i) Next i a(k) = x 数x插入在对应的位置，使数组保持有序 For i = 0 To n + 1 显示插入后的各数组元素 Print a(i); Next i (4)删除数据 Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 10, 13, 14, 16, 19, 22, 25) n = UBound(a) 获得数组的上界 x = 13 For k = 0 To n 查找欲删除的数组元素位置 If x = a(k) Then Exit For Next k If