第四章数组.ppt

第四章 数组
网络与计算中心教研室
本章主要内容
数组的声明和使用
数组的概念
数组的方法和属性
数组的动态可调性
数组的基本操作
第 * 页
综合应用
引例1 ：随机产生200个ASCII字符，统计大写字母的出现频率。
数组的引入
Dim chr1$, i%, C%
For i = 1 To 200
Char1 = UCase(Chr(Int(Rnd() * 128)))
If Char1 >= "A" And Char1 <= "Z" Then C += 1
Next
MsgBox("字母字符(不区分大小写）的出现频率：“ & C)
P66
引例2 ：随机产生200个ASCII字符，分别统计大小写字母的出现频率。
数组的引入
Dim Char1 As ing , i As Integer
Dim a%, b%, c%, d%, e% , f%, g%, h%, i%, j%
Dim k%, l%, m%, n%, o% , p%, q%, r%, s%, t%
Dim u%, v%, w%, x%, y%, z%
For i = 1 To 200
Char1 = UCase(Chr(Int(Rnd() * 128)))
If Char1 = "A" Then a += 1
If Char1 = "B" Then b += 1
If Char1 = "C" Then b += 1
……
If Char1 = "Y" Then y += 1
If Char1 = "Z" Then z += 1
Next
MsgBox("各个字母（不区分大小写）的出现频率:A 是" & a & "，B是" & b & "，C是" & c & "，”……”)
引例3 ：随机产生200个ASCII字符，分别统计大小写字母和数字的出现频率。
Dim char1 As String, t As Integer, Order As Integer
Dim i As Integer, s As String
Dim arrC(0 To 25) As Integer
For i = 1 To 200
char1 = UCase(Chr(Int(Rnd() * 128)))
If char1 >= "A" And char1 <= "Z" Then
Order = Asc(char1) - 65
arrC(Order) += 1
End If
Next
For i = 0 To 25
MsgBox(Chr( i + 65) & “出现的频率为：” & arrC(i))
Next
数组是一组相同类型数据的集合。用一个统一的名字（数组名）代表相关的一组数据，数组中的每个数据（也称元素）用下标来区分。
下标
元素
A
A(0) A(2) A(4)
数组的概念
0
2
3
4
5
1
0
0
0
0
0
0
数组和循环语句结合使用，使得程序书写简洁，并且数组中的数据可反复使用。
1
2
3
4
5
P67
数组的分类
对象
数组声明格式：
Dim 数组名[数据类型说明符] (界限1[, 界限2]…) [As 数据类型]
界限的格式：[ 下界 To ]|上界
数据类型说明符：%、&、!、#、$
数组名：不可与同一作用域内的其它变量同名
界限：其个数决定数组的维度。
下界：必须是表达式0，一般默认。
上界：可以是常量、表达式或变量，但它们的值必须为大于等于0的整数。
数组的声明和使用
1．数组名的命名规则与变量的命名相同。
2．数组的大小（元素个数）：
每维大小(上界 – 下界