当前位置：文档之家 › 计算机VB05数组

计算机VB05数组

  • 格式：ppt
  • 大小：4.04 MB
  • 文档页数：55

下载文档原格式

  / 55

合集下载

Vb实验五数组的应用

Vb实验五数组的应用

《Visual Basic 6.0程序设计》实验报告（五）一、实验名称：数组的应用（4学时）二、实验目的：１．掌握数组的声明和数组元素的引用；２．掌握静态数组和动态数组的声明和使用；３．学会应用数组解决与数组有关的常用算法问题；４．掌握控件数组的建立和应用。

三、实验环境多媒体计算机WindowsXP操作系统Visual Basic 6.0四、实验内容及实验步骤（或记录）1.输入10名同学的成绩，求平均分、最高分和最低分。

设计步骤如下：①在窗体上添加3个标签（Label1、Label2和Label3）和3个文本框（Text1、Text2和Text3），设计界面如图7.2所示。

各控件的主要属性和作用如表1所示。

控件的属性和作用②编写程序代码如下：Private Sub Command1_Click()Dim Score(1 To 10) As Integer '声明存放成绩的数组ScoreDim i As Integer，Max As Integer，Min As Integer，Average As SingleFor i = 1 To 10 '逐一输入每个同学的成绩Score (i) = Val (InputBox ("输入第" & Str（i）& "个学生的成绩"，"成绩统计"，""))Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim sum As Single, aver As Singlesum = Score (1) ' sum 用于存放总成绩，初值为数组中的第一个元素Max = Score (1) ' 设变量Max的初值为数组中的第一个元素Min = Score (1) ' 设变量Min的初值为数组中的第一个元素For i = 2 To 10 ' 通过循环依次比较，求最大、最小值；求总和If Score(i) > Max Then Max = Score(i)If Score(i) < Min Then Min = Score(i)sum = sum + Score(i)Next iaver = sum / 10 ' 求平均值Text1.Text = Format (Average, "0.00 " ) ' 以两位小数显示平均值Text2.Text = MaxText3.Text = MinEnd Sub2.生成20个0到100之间的随机整数存于数组A，然后将这20个数按递增顺序排序。

计算机应用VB-数组

计算机应用VB-数组

5.3.4 与数组有关的几个函数
其中： <数组名>：必需的。数组变量的名称，遵循标 准变量命名约定。 <N> ：可选的，一般是整型常量或变量。指定 返回哪一维的上界。1 表示第一维，2 表示第 二维，如此等等。如果省略默认是1。
5.3.4 与数组有关的几个函数
例如： Dim A(-5 To 50,20,7 To 65) As Integer UBound(A,3)=65 LBound(A)=-5

计算机中的“数组”是一群在内存中占用连续 地址的同性质的变量的集合，这些变量具有相 同的名称和数据类型，我们将数组中的每一个 数据称为“数组元素”，数组中的每个数组元 素相当于一个变量，数组元素通过下标进行区 分，下标代表数组元素在数组中的顺序(位置)。
5.1数组的基本概念
下面简要介绍有关数组的基本概念: (1) 数组：是具有相同数据类型的变量的一个有 序的集合。 如，Dim A(1 To 100) As Integer表示一个包含 100个数组元素、数组名为A、数据类型为整 型的数组。
5.2.2 动态数组的声明
说明： (1) ReDim语句是一个可执行语句，只能出现在过程中， 并且可以多次使用，改变数组的维数和大小，但不能 改变数组的数据类型。 例如：以下语句 Dim x() As Integer ReDim x(10) ReDim x(20) x(20) = 30 Print x(20) ReDim x(20, 7) x(20, 7) = 10 Print x(20, 7) 是正确的，而语句Redim x(34,20) As Long是错误的。
5.2 数组的定义
【例5-3】用循环方式对数组赋值。 Sub Form_Click() Dim i as Integer Dim A(5) As Integer For i=0 To 5 A(i)=i Next i For i=0 To 5 Print A(i) Next i End Sub

VB语言数组专题讲解

