任务应用过程数组循环拓展功能.pptVIP

VB.NET程序设计 任务四 应用过程、数组、循环拓展功能 学习目标 1、掌握循环结构的使用 2、掌握数组定义和应用 3、掌握过程定义和调用 4、了解过程调用中的参数传递 循环语句 循环语句－For…Next循环 循环语句－For…Next循环 循环语句－For…Next循环 循环语句－Do…Loop循环 循环语句－Do…Loop循环 循环语句－Do…Loop循环 循环语句－Do…Loop循环 循环语句－两重循环 循环语句－两重循环 循环语句－多重循环 数组－数组的概念 数组用于保存大量的、逻辑上有联系的数据 数组的特点： 数据中的元素在类型上是一致的 数组元素在内存空间上是连续存放的 数组元素的引用可通过下标进行 数组在使用前必须要定义(声明) 数组－一维数组的定义和使用 1. 数组的定义(声明) Dim 数组名(下标) As 数据类型 或 Dim 数组名() As 数据类型 = {值} 例如: Dim Data(40) As Integer Dim Data() As Integer = {1,2,3,4} 定义数组可以使用类型符 例， Dim Data%(40) 数组的下标全部从 0 开始 例，Dim Salary(1000) As Decimal 通过数组名和下标可引用数组中的元素 例， Data(25)=95 Debug.write ( Data(25)) 数组－一维数组的定义和使用 说明-1： 数组定义后的初值：数值型数组各元素为0，逻辑型数组各元素为False，字符串数组各元素为空串(“)。 可同时声明几个数组，用逗号分隔，例如 Dim A%(100), B(800) As Long 定义数组时，下标的上界值只能是常数或常数表达式。下例的定义是错误的 N=100 : Dim Data(N) As Integer 定义时，数组的上界值不得超出长整型范围。 数组－一维数组的定义和使用 说明-2： 数组的元素个数称为数组长度。 GetUpperBound是数组的一个方法,它可返回数组某个维的上界值. 例如 Dim Matrix1(,) As Integer = {{1, 2, 3, 4}, {2, 3, 4, 5}, {3, 4, 5, 6}} Dim Matrix2(3, 2) As Integer Dim Matrix3(,) As Integer 数组－一维数组的定义和使用 2. 数组元素的使用 通过数组名和下标 [例] Dim Data(5) As Integer Dim Sum, I As Integer For I = 1 To 5 Data(I) = InputBox(输入第 I 个数据) Sum = Sum + Data(I) Next I Debug.writeline( Sum) 数组－一维数组的定义和使用 说明： 数组实际上是用一个变量名字代表一组数，这组数是连续排列的，用顺序号作为下标区分各个数。 数组下标是一个整型量。 数组常见的错误： 下标出界 数组－一维数组应用例题 [例] 输出斐波那契级数的前20项 Dim F(20) As Integer, I As Integer F(1) = 1 : F(2) = 1 第一、第二项为1 For I = 3 To 20 第三项起每项为前二项之和 F(I) = F(I - 2) + F(I - 1) Next I For I = 1 To 20 在窗体上输出 Debug.write (F(I) ” , ”) If I Mod 5 = 0 Then Debug.writeline(“”) Next I 数组－一维数组应用例题 [例] 产生100个不重复的3位随机整数， 并按每行7列的格式输出 Dim Data(100) As Integer, I%, J% Randomize() 设置随机化种子，保证每组数据不重复 For I = 1 To 100 循环产生100个数据 Data(I) = New System.Random().Next(100,1000) Fo