数据库应用与VB程序设计 第6章 构造数据类型.pptxVIP

第6章 构造数据类型 6.1 数组 数组是一组具有有序下标的元素集合，可以用相同名字和确定的下标来引用数组元素。 在VB中，数组的一般形式为：A(n)，其中A代表数组名，n是下标变量，一个数组可以含有若干个下标变量 6.1 数组 【例如】为了处理50名学生的计算机课程考试成绩，可以用A1，A2，…，A50来分别代表每位学生的分数 在使用数组前要先定义。定义数组（也称声明数组）是为了确定数组的类型并给数组分配所需的存储空间。 6.1 数组 数组的定义（默认：数组下标从0开始） 一维数组： DIM数组名 （维数定义） [AS数据类型] 例如： DIM S(3) as integer 有3个元素： S(0) S(1) S(2) s(3) 二维数组：先行后列 DIM数组名 （维数定义） [AS数据类型] 例如： DIM M(2,3) M(0,0) M(0,1) M(0,2) M(0,3)M(1,0) M(1,1) M(1,2) M(1,3)M(2,0) M(2,1) M(2,2) M(2,3) 6.1 数组 数组的类型 如果定义数组时指定了类型，则所有元素都是相同的类型数组的下标和数组元素 数组中的每一个元素通过数组名和下标来引用 例如： S(2) M(2,2) 的含义是？ 注意： 下标不能越界数组的上下界 如果使用语句 option base 0|1 , 指定默认的下界是0或1 该语句放在通用模块中 也可以在定义时指定上下界 例如： DIM A(1 TO 7) 6.1 数组 数组的操作1、数组元素的输入 ◎使用赋值语句给数组元素赋值 ◎使用For循环给有规律的数组元素赋值2、数组元素的输出 ◎print输出 ◎输出到控件中 6.1 数组（输入和输出举例） 举例：将10个1到10的随机数存放在数组中，并输出Option Base 1Private Sub Form_Click()Dim A(10) as integerRandomizeFor i = 1 To 10 A(i) =Int(Rnd * 10) NextFor i = 1 To 10 Print A(i)NextEnd Sub 6.1 数组 【综合应用】打印输出Fibonacci数列的前20项，该数列定义为1，1，2，3，5，8，13，…..【分析】Fabonacci数列 的特点是： 1 n=1Fib(n) 1 n=2 fib(n-2)+fib(n-1) n=3【设计】定义一个数组FAB(1 TO 20) 赋初值： fib(1)=1:fib(2)=1 计算Fib(n) =fib(n-2)+fib(n-1) (3=n=20) 输出Fib(n)（1=n=20)那些用循环来实现？ 6.1 数组 【程序】打印输出Fibonacci数列的前20项，该数列定义Private Sub Form_Click()Dim n As Integer, fib(1 To 20) As Integerfib(1) = 1: fib(2) = 1For n = 3 To 20 fib(n) = fib(n - 1) + fib(n - 2)NextFor n = 1 To 20 Print fib(n); If n Mod 4 = 0 Then Print 打印换行 NextEnd Sub For Each…Next语句 For Each…Next语句是一种专门用于对数组进行操作的循环语句。其格式为：?For Each成员 In 数组 语句序列 [Exit For] …… Next [成员] 功能：根据数组元素的个数重复执行循环体中的语句。 For Each…Next语句 举例：将10个0到10的随机数存放在数组中，并输出Option Base 1Private Sub Form_Click()Dim A(10) as integerRandomizeFor i = 1 To 10 A(i) =Int(Rnd * 10)NextFor Each x In a Print xNextEnd Sub举例：使用for each语句，四个一行的输出Fibonacci数列的前20项Private Sub Form_Click()Dim n As Integer, fib(1 To 20) As Integerfib(1) = 1: fib(2) = 1For n = 3 To 20 fib(n) = fib(n