VB语言数组专题讲解
其中：score是数组名。
该数组可以存放5个成绩，分别用下标变量表示： score(1),…,score(5)。
3
5.1数组的概念及其声明
5.1.1数组与数组元素
1. 数组概念 数组就是一组相同类型数据的集合，这一组数
中的每一个组成元素就叫做数组元素。 用一个统一的名字（数组名）代表逻辑上相关的一 批数据，每个元素用下标变量来区分；下标变量代 表元素在数组中的位置。 例如：dim mark(1 to 100) As Integer
例如x(3.6)取整后为x(4)
5.1.1数组与数组元素
7
5. 数组的类型
Visual Basic中的数组，按不同的方式可分为以下几类： 按数组的大小（元素个数）是否可以改变来分为：
定长数组、动态（可变长）数组，也称为静态数组或 动 态数组。 按元素的数据类型可分为：数值型数组、字符串数组、
引用数组元素需要注意的问题：
引用数组元素的方法：在数组名后的括号中指
明下标
例如a(5),b(3,4)
引用数组元素时，数组名、数组类型必须与数组
声明时一致
引用数组元素时，下标值应在数组声明时所指定 的范围内 在同一过程中，数组与简单变量不能同名
15
1. 数组元素的输入（赋初值）
(1)赋值语句
日期型数组、变体数组等。
按数组的维数可分为：一维数组、二维数组、多维数组。
对象数组：菜单对象数组、控件数组。
8
5.2 静态数组
静态数组是指固定大小的数组，类型、维数 和大小将不得改变。 5.2.1 静态数组及声明 下界 to 上界 语法: Dim 数组名(下标1[,下标2…]) [As 类型]
1

VB课件--第5讲 数组

VB课件--第5讲 数组

---------------------------------------------------------------最新资料推荐------------------------------------------------------VB课件--第5讲数组第 5 讲数组 5. 1 数组 5. 1. 1 数组的概念数组不是一种数据类型，而是一组相同类型的变量的集合。

数组必须先声明后使用，用声明语句声明数组时要声明：5. 1. 2 定长数组及声明 1. 一维数组 Dim 数组名(下标上界) [As 类型] Dim 数组名(下标下界 To 上界) [As 类型] 下标必须为常数，不能是表达式或变量；下标下界默认为 0；一维数组的大小为：上界-下界+1 Dim mark(99) As Integer ConstN=10 声明一个符号常量 N； Dim s!( N ) 用符号常量代表下标 2. 多维数组 Dim 数组名(下标 1，下标 2) [As 类型] 下标个数决定了数组的维数；每一维的大小=上界-下界+1；其大小为各维大小的乘积。

5. 1. 3 动态数组及声明建立动态数组分两步：(1) 用 Dim 语句声明数组，但不能指定数组大小 Dim 数组名( ) As 数据类型 (2) 在过程中用 ReDim 语句动态地分配元素个数 ReDim 数组名 (下标[, 下标 2]) 定义动态数组大小注意：说明语句，可出现在程序的任何地方。

而 ReDim 是执行语句，只能出现在过程代码中。

Redim 语句中的下标可以是常量，也可以是已赋值的变量。

1 / 15过程中可多次使用 ReDim 语句来改变数组的大小，但每次使用都会使数组中原有数据丢失。

可在 ReDim 后加 Preserve 参数用来保留数组中的数据，若使用 Preserve 参数后，只能改变最后一维的大小。

5. 2 数组的基本操作 1. 与数组相关的函数和设置 (1) Array 函数变量名=Array(常量数据列表) Aarry 函数将常量列表的各项值分别赋给一个一维数组。

VB程序设计第五章 数组

VB程序设计第五章 数组

5. 求数组中最大元素和所在下标及各元素之和
方法：先假设第一个元素及下标为所求结 果，然后依次比较。 利用循环结构进行

Dim Max As Integer, iMax As Integer, sum As Integer Max=iA(1)：iMax=1: sum=iA(1) For i = 2 To 10 sum = sum + iA(i) If iA(i) > Max Then Max = iA(i) iMax = i End If 求最小值同样方法进行 Next i
(a) 利用Array()函数，可以直接给数组赋值; (b) 数组的声明必须是动态数组或者省略圆 括号，且其类型必须为 Variant (c) 数组的下界默认为0，也可以通过 Option Base 语句确定 (d) 上界由 Array() 函数括号内参数个数确定， 或者由 UBound() 函数确定。

赋值时注意： (1) 赋值号两边的上界类型必须一致 (2) 如果赋值号左边是一个动态数组，则赋值后数组 大小与右边一致。 (3) 如果左边是静态数组，则数组赋值出错！
4. 数组的输出
数组的输出，采用循环输出即可 例：输出方阵sC中的下三角元素

For i = 0 To 4
For j = 0 To i sc(i, j) = i * 5 + j Print sc(i, j); " "; Next j Print ' 换行 Next I （参见P93的代码。）

下标可以是整型的常数、变量、表达式， 也可以是又一个数组元素。 数组元素的使用规则和同类型的简单变量 相同。 一般情况下，数组元素类型必须相同。 但当数组类型定义为 “variant” 时，可以包 含不同类型的元素。

VB第5章 数组(8)

VB第5章 数组(8)

