计算机基础vb4第5章

Visual

Basic程序设计教程2第五章数组数组的概念数组声明数组的常用操作可视化数组—列表框和组合框自定义类型及其数组综合应用自主学习—控件数组本章目录35.1

数组的概念5.1.1问题的提出例5.1

①求100个学生的平均成绩,程序如下：本章目录XXmarkaver

=0For

i

=

1

To

100mark=InputBox("输入学生成绩")aver=aver+markNext

iaver

=aver

/100aver

=0For

i

=

1

To

100mark=InputBox("输入学生成绩")aver=aver+markNext

iaver

=aver

/100上述代码带来问题（1）mark只能放一个学生的成绩，要实现统计高于平均分的人数。重复输入每人的成绩和不保证输入的一致性。（2）若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。由此引入了数组。上述代码带来问题mark只能放一个学生的成绩，要实现统计高于平均分的人数。重复输入每人的成绩和不保证输入的一致性。若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。由此引入了数组。②统计高于平均分的人数,如何实现？4数组5.1存放100人成绩：本章目录xxxxxx…xxxxmark(98)

mark(99)…mark(0)

mark(1)

mark(2)Dim

mark%(99)，aver!,

overn%,

i%

‘声明数组aver=0 :

overn

=

0For

i=0

To

99

'输入成绩，求分数和mark(i)=InputBox("输入学生的成绩")aver=aver+mark(i)Next

iaver=aver/100

'求100人的平均分Dim

mark%(99)，aver!,

overn%,

i%

‘声明数组aver=0 :

overn

=

0For

i=0

To

99

'输入成绩，求分数和mark(i)=InputBox("输入学生的成绩")aver=aver+mark(i)Next

iaver=aver/100

'求100人的平均分For

i=0

To

99

'统计高于平均分的人数If

mark(i)

>

aver

Then

overn

=

overn

+

1Next

i5数组:一般由相同类型的变量的集合，

系统为其分配了连续的存储区域。概念：数组名代表逻辑上相关的一批数据；下标表示该数组中各个元素顺序号；下标变量表示数组中各个元素和循环语句结合使用，程序书写精炼本章目录5.1.2

数组的概念6例

Dim

mark(99)

As

Integer声明:一维整型数组mark，共有100个元素；下标:范围为0

To

99；注意：1.每个数组元素有一个唯一的顺序号即下标，下标不能超出数组声明时的上、下界范围，否则会产生:“索引超出了数组界限”。

2.数组元素的使用规则与同类型的简单变量相同。各元素:mark(0)，mark(1)，…，mark(99)；mark(i)表示由下标i的值决定是哪一个元素。注意：1.每个数组元素有一个唯一的顺序号即下标，下标不能超出数组声明时的上、下界范围，否则会产生:“索引超出了数组界限”。

2.数组元素的使用规则与同类型的简单变量相同。本章目录75.2数组声明1.一维数组声明形式：Dim

数组名(下标上界)[As

类型]下标上界为：常数下标下界为：0一维数组的大小为：下标上界+1。例

Dim a(10)

As

Integer，st(5) As

String本章目录作用：声明了数组名、类型、维数、数组大小在内存分配一块连续的区域。作用：声明了数组名、类型、维数、数组大小在内存分配一块连续的区域。82.多维数组声明Dim

数组名(下标1，下标2…)

[As

类型]下标数：决定了数组的维数每一维的大小：上界+1；数组的大小：每一维大小的乘积。例

Dim

x(2,4)

As

Long声明了一个长整型的二维数组x；共占据3×5个长整型变量的空间x(0,0)x(0,1)x(0,2)x(0,3)x(0,4)x(1,0)x(1,1)x(1,2)x(1,3)x(1,4)x(2,0)x(2,1)x(2,2)x(2,3)x(2,4)本章目录90123450,00,10,20,31,01,11,21,32,02,12,22,33,03,13,23,34,04,14,24,35,05,15,25,3例如，如下数组声明：Dim

a(5) As

IntegerDim

b(5,3) As

IntegerDim

c(2,5,3) As

Integer例如，如下数组声明：Dim

a(5) As

IntegerDim

b(5,3) As

IntegerDim

c(2,5,3) As

Integera（5）b（5,3）c（2,5,3）103.

动态数组及声明建立动态数组要分两步：用Dim语句声明数组，但不能指定数组大小Dim

数组名(

)

As 数据类型用ReDim语句动态地分配元素个数ReDim

数组名 (下标[,下标2…])例：Dim

s

(

)

As

SingleSub

Form_Load(

)…ReDims(4，8)…End

Sub本章目录11定义动态数组大小注意： Dim

是说明语句，可出现在程序的任何地方，而ReDim

是执行语句，只能在过程中在过程中可多次使用ReDim语句来改变数组的大小，但不能改变维数和类型可在ReDim后加Preserve参数用来保留数组中的数据，若使用Preserve参数后，只能改变最后一维的大小。例5.2编一个程序，显示有n个数的非波那契数序列本章目录125.3数组的基本使用和排序5.3.1

数组的输入通过TextBox控件或InputBox函数逐一输入例Dim

sb(3,4)

AS

IntegerFor

i

=

0

To

3For

j

=

0

To

4sb(i,j)

=

InputBox("输入"

&

i &“,"

&

j &

"元素")Next

jNext

i本章目录缺点：每次只能输入一个元素的值缺点：每次只能输入一个元素的值132.Array

函数为一维数组赋初值组没有维数，也没有大小，作为数组使用；常量列表以逗号分隔。数组的下界和上界通过LBound

和UBound

函数获得。Dim

x，i% ‘或

Dim x()

，i%x

=

Array(1,

2,

3,

34,

65,

11)For

i

=

LBound(x)

To

UBound(x)Print

x(i);Next

i形式如下：数组变量名=Array（常量列表）功能：将常量列表的各项值分别赋值给一个一维数组的各元素。其中：数组变量名必须声明为Variant、数Dim

x，i% ‘或

Dim x()

，i%x

=

Array(1,

2,

3,

34,

65,

11)For

i

=

LBound(x)

To

UBound(x)Print

x(i);Next

i145.3.2数组的输出实现思路：

方阵形成规律：sc(i,

j)=i

*

5+j

控制输出形式：控制每个元素输出的起始位和宽度：Tab函