《vb编程技术》数组

《《vb编程技术》数组》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章数组7.1数组的概念7.2静态数组7.3动态数组7.4控件数组7.5ForEach...Next语句习题七7.1数组的概念7.1.1数组与数组元素数组是一组用一个统一的名称表示的、顺序排列的变量。数组中的变量称为数组元素，用数字(下标)来标识它们，因此数组元素又称为下标变量。可以用数组名及下标惟一地识别一个数组的元素，比如x(2)表示名称为x的数组中顺序号(下标)为2的那个数组元素(变量)。7.1.2数组的类型VB中的数据有多种类型，相应的数组也有多种类型。可以声明任何基本数据类型的数组，包括用户自定义类型和对象变量，但是一个数组中的所有元素应该具有相同的数据类型。7.1.3数组的

2、维数如果一个数组的元素只有一个下标，则称这个数组为一维数组。例如，数组a有10个元素：a(1)、a(2)、a(3)……a(10)，依次保存10个学生的一门功课的成绩，则a为一维数组。一维数组中的各个元素又称为单下标变量。一维数组中的下标又称为索引(Index)。如果有10个学生，每个学生有5门功课的成绩，如表7-1所示。表7-1学生成绩表7.1.4数组的形式在VB中有两种形式的数组：静态数组和动态数组。静态数组是指数组元素的个数固定不变，而动态数组的大小(其元素的个数)在运行时可以改变。7.2静态数组7.2.1数组的声明声明数组的格式为Dim数组名(〈维数定义〉)[As〈类型〉]7.2.

3、2数组的使用在建立(声明)一个数组之后，就可以使用数组。使用数组就是对数组元素进行各种操作，如赋值、表达式运算、输入或输出等。对数组元素的操作与对简单变量的操作基本一样，但在引用数组元素的时候要注意以下几点：①数组声明语句不仅定义数组、为数组分配存储控件，而且还能对数组进行初始化，使得数值型数组的元素值初始化为0，字符型数组的元素值初始化为空等等。②引用数组元素的方法是在数组名后的括号中指定下标t=a(2):s=b(3,4)其中，a(2)表示数组a中索引值为2的元素，b(3,4)表示二维数组b中行下标为3，列下标为4的元素。③数组名、数组类型和维数必须与数组声明时一致。④下标值应在数组声

4、明时所指定的范围之内。⑤在同一过程中，数组与简单变量不能同名。7.2.3静态数组的应用【例7-1】计算某组10个同学的总分、平均分。设计步骤如下：(1)从“文件”菜单中选择“新建工程”，在打开的“新建工程”对话框中双击“标准EXE”，新建一个标准工程。(2)建立应用程序用户界面。在窗体设计器中加入两个标签Label1、Label2和一个命令按钮Command1，调整它们的位置及大小，如图7.1所示。(3)设置对象属性，参见图7.3所示。图7.1建立用户界面图7.2在“代码窗口”中输入(4)编写事件过程代码。考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组。从“视图”菜单中选

5、择“代码窗口”，在“代码窗口”中的对象下拉列表框中选“(通用)”，在事件程序下拉列表框中选“(声明)”，输入下列代码，如图7.2所示。OptionBase1Dima(1To10)AsSingle“统计”按钮Command1的Click事件代码为PrivateSubCommand1_Click()DimiAsInteger,totalAsSingle,averageAsSingleFori=1To10a(i)=Val(InputBox("请输入第"&Str(i)&"个学生的成绩","输入成绩"))total=total+a(i)Nextiaverage=total/10Label1.Cap

6、tion=Label1.Caption+Format(total)Label2.Caption=Label2.Caption+Format(average)EndSub运行程序，单击“统计”按钮，依次输入10个学生的成绩，如图7.3左所示，计算结果如图7.3右所示。图7.3依次输入学生成绩和统计结果【例7-2】输入一串字符，统计各字母出现的次数，不区分大小写。设计步骤如下：(1)建立用户界面并设置对象属性，如图7.4左所示。图7.4建立用户界面和程序运行结果(2)编写事件代码。“统计字母”命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()D

7、ima(1To26)AsIntegerDimiAsInteger,jAsInteger,cAsString*1tot=Len(Text1)'求字符串的长度Fori=1Tototc=UCase(Mid(Text1,i,1))'取一个字符，将其转换成相应的大写字母Ifc>="A"Andc<="Z"Thenj=Asc(c)-65+1'将A～Z大写字母转换成1～26的下标a(j)=a(j)+1'对应数组元素加1EndIfNextiForj=