数组元素的引用.pptVIP

Visual Basic程序设计 第5章 数组 数组：一组具有相同名字、不同下标变量的集合 静态数组的定义：Dim s(5) As Integer 动态数组的定义：Dim s( ) As Integer n = Val(Text1.Text) ReDim s(n) 数组元素的引用：s(1)、s(2)、s(3)、…… 回 顾 数组元素的输入： For i = 1 To 5 s(i) = 2 * i – 1 s(i) = InputBox(请输入数据：) s(i) = Int(Rnd * 101) Next i 数组元素的输出： For i = 1 To 5 [Picture1.]Print s(i); Label1.Caption = Label1.Caption s(i) “ Text1.text=Text1.text s(i) Next i 5.3 数组的操作 数组元素的输入 数组元素的输出 数组的应用 本讲内容 4、用Array函数给数组元素赋值 格式：数组名=Array（数组元素值列表） 举例：a = Array(星期一, 星期二, 星期三) 功能：将括号中的数据依次赋给数组中的各元素。 说明： （1）Array函数只适用于一维数组。 （2）声明的数组是动态数组或连圆括号都可省并且其 类型只能是Variant 。 （3）Array函数中的数组元素值之间以逗号分隔。 一、数组元素的输入 Dim c() As Variant c = Array(4, 5, 3, 7, 2, 9) Dim c() c = Array(4, 5, 3, 7, 2, 9) Dim c As Variant c = Array(4, 5, 3, 7, 2, 9) Dim c c = Array(4, 5, 3, 7, 2, 9) （4） 数组下标的下界值由Option Base决定，默 认是0，上界值由括号内的参数个数决定。 Dim c As Variant c = Array(4, 5, 3, 7, 2, 9) c(0) = 4: c(1) = 5： c(2) = 3 c(3) = 7: c(4) = 2: c(5) = 9 Option Base 1 Dim c As Variant c = Array(4, 5, 3, 7, 2, 9) c(1) = 4：c(2) =5: c(3) =3 c(4) = 7: c(5) =2: c(6) = 9 阅读语句，判定正误： 1、 Dim c(1 to 8) c = Array(4, 5, 3, 7, 2, 9) 2、 Dim c As Integer c = Array(4, 5, 3, 7, 2, 9) 3、 Dim c As Variant c() = Array(4, 5, 3, 7, 2, 9) 4、 Dim a a = Array(abc, 1, #8/21/2012#) 3、用For Each … Next 语句 格式： For Each 成员 in 数组 … ［Exit For］ … Next ［成员］ 变体变量名 仅为一个数组名，不需括号和上、下界 二、数组元素的输出 执行过程： （1）首先计算数组元素的个数，决定循环的次数。 （2）每次执行循环体之前先将数组的一个元素值赋给成员。 第一次是第一个数组元素，执行循环体； 第二次是第二个数组元素，依次类推。 （3）直到遍历完每一个数组元素或遇到Exit For语句则退出该 循环。 Dim a, t As Variant a = Array(1, 3, 5, 7, 9) For Each t In a Print t; Next t Dim a, i As Integer a = Array(1, 3, 5, 7, 9) For i = 1 To 5 Print a(i); Next i 例1 自动产生20个60~100以内的随机整数，并 输出这些数。 For i = 1 To 20 a(i) = Int(41 * Rnd + 60) Next i 以每行5个 For i = 1 To 20 a(i) = Int(41 * Rnd + 60) Print a(i)