数 组VB
- 格式：ppt
- 大小：146.50 KB
- 文档页数：16
下载文档原格式
合集下载
VB数组与记录1
80
83 70
68
90
86
（2）用循环语句
例： Dim i As Integer , Score(6) As Integer
For i = 1 To 6 score(i) = InputBox("请输入第" & i & "个数组元素")
一维数组使用实例
1 找出某门课中最高分数 算法： 设第一个人成绩最高，然后所有成绩依次 与之比较，比他大时用新的最高分代替原来 的最高分
Next i
For i = 1 To n
Print a(i);
Next i
二维数组(有两个下标的数组)
二维数组用于处理象表格这样的数据。 例如：全班各门课成绩表：
姓名 数学 物理 计算机 英语 李翰 87.5 89.0 91.5 88.5 韩旭 83.5 76.0 65.5 90.0 白洁 56.0 64.0 87.5 78.0 汪洋 84.0 55.0 88.0 65.5
由上例可以看出，二维数组intN的元素个数为：3×4=12，和一维 数组一样，也可用Option Base 1 语句，让下标从1开始，则上例数 组元素个数即为：2×3＝6。
二维数组也可任意指定上下界，格式与一维数组类似。
例：Dim intN(-2 To 1 , 3 To 6) As Integer 定义了一个有(1-(-2)+1) ×(6-3+1)=16个元素的二维数组。
Const n = 15
Dim a(1 To n) As Integer, work As Boolean
Dim i As Integer, j As Integer, x As Integer
VB_数组
功能：声明一个二维数组或多维数组并分配相应的存储单元。
说明：参数与一维数组完全相同。下标的个数决定了数组的 维数，多维数组最大维数为60。每一维的大小为：上界－下 界＋ 1 ；数组的大小（数组元素的总个数）为每一维大小的 乘积。 例如：Dim a(2,3) As Single
二维数组在内存的存放顺序是“先行后列”。例如数组a 的各元素在内存中的存放顺序是：
数组声明语句完成四个任务：
① 建立数组名。 ② 建立数组的数据类型。 ③ 指定数组中元素的数目。 ④ 初始化数组中每个元素的值(数值数组元素为 0，字符串数组元素为空字符串，Variant数组元 素的值为特别值Empty)。
4.1.2 静态数组和动态数组
1. 静态数组声明 在声明时确定了大小的数组称为静态数组 (1) 一维数组的声明 (无隐式声明) Dim 数组名([下界 To] 上界) [As 数据类型] 或： Dim 数组名[数据类型符] ([下界 To] 上界) 例：Dim a(1 To 10) As Integer 1是下标的下界 ' 声明了a数组有10个元素 数组元数的数据类型
2. 数组元素初始化 系统默认的数组初值：0，空字符串，Empty。 若需给数组的各元素赋具体值，常用循环语句实现。 例如： Dim A(10) As Integer
Dim i As Integer
For i=0 To 10 A(i)= i * i Next i
4.2.2 数组的输入、输出和复制
数组分类: VB中的数组，按不同的方式可分为以下几类： 按数组的大小（元素个数）是否可以改变来分为：静 态(定长)数组、动态（可变长）数组。 按元素的数据类型可分为：数值型数组、字符串数组、 日期型数组、变体数组等。 按数组的维数可分为：一维数组、二维数组、多维数 组。 对象数组：菜单对象数组、控件数组。
VB数组
(0)
1 A(1) 2 A(2)
3 A(3)
数组名表示内存首地址， 4 A(4)
是地址常量
5 A(5)
6 A(6)
编译时分配连续内存 内存字节数=数组元素个数*
sizeof(元素数据类型)
说明：
1．数组的元素个数为：上界-下界+1。 2.缺省<下界>为0，若希望下标从1开始，可在模块的通用部分 使用Option Base语句将设为1。其使用格式是：
A(i)=A(10-i+1) A(10-i+1)=t Next I
三、 排序问题(P196例8.2)
例 用冒泡法对10个数排序
排序过程： （1）比较第一个数与第二个数，若为逆序a[0]>a[1]，则交换；然
后比较第二个数与第三个数；依次类推，直至第n-1个数和第 n个数比较为止——第一趟冒泡排序，结果最大的数被安置在 最后一个元素位置上 （2）对前n-1个数进行第二趟冒泡排序，结果使次大的数被安置在 第n-1个元素位置 （3）重复上述过程，共经过n-1趟冒泡排序后，排序结束
8.4 数组其他操作
前面的数组定义都是n在=I运np行ut前Bo，x$如(“需输要入在n的运值行：时”定)义数组 的大小，可通过下述两种Re方Di法m 解Ar决r2：(n)
1)用ReDim语句定义数组； 2）使用动态数组。（后讲） 一、数组的上、下界函数 Lbound(数组[，维]) Ubound(数组[，维]) 功能：分别返回一个数组中指定维的下界和上界。 说明：两个函数一起使用可确定一个数组的大小。
个元素，也可以复制到一个一维F数or组j中=1的t某o 个5 元素，
反之亦然。 输出
Print a(i,j);””;
1 A(1) 2 A(2)
3 A(3)
数组名表示内存首地址， 4 A(4)
是地址常量
5 A(5)
6 A(6)
编译时分配连续内存 内存字节数=数组元素个数*
sizeof(元素数据类型)
说明：
1．数组的元素个数为：上界-下界+1。 2.缺省<下界>为0，若希望下标从1开始，可在模块的通用部分 使用Option Base语句将设为1。其使用格式是：
A(i)=A(10-i+1) A(10-i+1)=t Next I
三、 排序问题(P196例8.2)
例 用冒泡法对10个数排序
排序过程： （1）比较第一个数与第二个数，若为逆序a[0]>a[1]，则交换；然
后比较第二个数与第三个数；依次类推，直至第n-1个数和第 n个数比较为止——第一趟冒泡排序，结果最大的数被安置在 最后一个元素位置上 （2）对前n-1个数进行第二趟冒泡排序，结果使次大的数被安置在 第n-1个元素位置 （3）重复上述过程，共经过n-1趟冒泡排序后，排序结束
8.4 数组其他操作
前面的数组定义都是n在=I运np行ut前Bo，x$如(“需输要入在n的运值行：时”定)义数组 的大小，可通过下述两种Re方Di法m 解Ar决r2：(n)
1)用ReDim语句定义数组； 2）使用动态数组。（后讲） 一、数组的上、下界函数 Lbound(数组[，维]) Ubound(数组[，维]) 功能：分别返回一个数组中指定维的下界和上界。 说明：两个函数一起使用可确定一个数组的大小。
个元素，也可以复制到一个一维F数or组j中=1的t某o 个5 元素，
反之亦然。 输出
Print a(i,j);””;
VB数组(经典程序讲解)
For i = 1 To 9 前>后 后 直接排序法 Pointer = i For j = i + 1 To 10 if Sort(Pointer) > Sort(j) Then Pointer:记录本轮最小元素的位置 记录本轮最小元素的 Pointer:记录本轮最小元素的位置 Pointer = j End if Next j 当前元素sort(i 元素sort( 若当前元素sort(i)不是本轮最 if i <> Pointer Then 元素sort(pointer) sort(pointer 小元素sort(pointer) Temp = Sort(i) Sort(i) = Sort(Pointer) 一轮只交换0次或1次 一轮只交换0次或1 Sort(Pointer) = Temp End if Text2 Text2 Text2 = Text2 & Str(Sort(i)) Next i
输出结果
回目录
P114
删除数列中重复的元素 数列中重复 例6-12 删除数列中重复的元素
1.在 数组中生成 1.在A数组中生成 N个数据 N:从 元素到数组尾UB UB- 变长的)作以下处理: 2.N: 2.N:从第1个元素到数组尾UB-1(变长的)作以下处理: 定位变量 ①A(N)在数组中有重复的数据吗?---定位变量:I A(N)在数组中有重复的数据吗?---定位变量: 在数组中有重复的数据吗 ②有：数组从I到(UB-1)：左移一个元素(删除) 一个元素( 数组从 到 UB-1)：左移一个元素 删除) 做Ub-1修改,重新定义 Redim Preserve A(Ub) Ub- 修改, N+1修改后， 修改后 ③无：做N+1修改后，对下一个元素开始处理 3.程序结构:多层循环+判断;结构清晰、 3.程序结构:多层循环+判断;结构清晰、语句简练 程序结构
vb之数组及其使用
控件数组：具有相同的名称和事件过程的一组同类型控件。
控件数组中的每一个控件具有一个唯一的索引值——index属性值， 它相当于数组的下标。
控件数组中的所有控件共享同一事件过程。例如，假定某个控件数组 含有5个命令按钮，则不管单击哪个标签，系统都会调用同一个Click 过程。由于每个按钮在程序中的作用不同，系统会将被单击的按钮的 Index属性值传递给过程，由事件过程根据不同的Index值执行不同 的操作。
下标可以是常量、变量或表达式，但表达式的值必须介于定义 数组时指定的下标的下界和上界之间，否则将导致“下标越界” 的错误。
例如：
A(1)=A(1)+B(1)
′取数组元素运算
A(i)=B(i)
′下标使用变量
B(i+1)=A(i+2)
′下标使用表达式
C(3,4)=100
′下标使用常量
二、数组的使用
数组元素的表示 ：数组名（下标1[,下标2…]）。 例如：a(1) 、 a(1,2) 只有一个下标的数组叫一维数组 有两个下标的数组叫二维数组，… ，最多可达60维。 数组在使用前必须先声明（数组名、类型、维数和数组的大小）。 数组声明时，指定了数组的维数和大小的数组称为静态数组。 没有 指定维数和大小的数组称为动态数组。前者大小固定，后者在使用前需 要重定义。
Next j
Next i
Print: Print "排序结果："
For i = 1 To N Print a(i);
Next i
思考:产生7个0-9之间的随机数如何改程序? [a,b]间的数=int (b-a+1)*rnd+a
数组的排序
2.选择法排序（升序）
❖ 选择法排序是最为简单且易理解的算法，其基本思想是每次将最小 （或最大）的数找出来放在序列的最前面。假设按递增法将有n个数 的数组A(1To n)进行排列，步骤为：
控件数组中的每一个控件具有一个唯一的索引值——index属性值， 它相当于数组的下标。
控件数组中的所有控件共享同一事件过程。例如，假定某个控件数组 含有5个命令按钮，则不管单击哪个标签，系统都会调用同一个Click 过程。由于每个按钮在程序中的作用不同，系统会将被单击的按钮的 Index属性值传递给过程，由事件过程根据不同的Index值执行不同 的操作。
下标可以是常量、变量或表达式，但表达式的值必须介于定义 数组时指定的下标的下界和上界之间，否则将导致“下标越界” 的错误。
例如：
A(1)=A(1)+B(1)
′取数组元素运算
A(i)=B(i)
′下标使用变量
B(i+1)=A(i+2)
′下标使用表达式
C(3,4)=100
′下标使用常量
二、数组的使用
数组元素的表示 ：数组名（下标1[,下标2…]）。 例如：a(1) 、 a(1,2) 只有一个下标的数组叫一维数组 有两个下标的数组叫二维数组，… ，最多可达60维。 数组在使用前必须先声明（数组名、类型、维数和数组的大小）。 数组声明时，指定了数组的维数和大小的数组称为静态数组。 没有 指定维数和大小的数组称为动态数组。前者大小固定，后者在使用前需 要重定义。
Next j
Next i
Print: Print "排序结果："
For i = 1 To N Print a(i);
Next i
思考:产生7个0-9之间的随机数如何改程序? [a,b]间的数=int (b-a+1)*rnd+a
数组的排序
2.选择法排序（升序）
❖ 选择法排序是最为简单且易理解的算法，其基本思想是每次将最小 （或最大）的数找出来放在序列的最前面。假设按递增法将有n个数 的数组A(1To n)进行排列，步骤为：
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
该数组可以存放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讲数组第 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程序设计--数组
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程序的设计数组
第5章 数组
5.1 数组的概念 5.2 数组的基本操作 5.3 动态数组 5.4 控件数组 5.5 程序示例
盐城工学院 Visual Basic 程序设计
数组概念的引出
在科学计算和数据处理中，要用到成批数据，这些数据类型相 同，且彼此间存在一定的顺序关系。为处理方便，可考虑用数组 进行存储。
数组并不是一种新的数据类型，而是一组相同类型的有序变量 的集合。在程序中使用数组的最大好处是用一个数组名代表逻辑 上相关的一批数据，用下标区分该数组中的各个元素，和循环语 句结合使用，编写出的程序简洁精悍。
96
92
75
83
第四学期 80
78
81
86
81
二维数组 A(1,1) A(1,2) A(1,3) A(1,4) A(1,5) A(2,1) A(2,2) A(2,3) A(2,4) A(2,5) A(3,1) A(3,2) A(3,3) A(3,4) A(3,5) A(4,1) A(4,2) A(4,3) A(4,4) A(4,5)
⑥ Dim语句中的维界定义可以是常数、也可以为空。 下标为常数时为固定大小的数组，下标为空时则为动态 数组。
盐城工学院 Visual Basic 程序设计
⑦ 可以使用以下方法声明数组： • 建立公用数组，在模块的声明段用 Public 语句声明数组。 • 建立模块级数组，在模块的声明段用 Private 或Dim语句声
A、从0开始，等价于0 to 上界
B、从2开始
C、从1开始，等价于1 to 上界
D、等价于 n to 上界
2、使用下列语句定义数组，定义正确的是————。
Dim n as Integer Const m as Integer=5 Dim A(m) as Integer Dim B(1 to 6.3) as Integer Dim C(1 to 2+3) as Long Dim D(0 to n ) as single
5.1 数组的概念 5.2 数组的基本操作 5.3 动态数组 5.4 控件数组 5.5 程序示例
盐城工学院 Visual Basic 程序设计
数组概念的引出
在科学计算和数据处理中，要用到成批数据，这些数据类型相 同，且彼此间存在一定的顺序关系。为处理方便，可考虑用数组 进行存储。
数组并不是一种新的数据类型，而是一组相同类型的有序变量 的集合。在程序中使用数组的最大好处是用一个数组名代表逻辑 上相关的一批数据，用下标区分该数组中的各个元素，和循环语 句结合使用，编写出的程序简洁精悍。
96
92
75
83
第四学期 80
78
81
86
81
二维数组 A(1,1) A(1,2) A(1,3) A(1,4) A(1,5) A(2,1) A(2,2) A(2,3) A(2,4) A(2,5) A(3,1) A(3,2) A(3,3) A(3,4) A(3,5) A(4,1) A(4,2) A(4,3) A(4,4) A(4,5)
⑥ Dim语句中的维界定义可以是常数、也可以为空。 下标为常数时为固定大小的数组，下标为空时则为动态 数组。
盐城工学院 Visual Basic 程序设计
⑦ 可以使用以下方法声明数组： • 建立公用数组，在模块的声明段用 Public 语句声明数组。 • 建立模块级数组，在模块的声明段用 Private 或Dim语句声
A、从0开始，等价于0 to 上界
B、从2开始
C、从1开始，等价于1 to 上界
D、等价于 n to 上界
2、使用下列语句定义数组，定义正确的是————。
Dim n as Integer Const m as Integer=5 Dim A(m) as Integer Dim B(1 to 6.3) as Integer Dim C(1 to 2+3) as Long Dim D(0 to n ) as single
VB数组讲解ppt
A(2,0) A(2,1) A(2,2) A(2,3)
8
（二）动态数组的声明
动态数组是在数组声明时未指定数组的大小，需要使用时 才用Redim语句指定大小。
定义动态数组需要分以下两步进行：
1) 定义一个没有下标的数组。 Dim<数组名>( ) [As <数据类型]，…
2) 用ReDim语句分配数组的实际元素个数。 ReDim <数组名>(<维数定义>) [As <类型>]，…
12
三、 数组的基本操作
数组声明后，方可使用。可以对数组元素进行各种操作： • 对数组元素赋值 • 进行各种表达式运算、排序、统计、输出
使用数组可以缩短和简化程序。
13
（一）数组元素的输入
对数组元素的输入可以有多种方法：
• 可以使用文本框 • InputBox函数 • 赋值语句 • Array函数
如有二维数组定义： Dim A(-1 to 2，0 to 3) As Integer 第一维的大小为4，表示4行，第二维的大小为4，表示4列，则A数组中共 有4×4=16个元素
A(-1,0) A(-1,1) A(-1,2) A(-1,3)
A(0,0) A(0,1) A(0,2) A(0,3)
A(1,0) A(1,1) A(1,2) A(1,3)
Option Base n
其中n为设定的下标下界，该语句应放置在模块的通用声明部分 如有：Option Base 1
则在该模块中使用的数组下界均为1，若有个别数组下界不是1，可以使用 “下界 to 上界”的格式重设它的下界
Dim S（2） As Integer 等价于：Dim S（1 to 2） As Integer,共有2个元素
8
（二）动态数组的声明
动态数组是在数组声明时未指定数组的大小，需要使用时 才用Redim语句指定大小。
定义动态数组需要分以下两步进行：
1) 定义一个没有下标的数组。 Dim<数组名>( ) [As <数据类型]，…
2) 用ReDim语句分配数组的实际元素个数。 ReDim <数组名>(<维数定义>) [As <类型>]，…
12
三、 数组的基本操作
数组声明后，方可使用。可以对数组元素进行各种操作： • 对数组元素赋值 • 进行各种表达式运算、排序、统计、输出
使用数组可以缩短和简化程序。
13
（一）数组元素的输入
对数组元素的输入可以有多种方法：
• 可以使用文本框 • InputBox函数 • 赋值语句 • Array函数
如有二维数组定义： Dim A(-1 to 2，0 to 3) As Integer 第一维的大小为4，表示4行，第二维的大小为4，表示4列，则A数组中共 有4×4=16个元素
A(-1,0) A(-1,1) A(-1,2) A(-1,3)
A(0,0) A(0,1) A(0,2) A(0,3)
A(1,0) A(1,1) A(1,2) A(1,3)
Option Base n
其中n为设定的下标下界，该语句应放置在模块的通用声明部分 如有：Option Base 1
则在该模块中使用的数组下界均为1，若有个别数组下界不是1，可以使用 “下界 to 上界”的格式重设它的下界
Dim S（2） As Integer 等价于：Dim S（1 to 2） As Integer,共有2个元素
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
• Private Sub Command1_Click() • Dim s(20, 20) As Integer • Dim i%, j%, k%, n% • n = Val(Text1.Text) • Picture1.Cls • For i = 1 To n • s(i, 1) = 1: s(i, i) = 1 • Next i • For i = 3 To n • For j = 2 To i - 1 • s(i, j) = s(i - 1, j - 1) + s(i - 1, j) • Next j • Next i • For i = 1 To n • For j = 1 To i • Picture1.Print Spc(4 - Len(Str(s(i, j)))); s(i, j); • Next j • Picture1.Print • Next i
课前复习
• 数组用于存放一批性质相同的数据集合。 • Dim 数组名(下标 下标2…]) [As 类型] 数组名 下标1[,下标 下标 下标 类型
• 声明 数组名、维数、大小、类型(在内存分配一个连续的区域)
• 数组元素的赋初值 用Array函数 数组元素的赋初值:用 函数 • 数组的常用算法：求数组和，最值，位置和交换 数组的常用算法：求数组和，最值， 数组元素
• Private Sub Command1_Click() • Picture1.Cls • For i = 0 To 3 • For j = 0 To i • Picture1.Print a(i, j); " "; • Next j Picture1.Print • Next i • End Sub
运行界面： 运行界面：
3.数组排序（选择法） 3.数组排序（选择法） 数组排序
对已知存放在数组中的n个数 用选择法按递增顺序排序 个数， 按递增顺序排序。 例5.8 对已知存放在数组中的 个数，用选择法按递增顺序排序。 (1) 从n个数的序列中选出最小的数(递增 ，与第1个数交换位置； 个数的序列中选出最小的数 递增)，与第 个数交换位置； 个数的序列中选出最小的数 递增 个数交换位置 (2) 除第 个数外，其余 -1个数再按 的方法选出次小的数，与第 个数 除第1个数外 其余n- 个数再按 的方法选出次小的数 与第2个数 个数外， 个数再按(1)的方法选出次小的数， 交换位置； 交换位置； 重复(1)n-1遍，最后构成递增序列。 (P121) (3) 重复 - 遍 最后构成递增序列。 For i = 1 To n - 1 iMin= i For j = i+1 To n If iA(j) < iA(iMin) Then iMin = j Next j t= iA(i): iA(i) = iA(iMin) : iA(iMin) = t Next i
For i = 1 To n-1 ‘ 有n+1个数,进行n趟比较 For j = 0 To n-1-i ‘ 从0 ~n-1- i个元素进行两两比较,大数沉底 If a(j) > a(j + 1) Then ' 若次序不对，则马上进行交换位置 t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j ‘ 出了内循环,一轮排序结束,最大数已沉底 Next i
Private Sub Command2_Click() Dim a(), n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = UBound(a)
For i = 0 To n - 1 For j = 0 To n - 1 - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i
上机习题
• Dim a(1 To 10) As Integer, i%, maxa%, mina%, avera! • For i = 1 To 10 • a(i) = Int(Rnd * 71 + 30) • Next i • mina = a(1) • maxa = a(1) • avera = a(1) • For i = 2 To 10 • If a(i) > maxa Then maxa = a(i) • If a(i) < mina Then mina = a(i) • avera = avera + a(i) • Next i • For i = 1 To 10 • Print a(i); • Next i • Print • Print "max="; maxa, "min="; mina, "aver="; avera / 10
• Private Sub Command1_Click() • For i = 5 To 9 • s(i) = 0 • Next i • For i = 0 To 19 • j = stud(i) \ 10 • Select Case j • Case 0 To 5 • s(5) = s(5) + 1 • Case 9 To 10 • s(9) = s(9) + 1 • Case 6 To 8 • s(j) = s(j) + 1 • End Select • Next i Text1 = Val(s(5)): Text2 = Val(s(6)): Text4 = Val(s(8)): Text5 = Val(s(9)) • End Sub
原始数据 a(0) a(0) a(0) a(0) a(0) a(1) a(1) a(1) a(1) a(1) 图 1.3.25 a(2) a(2) a(2) a(2) a(3) a(3) a(3) a(4) a(4) a(5) 第 1 趟交换后 第 2 趟交换后 第 3 趟交换后 第 4 趟交换后 第 5 趟无交换 排序过程示意图 6 6 3 2 2 8 8 3 2 3 3 6 3 2 6 6 6 9 2 7 7 7 7 3 7 8 8 8 8 2 9 9 9 9 9 7
常用算法（ 常用算法（二）
分类统计:按照条件统计一批数据中每一类包含的个数. 1. 分类统计:按照条件统计一批数据中每一类包含的个数.
输入一串字符，统计各字母出现的次数，不区分字母大小写。 例5.6 输入一串字符，统计各字母出现的次数，不区分字母大小写。 分析： 分析： • 统计26个字母出现的个数，先声明一个具有26个元素的数组，每个 统计 个字母出现的个数，先声明一个具有 个元素的数组， 个字母出现的个数 个元素的数组 元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 元素的下标表示对应的字母，元素的值表示对应字母出现的次数。
Text3 = Val(s(7)):
上机习题
• • • • • • • • • Dim a%(3, 3), b%(3, 3) Private Sub Form_Load() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 36 + 35) b(i, j) = Int(Rnd * 41 + 100) Next j Next i End Sub
上机习题
• Private Sub Form_Click() • Dim a, i%, p% • a = Array(56, 78, 98, 88, 76, 78) • For i = LBound(a) To UBound(a) • p = a(i) \ 5 • Print String(p, "◆"), a(i) ◆ • Next i • End Sub
排序（冒泡法） 排序（冒泡法）
冒泡法排序在每一轮排序时找最小 递增次序)数的下标 在每一轮排序时找最小(递增次序 数的下标， 例5.9 冒泡法排序在每一轮排序时找最小 递增次序 数的下标，出了内 循环(一轮排序结束 再交换最小数的位置； 一轮排序结束)， 循环 一轮排序结束 ，再交换最小数的位置；而冒泡法排序在每一轮 排序时只要将第一个与其他几个比较 只要次序不对就交换 将第一个与其他几个比较， 次序不对就交换， 排序时只要将第一个与其他几个比较，只要次序不对就交换，出了内 循环，最小数已冒出。排序进行的过程见下表。 过程见下表 循环，最小数已冒出。排序进行的过程见下表。 (P121)
• Private Sub Command2_Click() • Picture2.Cls • For i = 0 To 3 • For j = i To 3 • Picture2.Print Tab(j * 6); b(i, j); • Next j
Picture2.Pr a(1) a(2) a(2) a(3) a(3) a(3) a(4) a(4) a(4) a(4) a(5) a(5) a(5) a(5) a(5) a(6) a(6) a(6) a(6) a(6) 第 1 趟交换后 第 2 趟交换后 第 3 趟交换后 第 4 趟交换后 第 5 趟无交换 2 2 2 2 2 8 6 3 3 3 3 6 9 9 6 6 6 9 3 6 9 7 7 3 8 8 8 8 8 2 7 7 7 9 9 7
图 1.3.25
排序过程示意图
Private Sub Command1_Click() Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = UBound(a) For i = 0 To n - 1 iMin = i For j = i + 1 To n If a(j) < a(iMin) Then iMin = j Next j t = a(i): a(i) = a(iMin): a(iMin) = t Next i For i = LBound(a) To UBound(a) Print a(i); Next i End Sub