VB语言教案省公开课一等奖全国示范课微课金奖课件.pptx

第

6;利用数组能够有效地存放和处理成批数据

本章主要内容

;处理成批数据时，必须使用数组来处理。

比如，表示100个学生成绩，采取简单变量来表示：

s1，s2，s3，…s99，s100

采取数组来表示：t(0),t(1),t(2),…t(98),t(99)

t(k)(k=0,1,2,…99)为数组元素(或称下标变量)，它表示第k个学生成绩,k称为下标变量下标(默认情况下，下标从0开始)

由三行四列组成二维数组y，其12个下标变量可表示为

y(0,0)y(0,1)y(0,2)y(0,3)

y(1,0)y(1,1)y(1,2)y(1,3)

y(2,0)y(2,1)y(2,2)y(2,3)

只要有规则地改变下标值，就能够很方便地使下标变量(如t(k))成为所需要详细下标变量;6.2.1数组申明语句

使用数组之前，普通需要定义数组，方便让系统分配对应存放单元。格式为：

Dim数组名([下界1to]上界1[,[下界2to]上界2…])

[As数据类型]

功效：指定数组维数、各维上下界和数据类型



举例：

DimSum(10)AsLong‘下标号从0～10，共11个元素

DimAry(1to20)AsInteger‘下标号从1～20，共20个元素

Dimd(1to5,1to10)AsDouble‘定义二维数组

还能够使用Public、Static、Private等语句来申明数组;设定下界方法

OptionBase1‘设定下界为1

DimData(10)AsSingle‘下标号从1～10

6.2.2Array函数

使用Array函数能够为数组元素赋值

示例

DimDAsVariant‘定义数组名(变体类型)

D=Array(1,2,3,4)

执行结果：1→D(0)，2→D(1),3→D(2),4→D(3);例6.1输入某小组5个同学成绩，计算总分和平均分(取小数后一位)

本例利用InputBox函数来输入成绩，输入完成后经过计算，再采取Print直接在窗体上输出结果;PrivateSubForm_Load()

Dimd(5)AsInteger

DimiAsInteger,totalAsSingle,averageAsSingle

Show

Fori=1To5输入成绩

d(i)=Val(InputBox(请输入第Str(i)_

个学生成绩,输入成绩))

Nexti

total=0

Fori=1To5计算总分和平均分

total=total+d(i)

Nexti

average=total/5

Print总分：total

Print平均分：Format(average,##.0)

EndSub;(1)创建应用程序用户界面和设置对象属性

;功效要求：经过Array函数输入10个分数；单击“查找”按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签Label1上

OptionBase1