vb控件数组

Public Number(5) As Integer Public Price(20) As Double 第一个是声明了一个有6个元素的数组，其索引值为0～5；第二个是声明 了一个有21个元素的数组，其索引值为0～20。 说明： （1）数组名的命名规则与简单变量的命名规则相同。 （2）数组声明要考虑其作用域，也就是应用的有效范围，原则上“谁定义 ，谁使用”。 （3）如果省略<类型>，将按Variant处理。如果数组的数据类型可以确定， 最好不要省略<类型>。 （4）<维数说明>指定数组的维数以及各维的范围，为了规定下界，用关键 字To显式提供下界（为Long数据类型）。 定义格式为： [<下标下界1> To] <下标上界1> [,<下标下界2> To] <下标上界2>]… 如果没有使用to显式指定下标下界，则可以用Option Base {0|1}语句控制下 界。例如，当n为1时，缺省下界为1，下界为1的情况会经常用到。当n为0时， 就是缺省下界为0，此时Option Base 语句可省。
Private Sub Command2_Click() Dim max As Integer, min As Integer Dim s As Integer, m As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) s = s + a(i) Next i m = s / 10 Text1.Text = max Text2.Text = min Text3.Text = m End Sub
【例6-2-2】求n个两位数的极值、平均值、方差和标准差。 建立程序用户界面与设置相应的对象属性，如图6-2-1。
程序代码如下： Dim a(1 To 10) As Integer Private Sub Command1_Click() Form_Load Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub
返回目录
6.1.2
数组的概念
数组是由一系列具有相同变量名、相同数据类型的下标变 量构成的有序排列。把一组具有相同一名字，不同下标的 下标变量称为数组。 例： a(1)、a(2)、a(3)、a(4)、a(5)。 变量名就是数组名，每个下标变量称为该数组的一个数组 元素。 数组的数据类型也就是该数组包含的下标变量的数据类型。 在Visual Basic中，可以声明任何基本数据类型的数组， 包括用户自定义类型和对象变量，但是一个数组中的所有 元素应该具有相同的数据类型，只有当数据类型为变体类 型（Variant）时，各个元素能够包含不同类型的数据。
返回目录
例如： Dim Num(1 To 15) As Integer ' 索引值为1～15 Dim Price(10 To 20) As Double ' 索引值为10～20 Dim grade(1 To 50,3) as single „ 声明包含50×4个元素的二 维数组
数组定义中需要注意的问题：
图6-2-2 统计界面
Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Dim p As String Randomize p = "" For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 p = p & Str(a(i)) & "," Next Label4.Caption = LTrim(Left(p, Len(p) - 1)) End Sub
在 数 学 上 ， 我 们 可 以 用 一 串 有 序 的 数 据 a1 、 a2 、 a3、…ai、…、a100来处理100个学生的某门课程的成绩，简 化为{ai}表示，这是一组类型相同的数据，每个数据在其中 的顺序位置是一定的，我们把i(=1,2, 3,…,100)称为下标。 在Visual Basic中，由于程序写在一行上，而且字符一 样大小，所以下标要放在小括号内。例如，上面的数据可表 示为 a(1) 、 a(2) 、 a(3) 、 … 、 a(i) 、 … 、 a(100) ， 在 Visual Basic中，我们把每一个a(i)都叫做下标变量。下标 变量的一般格式为：a(i)。其中a是变量名，i是下标。
第6章
6.1 6.2 6.3 6.4 6.5
数组
数组的概念 固定数组 动态数组 For Each … Next循环 控件数组 习题
6.1 数组的概念 下标变量 数组的概念 数组的维数 数组元素的存放 数组的形式
6.1.1 6.1.2 6.1.3 6.1.4 6.1.5
返回目录
6.1.1 下标变量
（1）同一过程中，数组名与变量名不能同名。
（2）定义数组时，元素个数必须是常数，不能是变量或表达 式。如DIM a(n+5) 错。
如果在运行过程中定义数组可用以下方法解决用redim定义。 用redim语句定义。 如：n = Inputbox(“输入n的值”) redim a(n+5)
（3）数组类型除在AS子句中给出外，也可通过类型说明符指定
返回目录
6.1.3 数组的维数
如果一个数组的元素只有一个下标，则称这个数 组为一维数组。 也就是说，用一个下标便可以确定各个数组元素在 数组中的位置。 如果数组中的元素，必须用两个下标才能确定所 处的位置，这样的数组称为二维数组。 例如：有50个学生，每个学生有2门课程的成绩， 则这些成绩可以用二维数组来表示，第i个学生第j 门课程的成绩可以用a(i,j)表示。其中 i（=1,2, 3,…,50）称为行下标， j（=1,2）称为列下标。 返回目录
返回目录
6.2
固定数组
固定数组也称为固定大小的数组，是指 数组元素的个数固定不变的数组。
6.2.1 6.2.2 6.2.3
数组的声明 数组的应用 字符串数组返回目录6.2.1 数组的声明
数组的声明应该包括以下信息： 数组名、维数、大小、类型以及作用范围。 有三种方法声明固定数组。 （1）建立公用数组，在模块的通用声明段中用Public语句声明数组。格式为： Public 数组名（<维数说明>）[As <类型>] （2）建立模块级数组，在模块的通用声明段用Private语句声明。格式为： Private| Dim 数组名（<维数说明>）[As <类型>] （3） 建立局部数组，在过程中用Private 语句声明数组。格式为： Dim | Private 数组名（<维数说明>）[As <类型>] 例如：下列数组声明可以出现在模块的通用声明段或过程中。 Dim Number(5) As Integer Dim Price(20) As Double 为建立公用数组，直接用Public取代Dim。
对于二维数组则通过双重循环输入，其中外围循环控制行数， 内层循环控制每行元素个数。 例：向一个二维数组输入数据。 对一维数组，用一个循环可完成，与输入过程一样，对二维数 组则可用双重循环，输出时注意打印格式，如：
Dim a(4, 4) As Integer For I = 1 To 4 For j = 1 To 4 a(I, j) = I * j Next j Next I „给数组元素赋值 For I = 1 To 4 Print Tab(5); For j = 1 To 4 Print a(I, j); " "; Next j Print Next I „输出各数组元素值
6.2.2 数组的应用
1. 一维数组的应用 一维数组元素只有一个下标，只要下标值确定，元素在数组中的位置也就确定了。数 学上形如数列{ai}表示的数据均可用一维数组来处理。 【例6-2-1】使用数组计算1+2+3+…+100的值 Option Base 1 ' 设置下界自动为1 Private Sub Command1_Click() Dim a(100) As Integer Dim s As Integer For i = 1 To 100 a(i) = i ' 数组的产生 Next i s = 0 ' 累加器初始化 For i = 1 To 100 s = s + a(i) Next i Print "1+2+3+…+100="; s End Sub
关于下标变量的规定： （1）下标变量在程序中的用法和简单变量的用法一样。 （2）由于程序必须写在一行上，而且字符一样大小， 所以下标要放在小括号内，如a(3)不能写成 a3， 后者将被当作简单变量处理。 （3） 下标可以是常数、数值变量、算术表达式甚至下 标变量。下标中如含有变量，使用前应给该变量提 前赋值。例如：当i=5时，a(i)表示a(5)，a(i+3) 表示a(8)；如果b(3)=5，则a(b(3))表示a(5)。 （4）下标变量的下标值应该为整数，否则计算机将对 下标进行自动取整。如a(3.2)将被视为a(3) ，a(3.7)将被视为a(-4)。
如：Dim a%(5), b!(6) Dim a(5) as Integer ,Dim b(6) as Single （4）数组的下界必须小于上界。 测试上界或下界用以下函数。
LBound(数组[,维])
Ubound(数组[,维]) 例：DIM a(4)
返回值为数组的上界
返回值为数组的下界