VB.Net课件第5章 数组1.ppt

* 1.求元素和 通过循环将每个元素进行累加 2.求数组中最小元素 假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现小于最小值，就用新值替换最小值，同时记录下标值。 3.求最大值的方法与求最小值相似 * * * 删除操作 首先也是要找到欲删除的元素的位置k； 然后从k+1到n个位置开始向前移动； 最后将数组元素减1。 * Dim t%, i% Dim A(1 to 10) as Single ‘给数组赋值 For i =1 To 10\2 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next i * 华中农业大学理学院计算机系 * VisualBasic.Net程序设计 华中农业大学理学院计算机系 第5章 数 组 教学目的： 掌握数组的定义和使用 熟练使用一维数组进行编程 掌握二维数组的使用 掌握ListBox控件和ComboBox控件的使用 掌握一些数组方法的用法 华中农业大学理学院计算机系 第5章 数 组 教学重难点： 数组的定义和赋值 使用数组编程 ListBox控件和ComboBox控件 华中农业大学理学院计算机系 第5章 数 组 5.1一维数组的定义和引用 5.1.1一个引例 5.1.2一维数组的声明和初始化 5.1.3一维数组的引用 华中农业大学理学院计算机系 5.1.1一个引例 编写一个程序，输入50名射击运动员的一次比赛成绩（以环计），低于平均环数的人遭淘汰，统计通过比赛的人数并按环数高低显示他们的成绩 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 华中农业大学理学院计算机系 数组一组相同类型的变量的集合。 数组名代表逻辑上相关的一批数据，用下标区分该数组中的各个元素 数组必须先声明后使用，数组声明后在内存可分配一块连续的区域。 5.1.2一维数组的声明和初始化 华中农业大学理学院计算机系 1 数组声明 一维数组 Dim 数组名(下标上界) [As 类型] Dim mark(99) As Integer mark(99) mark(98) … mark(2) mark(1) mark(0) 华中农业大学理学院计算机系 格式： Dim 数组名(下标上界) [As 类型] 例如： Dim a(10) As Integer Dim st$(5) 说明： 下标下界为0，上界为常数、已有值的表达式或变量。 一维数组的大小为：下标上界+1。 不要越界使用数组的元素 华中农业大学理学院计算机系 2 数组的初始化 定义数组的同时，为数组元素赋初值，数组的初值是以左右大括号括住的，数据间彼此以逗号隔开。此种方式定义数组时，不可以在数组名后面的小括号内设置数组的大小。 格式：Dim 数组名() As 类型={常数1，……，常数n} 例如：Dim myArray() As Integer={56，45，68，32} 定义一个数组名为myArray的整数数组，并将初始值设置如下： myArray(0)=56 myArray(1)=45 myArray(2)=68 my