10
3
数组的基本操作
数
3.1 数组元素的输入与输出 数组输入: 数组输入 赋值 IntputBox Array函数 仅用于一维数组 函数(仅用于一维数组 函数 仅用于一维数组) 数组输出: Print、Label、 ListBox、 数组输出: 用Print、Label、TextBox 、ListBox、 Combox等 等 输入10个单词 个单词， 例: 输入 个单词，按相反的次序输出
数 组
例: Dim A() As Integer Private Sub Command1_Click() N=4 ReDim A(N) For I = 0 To N A(I) = 1: Print A(I); Next I Print N=8 ReDim A(N, N) For I = 0 To N For J = 0 To N A(I, J) = 2: Print A(I, J); Next J Print Next I End Sub
6
数 组
例: Dim A(-4 TO 10) As Integer 一维整型数值数组 下界 -4，上界 10 ， 元素 A(-4) A(-3) ... A(0) A(1) ... A(10) 例: Dim B(0 to 8,0 to 3) As String → DIM B(8,3) As String 二维字符串类型 字符串类型数组 二维字符串类型数组 第一维: 下界0， 第一维 下界 ，上界 8 第二维: 下界0， 第二维 下界 ，上界 3 元素 B(0,0) B(0,1) B(0,2) B(0,3) B(1,0) B(1,1) B(1,2) B(1,3) ... B(8,0) B(8,1) B(8,2) B(8,3)
12
数 组

VB5

VB5

5.3.2与动态数组操作相关的函数 5.3.2与动态数组操作相关的函数
1.Array函数(p98) 1.Array函数(p98) 使用格式：Array（参数列表） 使用格式：Array（参数列表） 说明： （1）用Array函数给动态数组赋值后，该数组被确定为一维数组，其下标下界由Option ）用Array函数给动态数组赋值后，该数组被确定为一维数组，其下标下界由Option Base n语句决定，下标上界由参数个数决定。 n语句决定，下标上界由参数个数决定。 （2）用Array函数也可给Variant类型的变量赋值，此时该变量也表示一个Variant类型的动 ）用Array函数也可给Variant类型的变量赋值，此时该变量也表示一个Variant类型的动 态数组。 例如：Dim 例如：Dim a() As Variant ,b As Variant a=Array(1,”abc” a=Array(1,”abc”,3) b=Array(5,6) a=Array(9,8,7,6) ‘重新改变数组a的元素个数 重新改变数组a ReDim Preserve a(2),b(1 To 5)： 改变数组a、b的大小，并保留原来的数据。 5)： 改变数组a 2.Lbound()函数和Ubound()函数 2.Lbound()函数和Ubound()函数 Lbound()函数和Ubound()函数帮助用户确定数组每一维下标的变化范围，Lbound()函数返回 Lbound()函数和Ubound()函数帮助用户确定数组每一维下标的变化范围，Lbound()函数返回 数组的下界，Ubound()函数返回数组上界。 数组的下界，Ubound()函数返回数组上界。 a=array(3,4,5) 使用格式：Lbound（数组名，n）和Ubound（数组名，n i=Lbound (a) To Ubound(a) 使用格式：Lbound（数组名，n）和Ubound（数组名，n） For 说明：n表示第几维，默认为1（第一维），即省略参数n 说明：n表示第几维，默认为1（第一维），即省略参数n时，默认数组为一维数组。 Print a(i) 例如：输出动态一维数组a 例如：输出动态一维数组a中的各元素 Next i For i=Lbound (a) To Ubound(a) a=array(12,43,56,86,87) Print a(i) For i=Lbound (a) To Ubound(a) Next i

VB程序设计--数组

VB程序设计--数组

2.数组的逻辑结构和存储结构
例如：声明一维整型数组N(8) N(8)在内存中排列示意图：
N(1) N(2) N(3) N(4) N(5) N(6) N(7) N(8)
Dim N%(8)
例：从键盘随意 输入8个数，将 这8个数从大到 小排列输出。
二维数组的逻辑结构
二维数组的逻辑结构：可以看成一个二维表格或看成 一个矩阵。数组元素的第一个下标值表示该元素在表 格中的行号，第二个下标值表示该元素在表格中的列 号。 例如：声明二维数组：DIM W%(4,3)
交换后
9 7 5 3 1 10 8 6 4 2
3. 二维数组的输入和输出
Dim a%(4, 2) For i = 0 To 4 For j = 0 To 2
a(i, j) = Val(InputBox("请输入第（" & i + 1 & "，" & j + 1 & "）元素"))
Picture1.Print Format(a(i, j), "@@@@@"); Next j Picture1.Print Next i
Hale Waihona Puke 数组的概念整型一维数组 N(1)
• 具有相同类型的一组变量作为一个整体，N称(2为) 数组。 ┋
• 数组占据一块内存区域，数组名是这个区域的名称，
区域中的每个内存单元都有自己的地址，该地址用 ┋
下标表示，即标识了数组中的每个元素。
• 定义数组的目的就是通知系统为其留 出所需要的空间，且同名数组中的元 素按一定的顺序连续存放。
x(10)=100
' 对x(10)这个数组元素赋值

