第8章 数组的使用.ppt

* 第8章　数组的使用 人民邮电出版社 21世纪高等学校计算机基础教育系列教材 数组的使用 数组的概念 数组与数组元素 数组是用一个统一的名称表示的、顺序排列的一组变量。数组中的变量称为数组元素，用数字（下标）来标识它们，因此数组元素又称为下标变量。 数组的类型 数组的维数 固定大小的数组 数组的声明 有3种方法声明固定大小的数组，用哪一种方法取决于数组应用的有效范围： l???????? 建立公用数组，在模块的通用段用Public语句声明数组。格式为 Public 数组名(〈维数定义〉) [ As 〈类型〉] l???????? 建立模块级数组，在模块的通用段用Private或Dim语句声明数组。格式为 Private | Dim 数组名(〈维数定义〉) [ As 〈类型〉] l???????? 建立局部数组，在过程中用Dim或Private语句声明数组。格式为 Dim | Private 数组名(〈维数定义〉) [ As 〈类型〉] 数组的使用 随机产生10个两位整数，找出其最大值、最小值和平均值，如图所示。 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写代码。 随机整数的生成由窗体的Load事件代码完成： Private Sub Form_Load() Dim p As String Randomize p = For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 p = p Str(a(i)) , Next Label1.Caption = LTrim(Left(p, Len(p) – 1)) End Sub 求最大值、最小值和平均值 求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成： Private Sub Command2_Click() Dim n As Integer, m As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) n Then max = a(i) If a(i) m Then min = a(i) s = s + a(i) Next Text1.Text = max Text2.Text = min Text3.Text = s / 10 End Sub “重置”按钮Command1的Click事件代码： Private Sub Command1_Click() Form_Load Text1.Text = Text2.Text = Text3.Text = End Sub 最后是“关闭”按钮Command3的Click事件代码： Private Sub Command3_Click() Unload Me End Sub 交换数组中各元素 交换的要求就是将数组的第一个元素和最后一个元素交换，第二个元素和倒数第二个元素交换，依此类推。结果见图： ‘交换按钮的代码： Private Sub Command1_Click() For i = 1 To 10 \ 2 temp = s(i) s(i) = s(10 - i + 1) s(10 - i + 1) = temp Next i For i = 1 To 10 Text2.Text = Text2.Text s(i) Next i End Sub ‘退出按钮的代码： Private Sub Command2_Click() End End Sub ‘初始化按钮的代码： Private Sub Command3_Click() For i = 1 To 10 Text1.Text = Text1.Text s(i) Next i End Sub ‘初始化数组元素，可以使用InputBox（）函数来输入数组元素 Private Sub Form_Load() For i = 1 To 10 s(i) = 2 * i - 1 Next i End Sub 数组排序 排序就是将一组数据按照递增或者递减的次序排列。排序的方法有很多种，常用的有选择法，冒泡法，插入法以及合并排序等等，其中最简单的是选择法。在这里主要介绍选择法和冒泡法。 选择法排序：对一组数组中的n个数，用选择法按照递减的顺序排列。选择法排序的思想是： （1）对于有n个数的序列，从中选出最大的一个数与第一个数交换； （2）从除去第一个