原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
林卓然VB教程课件数组第6章教案
第
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 数组名([下界1 to]上界1[,[下界2 to]上界2…])
[As 数据类型] 功能：指定数组的维数、各维的上下界和数据类型
举例： Dim Sum(10) As Long ‘下标号从0～10，共11个元素 Dim Ary(1 to 20) As Integer ‘下标号从1～20，共20个元素 Dim d(1 to 5,1 to 10) As Double ‘定义二维数组
还可以使用Public、Static、Private等语句来声明数组 ; 设定下界的方法 Option Base 1 ‘设定下界为1 Dim Data(10) As Single ‘下标号从1～10
6.2.2 Array函数
使用Array函数可以为数组元素赋值
示例
Dim D As Variant ‘定义数组名(变体类型)
D = Array(1, 2, 3, 4)
执行结果：1→D(0)，2→D(1), 3→D(2), 4→D(3); 例6.1 输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)
本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果; Private Sub Form_Load()
Dim d(5) As Integer
Dim i As Integer, total As Single, average As Single
Show
For i = 1 To 5 输入成绩
d(i) = Val(InputBox(请输入第 Str(i) _
个学生的成绩, 输入成绩))
Next i
total = 0
For i = 1 To 5 计算总分和平均分
total = total + d(i)
Next i
average = total / 5
Print 总分： total
Print 平均分： Format(average, ##.0)
End Sub ; (1)创建应用程序的用户界面和设置对象属性 ; 功能要求：通过Array函数输入10个分数；单击“查找”按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签Label1上
Opt
文档评论（0）