vb第五章 数组

vb第五章 数组

第五章数组一、教学内容本章讨论数组的知识，一维数组，多维数组和动态数组，以及使用数组编写程序。

二、目的要求1．熟悉使用一维数组编写程序；2．熟悉使用多维数组编写程序；3．熟悉动态数组的使用方法。

三、教学重点与难点教学重点：一维数组和多维数组。

教学难点：动态数组。

四、教学方法多媒体教学为主。

适当提问，加深学生对概念的理解。

本章6课时。

第一讲一维数组（2学时）一、教学内容单选框和复选框。

二、目的要求熟悉一维数组的概念、使用方法。

三、教学重点与难点教学重点：一维和多维数组。

教学难点：动态数组。

四、教学方法多媒体教学。

五、教学过程5.1 概述数组就是很多元素的变量名相同，在内存中是连续存储的若干个存储单元，每个数组元素的类型一样，为了区分这些元素，为每个元素赋予不同的下标值。

数组的声明（也叫做定义）：[Public|Private|Dim|Static] 数组名（下标1[，下标2[…]]）[as 数据类型]。

数组的定义举例:Dim a(5) As IntegerDim b(3 to 8) As IntegerDim c(8)说明：a(5)共有6个元素，分别是a(0)、a(1)、a(2)、a(3)、a(4)和a(5)，b数组共有6个元素分别是b(3)、b(4)…b(8)，c数组共有c(0)、c(1)…c(8)共9个元素。

如果不习惯以0为下标起点，可以设置下标为1，Option Base 1，该语句有只有两个值，分别是Option Base 1和Option Base 0，其中Option Base 0是默认值。

程序举例:1．下面的程序可以求一维数组的最大元素以及最大元素的下标。

编写代码Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim xb As IntegerFor i = 1 To 10a(i) = Val(InputBox("输入数组元素"))Next ixb = 1: zuida = a(1)For i = 2 To 10If a(i) > zuida Thenzuida = a(i)： xb = iEnd IfNext iPrint zuida, xbEnd Sub六、小结一维数组的概念；一维数组的编程方法。

VB程序设计(第2版)教学课件5-5 控件数组

VB程序设计(第2版)教学课件5-5 控件数组

② 用下标索引值(Index)来识别各个控件。如：
Text1(0)、Text1(1)、……。
2
控件数组建立方法
【控件数组的建立方法】
【方法1】利用为控件数组命名方法建立控件数组
① 在窗体上添加同一类型的多个控件。如：Text1、Text2…… ② 单击Text2，使其处于选定状态。 ③ 在属性窗口选择“名称”，即Name属性， 并修改控件名称，即：Text1，显示对话框， 单击“是”，则建立控件数组。 ④ 对要加到数组中的控件重复第②、③步，
Hale Waihona Puke 总结可将相同的控件视为一个数组，即“控件数组”。
建立控件数组有两种方法。
用下标索引值(Index)来识别控件数组中的控件。
'产生10个3位数
3
代码设计
动态数组应用
Private Sub Command2_Click() Dim i%, j%, k% i = 0: j = n For k = 0 To 9 '将奇数放在前 If Text1(k).Text Mod 2 <> 0 Then Text2(i).Text = Text1(k).Text i=i+1 Else Text2(j).Text = Text1(k).Text j=j+1 End If Next k End Sub
2
【说明】
控件数组说明
① 控件数组建立后，只要改变一个控件的“名称”属性，即Name属 性，并将Index属性置为空（不是0），则该控件从控件数组中删除。 ② 建立了控件数组之后，控件数组中所有控件触发同一事件过程，由 事件过程根据不同的Index值执行不同的操作。
3
放入Text2中。

VB第5章 数组

VB第5章 数组
dimarr3single?声明一个二维数组?输入数组中各元素的值arri元素的值next数组的输入可以通过textbox控件inputbox函数逐一输入2012111043例56在文本框中输入一系列数据输入的数据只能为数值包括09小数点负号等组成的数字串不同数之间以逗号为分隔符
第5章 数组
2013-7-4
2013-7-4
10



