VB第6章(数组)课件.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB第6章(数组)课件

第6章 数组; 输入10个数,输出它们的平均值。; 输入10个数,输出它们的平均值及大于平均值的那些数。; 引例:; 引例:;本章主要内容;6.1 数组的概念;Visual Basic中的数组分类: 按数组的大小(元素个数)是否可以改变来分为: 定长数组、动态(可变长)数组。 按元素的数据类型可分为: 数值型数组、字符串数组、逻辑数组、 日期型数组、变体数组等、对象数组。 按数组的维数可分为: 一维数组、二维数组、多维数组。 ;6.2 数组的基本操作;6.2.1 一维数组 1. 一维数组定义;例如:Dim y(5)As Integer 定义了一个一维数组,该数组的名字为y,类型为Integer,占据6个(0~5)整型变量的空间。 Dim a (10) As Integer Dim p( 3 to 9) As Integer 数组的下界如未定义,其值为0。 可以用如下语句重新定义: Option Base 0|1 ‘设定数组的下界为0或1 ;说明: ;4) 下界和上界不能使用变量,必须是常量,常量可以是直接常量、符号常量,一般是整型常量。 Const Num As Integer =10 Dim N As Integer N=Val(InputBox(“Enter N=?”)) Dim A(N) As Integer Dim X(Num) As Long;UBound 、LBound 函数????? Ubound ( arrayname [, dimension] ) Lbound ( arrayname [, dimension] ) 返回指定数组维可用的最大下标/最小下标。;2. 一维数组的引用 使用形式: 数组名(下标) 其中:下标可以是整型变量、常量或表达式。 例如: 设有下面的数组定义: Dim A(10) As Integer ,B(10) As Integer 则下面的语句都是正确的。 A(1)=A(2)+B(1)+5 取数组元素运算 A(i)=B(i) 下标使用变量 B(i+1)=A(i+2) 下标使用表达式; 【例6.1】随机产生10个两位整数,找出其中最大值、最小值。 分析:该问题可以分为两部分处理:一是产生10个随机整数,并保存到一维数组中;二是对这10个整数求最大、最小值。 ;涡盾镜筋袱异转设堂淬窘欢卑凶哄赚轴猛排地妙新堑觅确檬熏彝给遣胯仆VB第6章(数组)课件VB第6章(数组)课件;【示例】编写程序,把输入的10个整数按逆序输出。;将数组元素倒置。;衷缕白粮柬膛窜贷挞芥奄懂催咸腕泛讥激随浪偶商鲜跟毛步烃甭谰郝宵纳VB第6章(数组)课件VB第6章(数组)课件; 【示例】从键盘上输入10个整数,把这些数按由小到大的顺序排序输出。 ;第 一 趟 比 较;第 二 趟 比 较;一次排序;台嗽靛窗汀半吕拆难鹤陵恋咎琅隧倚瓷膏再驰坷肪壹概获饭着著商愤芥螟VB第6章(数组)课件VB第6章(数组)课件;【例6.6】选择排序算法;选择排序过程;直接排序;析撕挟奴悠蜗猩雌毯寨置辈吼废湿乘杉底剔程苑咐叭碘戌蚜撇势蚁包芝码VB第6章(数组)课件VB第6章(数组)课件;6.2.2 二维数组;1. 二维数组的定义;;2.二维数组存储结构 ; 用数组说明语句定义数组,指定了各维的上、下界取值范围,也就确定了数组的大小。所谓数组的大小就是这个数组所包含的数组元素个数。数组的大小也称为数组的长度。 二维数组的大小 数组的大小 = 第一维大小×第二维大小 维的大小 = 维的上界-维的下界+1 ; 在实际使用时,可能需要数组的上界值和下界值,这可以通过LBound函数和UBound函数来求得。其格式为: LBound(数组名[,维]) UBound(数组名[,维]) 这两个函数分别返回一个数组中指定维的下界和上界。; 例如: Dim A( 1 To 100, 0 To 3, -3 To 4) 则 UBound(A, 1) 返回值 100 UBound(A, 2) 返回值 3 UBound(A, 3) 返回值 4 LBound(A, 1) 返回值 1 LBound(A, 2)

文档评论(0)

baa89089 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档