VB第6章数组.pptx

第六章数组
数组的概念
静态数组
动态数组
数组的基本操作
控件数组
自定义数据类型
常用算法(2)
引例
方法一:用一个变量依次存放第1,2,……100个同学成绩
(1) 求一个班100个学生的平均成绩
mark = InputBox("输入"+str(i)+"位学生的成绩")
For i = 1 to 100
Next i
aver = 0
aver = aver + mark
aver = aver / 100
Dim i, mark, aver
Dim i%, mark!, aver!
问题:求一个班100个学生的平均成绩,统计高于平均分的人数
(2) 统计高于平均分的人数
已知平均成绩aver,高于平均分的人数用overn表示
For i = 1 to 100
mark = InputBox("输入"+str(i)+"位学生的成绩")
Next i
Dim n%
If mark > aver Then n = n + 1
方法二:定义100个简单变量
Dim mark1%, mark2%, •••, mark99%,mark100%
Mark1 = InputBox("输入第1个学生的成绩")
Mark2 = InputBox("输入第2个学生的成绩")
•••
Mark99 = InputBox("输入第99个学生的成绩")
Mark100 = InputBox("输入第100个学生的成绩")
aver = (mark1 + mark2 + •••+ mark99 + mark100)/100
If mark1 > aver Then overn = overn + 1
If mark2 > aver Then overn = overn + 1
•••
If mark99 > aver Then overn = overn + 1
If mark100 > aver Then overn = overn + 1
用数组统计高于平均分的人数
For i = 1 To 100
mark(i) = InputBox("输入" & i & "位学生的成绩")
sum = sum + mark(i)
Next i
aver = sum /100
overn = 0
For i = 1 To 100
if mark(i) > aver Then overn = overn + 1
Next i
aver = 0
Print aver, overn
Dim mark(1 To 100) As Single
.
.
.
x
数组a
a(1)
a(2)
a(3)
a(4)
a(5)
Dim x As integer
Dim a(1 to 5) As Integer
普通变量x=2
数组元素a(1)=2
x=x+2
a(1)=a(1)+2
什么是数组?
数组的概念
数组:把一组具有同一名字、不同下标的下标变量称为
数组,它是一组变量的集合
下标:某个数组元素在数组中的位置,用下标表示该数组
中的各个元素
例如:a(1) :a----数组名
1----下标
a1-----------------错误
数组必须先声明后使用
数组
静态数组
动态数组
(声明时确定了大小的数组)
(声明时没有确定大小的数组)
按数组占用存储空间的方式不同,分为两种数组:
静态数组和动态数组。两种数组的定义方法不同,
使用方法也略有不同。
静态数组

Dim 数组名(下标上界) [As 类型]
定义数组时,VB提供了两种格式:
格式1:

Dim 数组名(下标1,下标2[,下标3,…]) [As 类型]