下载此文档

第四章 数组(vb课件).ppt


文档分类:IT计算机 | 页数:约33页 举报非法文档有奖
1/33
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/33 下载此文档
文档列表 文档介绍
Visual Basic程序设计教程第4章数组 Visual Basic程序设计教程本章是数组介绍篇,主要应掌握数组的概念,掌握数组(一、二维)的定义及其引用,以及与数组有关的常用算法,如排序、查找、插入等。 Visual Basic程序设计教程2数组的概念主要内容1一维数组2二维数组3动态数组4 Visual Basic程序设计教程3例4_1 编程求某班10个同学某门课程考试的平均成绩分析:如果引用简单数据变量,则需要定义10个变量来存放10个同学某门课程的成绩,再求出平均成绩。程序代码如下:Private Sub Form_Click() Dim N%, Sum!, Ave!, a1!, a2!, a3!, a4!, a5!, a6!, a7!, a8!, a9!, a10! a1 = Val(InputBox("Enter a1 Number")) a2 = Val(InputBox("Enter a2 Number")) a3 = Val(InputBox("Enter a3 Number")) a4 = Val(InputBox("Enter a4 Number")) a5 = Val(InputBox("Enter a5 Number"))引例 Visual Basic程序设计教程4 a6 = Val(InputBox("Enter a6 Number")) a7 = Val(InputBox("Enter a7 Number")) a8 = Val(InputBox("Enter a8 Number"))a9 = Val(InputBox("Enter a9 Number"))a10 = Val(InputBox("Enter a10 Number"))Sum = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 Ave = Sum / 10 Print AveEnd Sub存在问题:程序很冗长,若延伸到求100、1000个同学?引例 Visual Basic程序设计教程5引例思考:如果能使用Ai ( i=1,2,…..10 ) 的形式?使用循环来写程序VB中表示下标变量就是通过定义数组来实现的。 Visual 、类型的数据组织在一起,并用一个统一的名字来作为标识。如a(1 to 5),表示在名为a的数组中包含5个数组元素。。(1)数组的表示方法。数组名(P1,P2,…)其中,P1、P2表示元素在数组中的位置,称为“下标”,各数组元素是通过下标来区分的。例如,a(2)表示一维数组的第二个元素(该数组下标值从1开始)。 Visual 数组及数组元素(2)数组维数。数组维数等于数组元素的下标个数,一维数组元素的下标有一个,二维数组元素下标有两个……依此类推。Visual Basic中最多有60维数组。 Basic中,数组可按不同的方式分类:(1)按数组的大小(元素的个数)是否可以改变来区分:定长数组、动态(可变长)数组。(2)按数组元素的数据类型可分为:数值型数组、字符串数组、日期型数组、变体数组等。(3)按数组的维数可分为:一维数组、二维数组、多维数组。 Visual 一维数组从例4-1程序可以看出,简单变量是不适合存储批量数据的,需要使用数组。代码如下:Private Sub Form_Click() Dim i%, Sum!, Ave!, a!(10) For i = 1 To 10 a(i) = Val(InputBox("Enter a" & i & " Number")) Sum = Sum + a(i) Next i Ave = Sum / 10 Print AveEnd Sub结论:程序中引入a(i)数组后,代码明显减少。 Visual 一维数组的声明一维数组的声明格式如下。Dim <数组名> (下标)As <数据类型> 或Dim <数组名> <数据类型符>(下标)说明:(1)数组名的命名规则与变量的命名规则相同。在同一过程中,不能出现同名的数组,数组名与变量名也不能相同。(2)“下标”的一般形式为:<下界> to <上界>,用于确定数组中元素的个数。数组中元素

第四章 数组(vb课件) 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数33
  • 收藏数0 收藏
  • 顶次数0
  • 上传人autohww
  • 文件大小706 KB
  • 时间2016-12-17