VisualBasic.Net程序设计教材第10讲 一维数组.ppt

华中农业大学理学院计算机系 吴鹏飞 */15 华中农业大学理学院计算机科学系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 */36 华中农业大学理学院计算机系 吴鹏飞 华中农业大学理学院计算机科学系 吴鹏飞 VisualBasic.Net程序设计 第10讲 一维数组 1 一维数组引入 2 一维数组定义 3 一维数组应用 4 一维数组小结 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 10 月 1 一维数组引入 1.1 数组引例【例10.1】：射击比赛成绩统计。 编写一个程序，输入10名射击运动员的一次比赛成绩 （以环数计算），低于平均环数的人遭淘汰，统计通过 比赛的人数并按环数高低显示他们的成绩。 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 10 月 2 一维数组定义 数组：一组相同类型的变量的集合。 2.1 一维数组声明 数组必须先声明后使用，声明数组需要明确数组名、数组元素的类型、维数、数组大小（即数组元素的个数）。 一维数组声明形式： Dim 数组名（下标上界）[As 类型名] 说明： （1）下标上界：常数或已有值的变量。下标下界为0。 （2）一维数组大小：下标上界+1 （3）As类型：如果缺省，默认为Object类型。 例如：Dim a(10) As Integer 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 10 月 2 一维数组定义 2.2 数组元素 使用说明： （1）下标用圆括号 （2）下标是常量、变量或者表达式，值是整数。 （3）下标从0开始。 2.3 数组初始化 数组的初值是以左右大括号括住，数据间以逗号隔开。 格式： Dim 数组名（）As 类型=｛常数1，…常数n｝ 例如：Dim myArray（）As Integer={56,45,68,32} 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 10 月 2 一维数组定义 2.6 数组的重定义 在程序中重新定义数组大小的语句是ReDim。 说明： （1）Dim语句是说明性语句，可出现在程序中任何地方，而ReDim语句是可执行语句，只能出现在过程中。 （2）在过程中可多次使用ReDim语句来改变数组的大小，但不能改变数组的维数和类型。 （3）在ReDim后加Preserve参数可保留数组中的数据。 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 10 月 3 一维数组应用 3.1 数组元素最大值和最小值 【例10.3】随机产生20个100以内的整数，显示在文本框中，并求其最大值和最小值，显示在随机元素的下一行。 华中农业大学理学院计算机科学系 吴鹏飞 2012 年 10 月 3 一维数组应用 3.2 数组元素反序 【例10.4】利用数组自身将数组中的元素反序存放。 华中农业大学理学院计算机科学系 吴鹏飞 分析： （1）Dim a%（）={12,54,6,67,38,17,81,23} （2）n=UBound（a） For i=0 To n\2 t=a(i):a(i)=a(n-i):a(n-i)=t Next 2012 年 10 月 3 一维数组应用 3.3 数组元素插入 【例10.5】在一组有序数据中，插入一个数，使这组数据仍旧有序。 华中农业大学理学院计算机科学系 吴鹏飞 分析： （1）Dim a%（） ={1,4,7,10,13,16,19,22,25} （2）n=Ubound(a) Redim Preserve a(n+1) （3）k=14 if a(i)=k then a(i+1)=a(i):a(i)=0 else a(i+1)=k:exit for end if 2012 年 10 月 3 一维数组应用 3.4 数组元素删除 【例10.6】在一组有序数据中，删除一个指定的数k=12，使这组数据仍旧有序。 华中农业大学理学院计算机科学系 吴鹏飞 分析： （1）Dim a%（） ={1,3,4,9,12,24,