VB二级入门四.docVIP

第五章：数组 例：有一数列,其中的数列的第一项为1,第二项为1,该数列从第3项开始，每一个元素都为相邻的前两项之和，求该数列的第50项. Dim x(50) as integer,i as integer x(1)=1 x(2)=1 for i=3 to 50 x(i)=x(i-2)+x(i-1) next print x(50) 数组：一组数。如果一个变量可以存放若干个值，这个变量就为数组。即数组是由一系列名称一样，而下标不一样的元素构成。 数组要先定义大小，然后再使用。数组分为静态数组与动态数组 一、静态数组的定义 格式1： dim 数组名(下标上界) as 类型名称 dim 数组名(第一维下标上界，第二维下标上界) as 类型 相关语句： option base 0|1 指定下标的下界为0还是为1，默认为0，涉及到数组的大小问题。 初值问题 当数组为数值型时，默认为0,当数组为字符型时，默认为空串 格式2: dim 数组名([下界 to] 上界,[[下界 to] 上界]...) 说明： 1、数组名不能与变量名相同 2、静态数组定义时，不能用变量或含有变量的表达式来代表数组的上界。但引用数组元素时可以。 例：dim n as integer n=4 dim a(n) as integer 错误 dim a(n+2) as integer 错误 dim n as integer n=4 dim a(4) as integer 正确 a(n)=3 正确 3、如果指明了as 类型，则要求所有元素存放的值,即类型一样。省略 as 类型，则认为是variant类型，所有元素其值都可以是不一样的。 Dim a(3) As Integer a(1) = 3 a(2) = 4.7 a(3) = 6.2 Print a(1), a(2), a(3) Dim a(3) a(1) = 3 a(2) = 4.7 a(3) = 6.2 Print a(1), a(2), a(3) Dim x(3) as integer Print x(0), x(1), x(2), x(3) 0 0 0 0 x(0) = 4 x(1) = 3.6 x(2) = 刘芳 当执行到这一句时，运行出错 x(3) = Date Print x(0), x(1), x(2), x(3) 如果将as integer改为as variant，此时最后一行输出的结果为4 3.6 刘芳 2009-11-18 直接写dim x(3)即省略 as variant时，表示数组x仍然为变体类型. 例:输出如下矩阵(3行4列) 3 6 2 0 4 2 7 8 9 0 1 6 option base 1 在通用的声明中书写 Dim x(3, 4) As Integer, hb As Integer, lb As Integer x(1, 1) = 3 x(1, 2) = 6 x(1, 3) = 2 x(1, 4) = 0 x(2, 1) = 4 x(2, 2) = 2 x(2, 3) = 7 x(2, 4) = 8 x(3, 1) = 9 x(3, 2) = 0 x(3, 3) = 1 x(3, 4) = 6 For hb = 1 To 3 For lb = 1 To 4 Print x(hb, lb); Next lb Print Next hb 如果要输出m行，n列的数. for i=1 to m ‘m是指行标 for j=1 to n ‘n为列标 ?数组名(i,j) next print ‘换行 next 例：输入五个分数，求最高分 第一种方法: Dim x As Integer, max As Integer, i As Integer x = InputBox(请输入第1个数:) max = x For i = 2 To 5 x = InputBox(请输入第 i 个数) If x max Then max = x Next i Print 最大值为:; max 第二种方法: Dim i As Integer, max As Integer, a(5) As Integer For i = 1 To 5 a(i) = InputBox(输入第 i 个数) Next max = a(1) For i = 2 To 5 If a