高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 作者 张露2 第8章.pptVIP

第8章　数组的使用;数组的使用;数组的概念 数组与数组元素 数组是用一个统一的名称表示的、顺序排列的一组变量。数组中的变量称为数组元素，用数字（下标）来标识它们，因此数组元素又称为下标变量。 数组的类型 数组的维数 固定大小的数组 数组的声明 有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 ;交换数组中各元素 交换的要求就是将数组的第一个元素和最后一个元素交换，第二个元素和倒数第二个元素交换，依此类推。结果见图： ‘交换按钮的代码： 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 ‘退出按钮的代码：;;数组排序 排序就是将一组数据按照递增或者递减的次序排列。排序的方法有很多种，常用的有选择法，冒泡法，插入法以及合并排序???等，其中最简单的是选择法。在这里主要介绍选择法和冒泡法。 选择法排序：对一组数组中的n个数，用选择法按照递减的顺序排列。选择法排序的思想是： （1）对于有n个数的序列，从中选出最大的一个数与第一个数交换； （2）从除去第一个数的n-1个数中在按照步骤（1）选出最大的数和数组序列的第二个数交换；一直重复第（1）步n-1次，最后构成递减数列。;选择法的算法程序通用代码 for I=1 to n-1 imin = I for j=I+1 to n if s(j) s(imin) then imin=j next j temp = s(imin) s(imin) = s(I) s(I) = temp next I;冒泡排序的思想是： 1．将第一个元素和第二个元素比较，如果第一个元素大于第二个元素，则将第一个元素和第二个元素交换；2．比较第二个元素和第三个元素，以此类推，直到第n-1个元素和第n个元素；3．对前n-1个元素重复进行第1步和第2步；4．重复第3步直到形成一个递增的数组。 下面是实现冒泡排序的通用程序段：为了通用性更强，这里给出含有n个元素的数组的排序程序代码： For I = n-1 to 1 step –1 For j=1 to I If S（j）S(j+1) then Temp =S(j) S(j)=