下界范围：[-2,147,483,648，2,147,483,647]，若省略下 界，则默认值为0。 一维数组的大小为：下界-上界+1。 数组类型一般都在As子句中给出，若省略As子句，则定 义是默认数组。另外，也可通过类型说明符来指定数组的 数据类型。如：Dim a%(10), b!(2 to 6), c#(8)。 定义数组时，下界必须小于上界。可通过LBound和 UBound来测试数组上界值和下界值。其格式为： LBound（数组[，维数]） UBound（数组[，维数]）
2013-7-4
7
5.2.1 一维静态数组

声明一维静态数组的方法与声明一般变量类似，不同的是 声明数组时，要在数组名后面加一对括号，括号里面用数字 或 “下界 to上界”的方式指明数组的大小。
2013-7-4
8
1、数组定义的格式
第一种格式： Dim 数组名（下标上界） [As 数据类型] 如：Dim a(5) As Integer 数组a包含6个元素：a(0),a(1),…,a(5)
2013-7-4
12
3、数组操作
一般针对数组中的各个元素进行，多结合循环语句，通过 引用数组的下标实现。 例如： Dim a(9) As Integer '声明数组a For i = 0 To 9 a(i) = 2 * i + 1 '给数组中元素赋值 Print a(i) '打印出数组中元素 Next i

vb第五章 数组

vb第五章 数组
24
5.2 数组的基本操作
VB不允许对数组整体操作，例如： Dim A(2,3) As Integer A=2 不允许！ 只能对数组元素进行操作，例如： A(1,1)=1 A(1,3)=2 A(2,2)=A(1,1)*2+A(1,3)
25
一、数组元素的赋值
1、用赋值语句给数组元素赋值 例如：A（1，1）=1 A（1，2）=5 2、通过循环语句给数组元素赋值 例如： For I=1 To 10 A(I)=Int(100*Rnd)+1 Next I 该循环语句产生10个100以内的随机整数，存 入数组A中。
22
For Each –Next举例(一维数组的使用) P90例
运行结果： Option base 1 14 21 28 35 42 49 Private Sub Form_Click() 56 63 Dim A(12) As Integer, V As Variant 70 77 84 91 Dim I%, Js% Js = 0 Js = 14 For Each V In A For I = 1 To 12 Js = Js + 1 A(I) = Js Print V; If Js Mod 6 = 0 Then Print Js = Js + 7 输出每行 Next V Next I 6个元素 Print End Sub
数组是具有相同数据类型的多个 值的集合，数组的所有元素按一定顺 序存储在连续的存储单元中。
14
一维数组的结构
逻辑结构 内存的存 放次序
StrA(0) StrA(1) StrA(2) StrA(3) StrA(4) StrA(5) StrA(6) StrA(7) StrA(8)
存储结构

vb程序设计第05章数组

