新Visual Basic 6.0程序设计 工业和信息化普通高等教育“十二五”规划教材立项项目 教学课件 乔平安 VB05章.pptVIP

Dim a(), i%, k%, x%, n% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a) 获得数组的上界 x = InputBox(输入要删除的数) For k = 0 To n 查找欲删除的数组元素位置 If x = a(k) Then Exit For Next k If k n Then MsgBox (找不到此数据): Exit Sub For i = k + 1 To n 将x后的元素左移 a(i - 1) = a(i) Next i n = n - 1 ReDim Preserve a(n) 数组元素减少一个 For i = 0 To n 显示删除后的各数组元素 Print a(i); Next i 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 第5章 数组与自定义类型 5.1数组的概念 5.2静态数组 5.3动态数组 前面所介绍的变量只能存取一个数据，而在实际应用中经常需要处理相同性质的成批数据，这种情况下，变量就不适用了。本章将介绍数组的概念、定义声明和基本操作。 学习内容 学习重点 5.4数组的基本操作 5.5自定义数据类 5.6数组应用举例 5.7 引申内容 5.1 数组的概念 数组的概念 求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(输入学生成绩) aver = aver + mark Next i aver = aver / 100 由于循环体内变量mark只能放一个学生的成绩，无法统计高于平均分的人数。若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。 引例 用数组解决问题的程序如下： Dim mark(99) As Integer 声明数组mark Dim ave!, n%, i% ave = 0 For i = 0 To 99 输入成绩，求分数和 mark(i) = InputBox(输入学生的成绩) ave = ave + mark(i) Next i ave = ave / 100 求100人的平均分 n = 0 For i = 0 To 99 统计高于平均分的人数 If mark(i) ave Then n = n + 1 Next i MsgBox (平均分: ave 高于平均分人数: n) 5.1 数组的概念 数组的概念 数组的概念 数组是一组具有相同类型和名称的变量的集合。 变量的名称为数组名，变量称为数组元素，用数字（下标）来标识，因此数组元素又称为下标变量。数组名及下标可以唯一的标识数组中的一个元素。 比如要存放整数1到10，可以声明10个整形变量存放，也可以用一个数组inum存放，整数1到10分别存放在inum（1）、inum（2）、inum（3） …、inum（10）中，其中数组名称为inum，括号中的数字为下标，inum（3）表示该数组中下标为3的那个数组元素。 5.1 数组的概念 数组的概念 数组的命名与简单变量的命名规则相同。 下标必须用小括号括起来，不能把数组元素inum （3）写成inum3，后者是简单变量。 下标必须是整数，否则将被自动取整（合去小数部分），如s（3．8）将被视为s（3）。 下标的最大和最小值分别称为数组的上界和下界，默认情况下，数组的下标为0。数组的元素在上下界内是连续的。 数组并不是一种数据类型，而是一组相同类型数据的集合。 数组在使用之前必须先声明，声明数组的目的是为数组分配存储空间，数组名即为这个存储空间的名称，而数组元素即为存储空间的每一个单元。每个单元的大小与数组的类型有关。 说明 5.1 数组的概念 数组的概念 5.1 数组的概念 数组的分类 按数组的大小分为定