vb数组课件.ppt

第七章
数组
1
第七章数组
本章要点:
•数组的基本概念
•固定大小的数组的定义
•动态数组的定义
•数组的操作
•控件数组
2
内容提要
数组的概念
数组的声明
与数组有关的函数和语句
控件数组
3
第 7 章
数组
本章主要内容
引言
一维数组
二维数组
动态数组
控件数组
4
1、为什么使用数组
之前程序中使用的变量都是单个定义的,每个变量都有一个名字,每个变量存储一个数据,这种变量称为简单变量。例如:定义整型变量a,a只能存放一个整数。
如果要对一批数据进行输入,输出或统计等处理,定义多个变量来存储一批数据不如定义数组方便有效。
【例7-1】设计一个程序,将n个人某门课程的成绩输入计算机,求平均成绩和高于平均成绩的人数。
引言
5
如果使用简单变量存放数据,以5个人的成绩为例,程序代码如下:
Private Sub Form_Click()
Dim N%, S!, Ave!, A1!, A2!,A3!,A4!,A5!
A1=Val(InputBox("Enter A1 "))
……'此处省略了部分语句
A5=Val(InputBox("Enter A5 "))
S=A1+A2+A3+A4+A5
Ave=S / 5
IF A1>Ave Then N=N+1
……'此处省略了部分语句
IF A5>Ave Then N=N+1
Print Ave,N
End Sub
程序不能这样编!
如果要统计10个人的成绩呢?
6
引言(续)
如果要统计10个人的平均成绩和高于平均成绩的人数,上述语句的条数就要增加10条。可想而知,这样的程序不但代码长且质量差。
如果使用数组来存储10个人的数据,此题就可以使用循环结构实现,程序运行结果如图所示:
7
程序代码如下:
Private Sub Form_Click()
Dim N%, i%, S!, Ave!, A(1 To 10) As Single 'A是数组名
For i = 1 To 10
A(i) = Val(InputBox("Enter A" & i))
Print A(i);
S = S + A(i)
Next i
Print
Ave = S / 10
For i = 1 To 10
If A(i) > Ave Then N = N + 1
Next i
Print "平均成绩为:"; Ave
Print "高于平均成绩的人数:"; N
End Sub
8
数组的基本概念
定义: 一组性质相同的有序的数
例: 多项式y=a0+a1x+a2x2+a3x3+…+anxn
系数A=(a0,a1,a2,…,an)可以构成一个数组
表示: A(0) A(1) A(2) ... A(n)
例: 全班40名同学的英语成绩
G(1) G(2) G(3) …… G(40)
所有班级(如6个班,每班40人)同学的成绩
表示1: G(1) G(2) G(3) … G(240)
表示2: G(1,1) G(1,2) … G(1,40)
G(2,1) G(2,2) … G(2,40)
…
G(6,1) G(6,2) … G(6,40)
9
数组的概念
数组是保存一组具有相同名字和类型的数据的集合。
用统一的名字代表逻辑上相关的一批数据,每个元素用下标来区分。
数组必须先声明后使用
声明时指定数组名称、类型、维数和大小。
数组声明时下标的个数确定数组的维数,VB中的数组最多60维。
按声明时数组的大小是否确定分为静态数组和动态数组。
Dim student(1 to 30) as String
10