输出数组元素的值next j print.ppt

第5章 数组 5.1 数组概述 5.2 静态数组和动态数组 5.3 数组的基本操作 5.4 控件数组 5.5 数组在自定义数据类型中的应用 5.1 数组概述 5.1.2 一维数组及声明 5.1.3 多维数组及声明 Dim Array(1 to 3,0 to 4) as integer Dim N%(2,1 to 3,4) 5.1.5 与数组有关的语句及函数 1．Option Base语句 Option Base 0|1 作用：重新定义数组下标的起始值为0或者1 说明：该语句一定要在窗体模块的通用段或者标准模块中声明。 2．UBound|LBound函数 UBound|LBound(数组名[，数组维序号]) 作用：返回指定数组的下标上界（下标最大值）或下标下界（下标最小值）。 3. Array函数 格式： 数组名= Array（表达式1，表达式2，表达式3…） 作用：先计算各个表达式的值，然后将表达式1、表达式2、表达式3等的值依次赋值给数组的各个元素。 说明： 利用array函数给数组赋值，数组只能是动态变体型。 例如： Dim A( ) As Variant “表达式列表”可以是任意基本类型数据，各个表达式之间用逗号分隔。 用Array函数给数组赋值时，数组名后面的括号可以省略 Array函数只能对一维数组进行初始化。 4. Join函数 格式： 字符型变量名=Join（数组名[，分隔符|空格]） 作用：将指定“数组”的各个元素按指定的“分隔符（或空格）”连接成字符串。 说明： （1）函数的返回值是字符型。 （2）只需要给出数组名的名称，不需要加括号和下标。 （3）分隔符是字符型，一定要加引号“” 5. Split函数 格式： 字符型数组名=Split（字符串，分隔符） 作用：将“字符串”按指定的“分隔符”分隔成一个个数组元素，赋值给字符数组。 说明： （1）“字符串”：可以是多个字符串表达式，各个字符串表达式之间用逗号分隔。 （2）“分隔符”：可以是任何字符型，分隔符两边要加双引号“”。 （3）Split函数与Join函数互为反函数。 6. For Each-Next语句 专门用于数组或对象集合，其格式为： For Each 成员 In 数组名 循环体 Next [成员] 说明 （1）“成员”是一个变体型变量，它是为循环提供的，可以是任意的合法变量名。 （2）“数组名”后面没有括号和下标。 5.2 静态数组和动态数组 静态数组 声明数组时给出数组的下标上界 也叫定长数组 编译时开辟内存区域 动态数组 声明数组时不给出数组的下标上界，需要的时候用ReDim语句临时定义 也叫可变长数组 运行时开辟内存区域 5.2.1 静态数组及其声明 一维静态数组的声明格式： ① Dim 数组名（下标上界） [AS 数据类型名称] ② Dim 数组名（下标下界 To 下标上界） [AS 数据类型名称] 5.2.2 动态数组及其声明 定义动态数组的注意事项 Private Sub Command1_Click() Dim a() As Single, n%, i% n = Val(InputBox(请输入大于2的值：)) ReDim a(1 To n) a(1) = 1: a(2) = 1 给前2个元素赋值 For i = 3 To n a(i) = a(i - 1) + a(i - 2) 计算序列中第3项到第n项的值 Next i For i = 1 To n Print a(i), 打印序列中的值 If i / 5 = i \ 5 Then Print 每行打印5个数，换行 Next i End Sub Private Sub Command1_Click() Dim s() 声明动态数组s Dim i%, j%, n% n = Val(Text1.Text) ReDim s(1 To n, 1 To n) 重新声明数组大小 Picture1.Cls For i = 1 To n s(i, 1) = 1 第一列元素都为1 s(i, i) = 1 对角线元素都为1 Next i For i = 3 To n For j = 2 To i - 1 s(i, j) = s(i - 1, j - 1) +