Vb程序设计教程 第五章 数组与自定义类型.ppt

1、第五章 数组与自定义类型,一、数组,引例一：输入一个班100个学生的某门考试成绩，然后计算平均成绩，并统计高于平均成绩的人数。 引例二：输入一个班组100个学生的某门考试成绩，按照成绩由高到低的顺序显示。 引例三：一个班级有学生100人，某一学期有六门课程，要求按照总成绩由高到低排列每个学生的成绩信息及总成绩。,引例四：将一个班级所有学生的某一学期的考试信息存储到计算机中，首先按照总分由高到低的顺序排列每个学生及考试成绩、总成绩信息，并能够根据学生的姓名或学号查找该生的所有课程的考试成绩。 注：假设该学期开设的课程如下： 高等数学、英语、程序设计语言、大学物理。,分析数据的输入,1、利用文本框

2、（Text）输入：首先由用户将欲输入的信息写入某个文本框，然后点击一个命令按扭（Button）接收用户输入的信息。 2、利用输入对话框（InputBox）输入信息，输入对话框用法如下： x=InputBox(提示，标题，初值，位置） 提示：用以说明要求输入内容的提示说明 标题：弹出窗体的标题栏中显示的信息 初值：于输入框中设置的初始值 位置：距屏幕左边界的距离,分析数据的存储,一个数据的存储：使用“变量”暂时存储数据，通过“变量”名可以取出数据的值，或将一个值存入“变量”中。,使用100个变量存储数据？如何命名？,100个成绩的数学表示法：ai,i=1,100 注：ai由两个部分组成，变量名a

3、及下标i。,问题：如何使用“数学”上的下标法表示变量？即：如何在计算机中使用带下标的变量？,下标变量数组,一维数组定义： (1)Dim 标识符(n) as 类型 (2)*Dim 标识符(l to u) as 类型 Dim 标识符() as 类型 注：n为一个无符号整型常数，l、u是整型常数且lu，称l为数组的下界，u为数组的上界。,数组定义(1)的含义,设有数组定义如下： dim a(10) as integer 其含义如下： a是一个数组名，即a由11个integer组成的集合； 10是数组的上界，其下界为0，即a(i)是集合a中的第i个元素（0=i=10) ，其类型是integer。,引例

4、一的实现,定义一个数组变量a用于存储100个成绩，数组的上界为100，类型为integer。,使用InputBox（输入对话框）输入每个成绩，使用循环语句实现连续输入成绩。,计算100个成绩的总成绩（将所有成绩累加）然后计算平均值aver。,最后统计大于平均成绩的学生数count。,利用消息框显示结果。,输入100个成绩的实现： hHead=“输入第” hTail=“个成绩” Title=“输入学生成绩” for i=1 to 100 sh=hHead & I & hTail a(i)=InputBox(h,title) next,计算平均成绩 Aver=0 For i=1 to 100 Av

5、er=Aver + a(i) Next Aver=Aver / 100,统计大于平均成绩的学生个数 Count=0 For i=1 to 100 if a(i) aver then count =count+1 next,数组定义(2)的含义,设有如下数组定义： Dim a( -4 to 10) as single 其含义如下： a是一个数组名，即a是一个由15个single类型数据组成的一个集合； -4是数组的下界，10是数组的上界，即a(i)是集合a中的第i个元素(-4=i=10)，是一个single类型数据。,数组定义(3)的含义,如此定义的数组称为“动态数组”，其特点是没有定义数组表示

6、的集合中有多少个元素组成，即没有指定数组的下界及上界。在程序执行过程中确定其下界、上界。 注：1）只有确定下界及上界后才可使用数组，否则产生执行错误；2）可以多个确定数组的下界与上界，确定下上界后按照新的下上界使用数组。 确定数组下上界的语句如下： redim 动态数组名（新的下上界),引例三的讨论,每个学生六门课程，如何表示？使用六个数组？如果更多门课程如何处理？,数学处理方案对于成绩，使用两个下标，一个表示学生的顺序号，另一个表示课程的顺序号，即ai,j，i=1,2,100，j=1,6,二维数组：一个数组可以使用两个下标确定其元素，称之为二维数组。 多维数组：一个数组可以使用多个下标确定其

7、元素，称之为多维数组，下标的个数称为维数。,二维数组的定义,Dim 数组名(n,m) as 类型 (2)Dim 数组名(l1 to u1,l2 to u2) as 类型 (3)Dim 数组名(l1 to u1,m) as 类型 (4)Dim 数组名(n,l2 to u2) as 类型 注：1）n,m,l1,l2,u1,u2为整党数，其中l1=u1，l2=u2，n,m为正的整数；2）l1，l2称为数组下标的下界，u1,u2,n,m为下标的上界，l1 to u1为数组的第一维下标。,引例三的实现,数据的定义： Dim a(100,6) as integer,说明： 1）定义一个二维数组，每一个下标

8、表示学生的序号，第二个下标为课程的序号； 2）习惯上，下标由1开始，故第一维的上界为100，第二维的上界为6，事实上，第一维的上界可以是99，第二维的上界可以是5。 3）定义的数组共有101*7个元素。,数据的输入：使用输入对话框(InputBox） s1=“输入第” s2=“个学生的第” s3=“门课程的成绩” for i=1 to 100对每一位学生 for j=1 to 6对每门课程 s=s1 & I & s2 & j & s3 a(I,j)=InputBox(s) next next,引例四讨论,要求存储姓名（字符串）、学号（字符串）及四门特定课程的成绩（整数）。如此数据如何保存？,二

9、维数组：一般而言要求数组中的每一个元素的数据类型相同。对每门课程的成绩而言，只使用了课程顺序号，而无课程信息，容易出现错误。,为了管理上的方便，希望将不同类型的数据组成一个整体，且根据数据的逻辑信息访问数据，如何处理？,自定义类型,Type 自定义类型名 变量定义表 End type 说明：“变量定义表”就是有关变量的定义列表。 功能：将多个不同类型的变量组成一个集合，通过变量的名称访问每个具体元素。,引例四的数据定义,Type studentInfo name as string no as string math as integer english as integer physics

10、as integer computLanguage as integer End type Dim a(100) as studentInfo,数组程序设计举例,例一：数组排序。设A是一个上界为n，下界为0的整数数组，将A中元素按照值的大小由小到大顺序存放。,算法分析： （一）比较任意相邻的两个，如果前面的数小，则调换这两个数据。如果没有调换，则说明已按照由小到大排列。,问：如何实现比较任意两个相邻数？,相邻数的表示： a(i)、a(i+1)其中i=0,1,2,n-1,比较所有相邻数及相应操作： 如果a(i)a(i+1)则交换a(i)与a(i+1)中的值,对所有相邻数进行比较 for i=0 to n-1 比较相邻数a(i)与a(i+1) next,问题：如何知道比较所有相邻数后没有发生数据交换？,使用一个状态标记变量，测试前使之为false，如果发生数据交换，将true赋值给该变量，具体操作如下： b=false for