vb讲稿2研究报告.ppt

* * * * * * 暗暗 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Option Base n 功能: 指定数组下标下界的缺省值 说明: n为数组下标指定的下界，取值为0或1。不使用该语句， 程序默认数组的下标的下界值为0 该语句只能出现在窗体层或模块层，不能出现在过程中， 且必须位于数组定义之前 常用语句： 静态数组 数组下标测试函数 Lbound(数组名[, 维]): 返回数组中指定维的下界 Ubound(数组名[, 维]): 返回数组中指定维的上界 Dim y(1 To 12, 5 To 20, -3 To 6) Print Lbound(y, 1), Ubound(y, 1) Print Lbound(y, 2), Ubound(y, 2) Print Lbound(y, 3), Ubound(y, 3) 1 12 5 20 -3 6 静态数组 For Each …Next语句 格式 For Each 成员 In 数组 循环体 [Exit For] …… Next [成员] 变体变量,代表了数组中 的每个元素 没有括号和上下界的数组名 静态数组 Dim a(10) As Integer, i%, x For i = 1 To 10 a(i) = Int(100 * Rnd) Next i For Each x In a Print x; ; Next x 说明： 程序运行时，通过Rnd函数为每个数组元素随机产生一个0～100之间的随机数，然后通过For Each …Next语句输出每个数组元素的值 静态数组 * 9.2.2 动态数组 事先不知道数组的大小，并希望在运行时可以根据需要改变数组的大小，这时就要使用动态数组。 建立动态数组的步骤： 第1步：声明一个没有下标的数组为动态数组： Public | Private | Dim 数组名() [As 类型] 第2步：在使用时可多次用ReDim语句为动态数组动态分配空间： ReDim [Preserve] 数组名([下界1 to] 上界1[,下界２ to] 上 界2…]) [As数据类型] 示例： Private Sub Command1_Click() Dim F() As Integer 声明一个整型动态数组 ReDim F(2) f(0)=2:f(1)=23:f(2)=45 ReDim F(20) …… End Sub 说明： ReDim 语句用来更改动态数组的维数或大小； ReDim语句不能更改动态数组的数据类型； ReDim为数组分配空间时会清除原有的数据，故想在原有数组中追加空间可添加Preserve关键字，此时ReDim只能改变多维数组中最后一维的上界，否则运行程序报错。 保持 一致 Private Sub Form_Click() Dim a() As Integer ReDim a(2 To 3) For i = 2 To 3 a(i) = i * 2 Print a(i), Next Print ReDim a(2, 6) For i = 1 To 2 For j = 1 To 3 a(i, j) = i * j Print a(i, j), Next Print Next End Sub 动态数组 * 9.2.2 动态数组 例9.5：编写一个程序，计算n个加数的和。 Private Sub Form_click() Dim n As Integer, i As Integer, a() As Single, s As Single n = Val(InputBox(请输入加数的个数：)) ReDim a(1 To n) For i = 1 To n a(i) = Val(InputBox(请输入第 i 加数:)) Print 第 i 个加数为: a(i) s =