vb程序设计第05章数组
注意： •利用Array对数组各元素赋值，声明的数组是可调数组或连圆括号 都可省，并且其类型只能是Variant。 •数组的下阶为零，上界由Array函数括号内的参数个数来决定，也 可通过函数Ubound( )获得。
Private Sub Form_Click() 2．数组的赋值 Dim a(4) As Integer, b() As Integer, 在VB6.0中，提供了数组直接对数组的赋值。例如： i% a(0) = 3: a(1) = 6: a(2) = 13 Dim a(4) As Integer, b() As Integer,i% = 34 a(3) = 23: a(4) b=a a(0)=3: a(1)=6: a(2)=13 For i = 1 To 4 ReDim b(UBound(a)) a(3)=23: a(4)=34 Print b(i);
例将数组中各元素交换 1 2 9 10 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5
11 12 6 7 8
第一步：将前面的5个数倒置； 5 4 3 2 1 6 7 8 9 10 11 12
第二步：将中间的3个数倒置；
5 4 3 2 1 8 7 6 9 10 11 12 12 11 10 9 第三步：将后面的4个数倒置； 5 4 3 2 1 8 7 6 第四步：将所有的12个数倒置；
?在编程时通过load方法添加其余的若干个元素也可以通过unload方法删除某个添加的元素?每个新添加的控件数组通过left和top属性确定其在窗体的位置并将visible属性设置为true
第五章 数组(4+2学时）
5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 数组的概念 静态数组及声明 动态数组及声明 数组的基本操作 控件数组 自定义数据类型 常用算法（二） 常见错误

Visual Basic程序设计实教程vb05( 在程序中使用数组)

Visual Basic程序设计实教程vb05( 在程序中使用数组)
说明 本案例中使用数组后,好处在于: 1. 变量的定义得以简化 2. 在各浏览按钮中的主要代码完全一样,为以后的内容奠定了基础.
5.7 控件数组
控件数组:
• 具有相同名称的多个同类控件的集合。

控件数组的标识 控件数组的创建:
控件Index属性
1、对窗体上已经画好的一个控件进行先复制再粘贴； 2、将窗体已经画好的多个名称不同的控件改名为同一名称 3、不管用何种方法，创建控件数组时都将弹出如图所示的提 示框，当选“是”时则创建了控件数组。
第5章
在程序设计使用数组
师生共勉
人生有一道难题，那就是如 何使一寸光阴等于一寸生命
目录
5.1 问题引入与问题分析 5.2 数组的概念 5.3 一维数组的声明 5.4 给一维数组赋值的函数—Array函数 5.5 数组的应用 5.6 用一维数组存放员工工资信息 5.7 控件数组 5.8 控件数组的应用 5.9 在VB案例中使用控件数组 5.10 控件数组的应用 5.11 二维数组 5.12用二维数组存放员工信息 师生共勉 5.13 本章容易出错的地方 人生有一道难题，那就是如 何使一寸光阴等于一寸生命 5.14 课堂实训与课后练习
数组的应用-引例2
代码编写:
Private Sub Form_Load() m_strArrWeek(1) = "星期一" m_strArrWeek(2) = "星期二" … i = Weekday(Date, vbMonday) lbl_Week.Caption = m_strArrWeek(i) End Sub Private Sub Timer1_Timer() i=i+1 If i > 6 Then i = 0 lbl_Week.Caption = m_strArrWeek(i) End Sub

vb 第五章 数组

vb 第五章 数组

b(0) b(1) b(2)
Print各元素赋值
Visual Basic程序设计/第5章 数组
23/52
3. 数组的输入和输出
（1）一维数组的输入和输出
Option base 1 Dim a(10) As Integer For i=1 To 10
• 在使用动态数组时，用ReDim语句指
出该数组的大小
保持
ReDim 数组名(下标1[,下标2…]) [As 类型]
一致
• ReDim语句中，下标可以是常量也可以是有 了确定值的变量
Visual Basic程序设计/第5章 数组
14/52
引例： 求一个班全体学生的平均成绩
Dim mark!(), n As Integer n=Val(InputBox(“请输入该班的学生人数"))
Visual Basic程序设计/第5章 数组
12/52
• 数组下标测试函数
Lbound(数组名[, 维]): 返回数组中指定维的下界 Ubound(数组名[, 维]): 返回数组中指定维的上界
Dim y(1 To 12, 5 To 20, -3 To 6)
Print Lbound (y, 1), Ubound (y, 1)
2. 多维数组 Dim 数组名(下标1,下标2 [,下标3,…] ) [ As 类型 ]
[ 说明 ]
•下标：必须为常数，不可以为表达式或变量 •下标个数决定了数组的维数。在VB中允许最多有60维的
数组 • 每一维的大小: 上界 - 下界 + 1 • 数组的大小为每一维大小的乘积
Visual Basic程序设计/第5章 数组
Next i For Each x In a

VB语言程序设计教程第05章 数组与过程

VB语言程序设计教程第05章 数组与过程

12
5.1 数组
2．选择法排序。其思路是：

第一轮：将第1个数与其后的每个数进行比较，若第1个数大， 则将两数对调。经过第一轮比较对调后，所有数中的最小数被 放到了第一个位置； 第二轮：将第2个数与其后的每个数进行比较，若第2个数大， 则将两数对调。经过第二轮比较对调后，将所有数中第2小的 数放到了第二个位置； ……
a(i) = 2 * i - 1
Next i
6
5.1 数组
（3）用Array( )函数为数组整体赋值。 格式：Array(元素值列表)。 例如： Dim a '定义变体型变量a a = Array(3,4,7,2,5,9) '将变量a转变成具有6个元素的数组a，并赋值 数组元素a(0)、a(1)、...a(5)的值分别为：3、4、7、2、5、9。 （4）整个数组的复制。需要用循环来实现。例如，可以将数组a 的所有元素赋给另一个数组b：
Dim a(1 To 10) As Integer, i As Integer For i = 1 To 10
a(i) = Val(InputBox("请输入第" & i & "个数", "数组输入"))
Next i
（2）将数组元素赋值为有规律的数列。例如，
Dim a(1 To 10) As Integer, i As Integer For i = 1 To 10
Dim a%(1 To 10),b%(1 To 10) For i = 1 To 10 b(i) = a(i) Next i
7
5.1 数组
4．一维数组元素的输出

例如：在窗体上输出数组元素的值。

vb6.0高清教程系列 第05章 数组(共九章)

vb6.0高清教程系列 第05章 数组(共九章)
第五章 数 组
5.1 概 述
数组的概念：数组并不是一种数据类型，而 是一组相同类型数据的集合。用一个统一的名字 （ 数组名） 代表逻辑上相关的一批数据，每个元 素用下标变量来区分；下标变量代表元素在数组 中的位置。
其表示形式： A(1)，A(10) X(1,1), Y(0,0,0), X1(1,10), Y(1,2,5) X(2,10)
例5.1
5.2.4 一维数组的应用
一、分类统计
例5.2 在 例 5.1中 如 果 还 要 统 计 0~9， 10~19， 20~20， …. 80~89，90~99分数段及100分的学生人。 则可另用数组bn来存各分数段的人数，并用bn(0)存 0~9分的人数，bn(1)存10~19分的人数，…bn(9)存90~99 分的人数，bn(10)存100分的人数。
5.2.3 一维数组的基本操作
1. 可通过循环给数组元素的初值 For i = 1 To 10 A(i)=1 Next i 'A数组的每个元素值为1
2. 数组的输入 For i = 1 To 4 For j = 1 To 5 sc(i, j) = InputBox("输入sc(" &i & "," & j & ") 的值") Next j Next I
1．选择法排序
算法思想： 1）对有n个数的序列（存 放在数组a(n)中），从中选 出最小（升序）或最大（降 序） 的数， 与第1个数交换 位置； 2） 除第1 个数外， 其余 n-1个 数 中 选 最 小 或 最 大的 数，与第2个数交换位置； 3）依次类推，选择了n-1 次后，这个数列已按升序排 列。
3．Split函数 使用格式： Split(<字符串表达式> [,<分隔符>]) 说明： 使用Split函数可从一个字符串中，以某个指定符号为分隔 符，分离若干个子字符串，建立一个下标从零开始的一维数 组。 补充例： 使用文件框，通过编程实现大量数据的输入 输入一系列的数据，存放在数组中。对输入的数据允许 修改和自动识别非数字数据。 分析： 利用文本框实现大量数字串的输入和编辑的功能； 通过编程将输入的数字串以逗号为分界符分离出各项数据； 对非数字： 数组名(下标1，下标2)
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

示例3 第三步： 示例3：第三步：求最大值及出现次数
iMax=A(0):P=0 For I=1 To 25 if A(I)>iMax Then iMax=A(I) P=I End if Next I Print iMax, Chr(p+65) End Sub
Visual Basic程序设计
主要内容 (main contents)
数组的声明
方法一: 数组名(下标上界) 方法一 Dim 数组名(下标上界) As 数据类型
例 如
Dim A(4) as Integer
A(0) A(1) A(2) A(3) A(4)
0
0
0
0
0
默认下标从0 开始,数值型数组默认值为0, 默认下标从0 开始,数值型数组默认值为0,字符为空 0,字符为空
16
0 2 1 0 1 0 2 1 0 1 0 3 2 1 0 1 0 0 0 1
X=1 X=2 X=3 X=4 X=5 X=6
X=9
Private Sub Command1_Click() Dim A(9) As Integer For i = 1 To Len(Text1.Text) x = Val(Mid(Text1.Text, i, 1)) A(x) = A(x) + 1 Next i For j = 0 To 9 Print j; "的出现次数 的出现次数="; A(j) 的出现次数 Next j End Sub
分析： 利用数组的下标和循 环相结合，不但能保 存所有数据， 而且编 程更方便。
10
Visual Basic程序设计
作业评讲
2、定义一个 个元素的数组，将10个[0~100]的 定义一个10个元素的数组 定义一个 个元素的数组， 个 的 随机数赋值给数组的各个元素。求出10个随机 随机数赋值给数组的各个元素。求出 个随机 数的平均值，然后找出最接近平均值的元素。 数的平均值，然后找出最接近平均值的元素。
…
一维数组应用
对数组中的元素求和及平均值 求数组中的最大值及所在位置 随机产生N 随机产生N个”A”～”Z”组成的字符串，计算 组成的字符串， 其中出现频率最高的字符及出现的次数 将包含任意数量元素的一维数组A 将包含任意数量元素的一维数组A的所有元素赋 予随机整数，并在窗体上显示， 予随机整数，并在窗体上显示，然后将它们按相 反顺序排列，并在窗体上显示成另外一行。 反顺序排列，并在窗体上显示成另外一行。
多维数组的声明及使用（重点） 多维数组的声明及使用（重点） 动态数组（重点） 动态数组（重点） 与数组有关的函数（难点） 与数组有关的函数（难点） 控件数组
26
Visual Basic程序设计
5.2 多维数组
定义： 定义：
一维数组：只有一个下标的数组，如X(8)。 多维数组：有两个或以上下标的数组，如X(5,4)
分析： 分析：
产生数组a(1 ① 产生数组a(1 To 10) ② 对数组求和 求平均值 ③ 怎样才是最接近平均值的数？ 怎样才是最接近平均值的数？
11
Visual Basic程序设计
①
产生数组a(1 To 10) 产生数组
Private Sub Command1_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Print "a(" & i & ")=" & a(i); " "; s = s + a(i) Next i aver = s / 10 Print Print "平均值："; aver
13
Visual Basic程序设计
作业评讲
14
Visual Basic程序设计
作业评讲： 作业评讲：分类统计数字的出现次数
分别统计文本框Text1中各个数字出现的次数
15
Visual Basic程序设计
分类统计数字的出现次数 A(0) 0 31415926535897932384626
A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9)
分析： 分析： 1、主对角线和次对 角线上的元素值为1 角线上的元素值为1 其余元素值为0 2、其余元素值为0
32
Visual Basic程序设计
方阵的应用
Private Sub Form_Click() Dim a(6, 6) As Integer For i = 0 To 6 For j = 0 To 6 If i = j Or i + j = 6 Then a(i, j) = 1 Else a(i, j) = 0 End If Print a(i, j); Next j Print Next i End Sub
8
数组的操作
初始化
For I=0 to 4 A= Int(100*Rnd)
数组的输出
For I=0 to 4
×
Print A Print A(I) B=B+A(I) Next I
×
A(I)=Int(100*Rnd) Next I
Visual Basic程序设计
作业评讲
1、随机产生30~100（包括30、100）的10 个正整数，求最大值、最小值、平均值， 并显示数组的值和结果。
数组下标下界默认值的定义
Option Base 1 ‘设置该模块中所有数组的默认 下界为1。
该语句的位置？ 该语句的位置？
例 如：
Option Base 1 Dim A(4)as Integer
A(1) A(2) A(3) A(4)
0 0 0 0
Visual Basic程序设计
数组的操作
数组的初始化 数组输入、 数组输入、数组输出 求数组中的最大（最小）元素及下标、 求数组中的最大（最小）元素及下标、 求和、平均值、 求和、平均值、排序和查找
示例3 示例3
A(0) A(1) A(2) A(3) A(4) A(5) ..
A B B CH J GY F OU I
A B C D E F
..
1 2 1 0 0 0 ..
第二步：计数 第二步： For I=1 To N Ch=Mid(S ,I, 1) J= Asc(Ch)-Asc(“A”) Asc(Ch)A(J)=A(J)+1 Next I
12
Visual Basic程序设计
②求数组中的每一个元素与平均值的差值 d = Abs(a(1) - aver) p=1 For i = 2 To 10 If Abs(a(i) - aver) < d Then d = Abs(a(i) - aver) p=i End If 提问：这里能否用a(i) ？ Next i Print "最接近平均值的数是："; "a("; p; ")="; a(p) Print "最接近平均值的数是第"; p; "个数:"; a(p) End Sub
示例2 示例2：求对数组中的最大值及所在位置
iMax=A(1) P=1 ‘P表示该元素位置 For i=2 to 10 if A(i)>iMax Then iMax=A(i) P=i End if Next I Print iMax, P End Sub
示例3 随即产生N 示例3：随即产生N个“A” “Z”组成的字符 串，计算机中出现频率最高的字符及次数
声明方法： 声明方法：
Dim 数组名(第一维上界，第二维上界) As 数据类 例如： 例如：Dim A(1,4) as Integer Dim 数组名(第一维下界 To 上界，第二维下界 to 上界) As 数据类型 例如： 例如：Dim A( 0 to 1, 0 to 4)as Integer
27Biblioteka 组的声明数组名( 上界) 方法二: 方法二 Dim 数组名(下界 To 上界) As 数据类型
例 如
Dim A(2 to 5) as Integer
数组名A包含了4个元素（变量），分别是 数组名A包含了4个元素（变量），分别是 ），
A(2) A(3) A(4) A(5)
0
0
0
0
Dim A(-2 to 5) as String*3
示例1 示例1：对数组中的元素求和及平均值
Dim A(10) as Integer Private Sub Command1_Click() Dim I as Integer，Sum as Integer Integer， Sum=0 For I=0 To10 Sum=Sum+A(i) Next I Print Sum End Sub
Visual Basic程序设计
分类统计字母的出现次数
A(0) A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9)
17
0 0 0 0 0 0 0 0 0 0
The quick brown fox jumps over a lazy dog Dim A(25) As Integer For i = 1 To Len(Text1.Text) x = Asc(UCase(Mid(Text1.Text, i, 1))) - 65 If x>=0 And x<=25 Then A(x) = A(x) + 1 Next i For j = 0 To 25 Print Chr(j+65);”的出现次数 的出现次数=”;A(j) 的出现次数 Next j
示例2 示例2
A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10 )