《VisualBasic Net程序设计》教学课件：第5章 数组1.pptVIP

VisualBasic.Net程序设计 华中农业大学信息学院 章程 第5章 数 组 教学目的： 掌握数组的定义和使用 熟练使用一维数组进行编程 掌握二维数组的使用 掌握ListBox控件和ComboBox控件的使用 掌握一些数组方法的用法 第5章 数 组 教学重难点： 数组的定义和赋值 使用数组编程 ListBox控件和ComboBox控件 第5章 数 组 5.1.1一个引例 编写一个程序，输入50名射击运动员的一次比赛成绩（以环计），低于平均环数的人遭淘汰，统计通过比赛的人数并按环数高低显示他们的成绩 引入数组，问题解决 5.1.2一维数组的声明和初始化 1 数组声明 格式： Dim 数组名(下标上界) [As 类型] 例如： Dim a(10) As Integer Dim st$(5) 说明： 下标下界为0，上界为常数、已有值的表达式或变量。 一维数组的大小为：下标上界+1。 不要越界使用数组的元素 注意： ①下面语句因在定义数组并赋予初值时，设置了数组的大小为3，是错误的写法： Dim myArray(3) As Integer={56，45，88，32} ②当在定义一个数组未用As来指定数组的数据类型时，此数组的数据类型为对象，因此数组内的数组元素，允许夹杂不同数据类型的数据。例如:下面语句列的定义是合法的： Dim myArray（）={l， abc，0，True，-2} ③数组元素间的数据必须是相同的数据类型才允许做运算。例如：根据上面②中数组赋值，myArray(0)和myArray(1)的数据类型分别为整数和字符串，由于数组与字符串不能直接加减，会造成错误，所以下面是不合法的语句： myArray(0)+myArray(1) 二、 数组的输出 5.1.4 重定义数组大小 1、求数组最值 2、元素交换 3、数据插入 4、删除数据 应用举例 小　结 数组的定义及初始化操作 重定义数组大小 　Redim语句 数组的基本操作 数组的输入、输出 数组元素的交换 数组元素的插入、删除 *华中农业大学信息学院 * 5.1一维数组的定义和引用 5.1.1一个引例 5.1.2一维数组的声明和初始化 5.1.3一维数组的引用 Dim i%, aver!, score! aver = 0 For i = 1 To 50 score = Val(InputBox(第 i 名运动员的环数)) aver = aver + score Next aver = aver / 50 如何统计高于平均环数的人数以及显示他们的成绩? Dim i%, aver!, score!(49), count% aver = 0 For i = 0 To 49 score(i) = Val(InputBox(第 i+1 名运动员的环数)) aver = aver + score(i) Next aver = aver / 50 For i = 0 To 49 If score(i) = aver Then count = count + 1 Next TextBox1.Text = aver TextBox2.Text = count 数组一组相同类型的变量的集合。 数组名代表逻辑上相关的一批数据，用下标区分该数组中的各个元素 数组必须先声明后使用，数组声明后在内存可分配一块连续的区域。 一维数组 Dim 数组名(下标上界) [As 类型] Dim mark(99) As Integer mark(99) mark(98) … mark(2) mark(1) mark(0) 2 数组的初始化 定义数组的同时，为数组元素赋初值，数组的初值是以左右大括号括住的，数据间彼此以逗号隔开。此种方式定义数组时，不可以在数组名后面的小括号内设置数组的大小。 格式：Dim 数组名() As 类型={常数1，……，常数n} 例如：Dim myArray() As Integer={56,45,68，32} 定义一个数组名为myArray的整数数组，并将初始值设置如下： myArray(0)=56， myArray(l)=45， myArray(2)=68， myArray(3)=32。 一、数组的输入