第四章数组与自定义数据类型选读.ppt

  1. 1、本文档共42页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2)通过InputBox函数 如果数组元素的值无法预先确定,需要在运行时通过键盘输入,可通过InputBox函数赋值 3)使用Array函数 格式:数组名=Array(?数组元素值表) Array函数可对变体类型的一维动态数组赋值 数组元素的个数由数组元素值表中数据个数决定,数组下标下界可由LBound函数得到,下标上界可由UBound函数得到。 Dim score(1 To 30) For i = 1 To 30 score(i) = InputBox(请输入第 i 成绩) Next i 思考:缺点? 4)使用文本框和split函数 格式: 数组变量名=Split(字符串表达式,分隔符) 将文本框中输入的内容用Split函数分离成一个个数据,存放到数组中。 注意:用Split函数赋值的数组的最小下标均从0开始,下标上界可用Ubound函数 说明:只用于对动态字符型数组赋值 且数组下标只能从0开始, option base 1 无效 a = Split(Text1, ,) For i = LBound(a) To UBound(a) Print a(i) Next i 数组元素的输出 通过for…next 循环或循环的嵌套,使用print方法输出,注意控制输出格式。 …… For i=1 to n Print tab(((i-1)mod 5)*8);a(i); Next i …… 一维数组 …… For i=1 to m for j=1 to n print a(i,j); next j print Next i …… 二维数组 数组应用总结: 实现多数据成批输入和输出(矩阵输出) 简单统计 分数段 统计字母个数 最大、最小元素位置 排序问题:对有n 个数的序列,使其构成数组;使数组下标按一定规律变化,分别取到各个元素;分别比较两个数字(数组元素a(i)与a(j))的大小关系,满足一定条件后,交换位置,最后实现有序输出。 比较交换法(升序) 若有n个数,第一轮时,取数组的第1个元素,分别与其后的第2,3,……n 个元素比较,只要后面的数比第一个数小,就和第一个数组元素交换位置,第一轮比较完成后,数组中的第一个元素就是整个数组中最小的;直到n-1轮。 For i = 1 To 7 For j = i + 1 To 8 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j 选择法 在比较交换的基础上,比较完第i轮后,通过找到最小元素的下标,使最小元素和第I个数组元素实现一次交换,可以大大降低交换数据的次数,最多只交换n-1次。 For i = 1 To 7 k = i For j = i + 1 To 8 If a(k) a(j) Then k = j Next j t=a(i):a(i)=a(k):a(k)=t Next i 冒泡法 若有n个数,将相邻的两数比较,每一轮比较时,若有m 个数,只要比较m-1次,一轮比较完成后,最大的数可以找到,并放在数组的最后一个元素中;下一轮比较时,需比较的数的总数数减少一个;直到剩下两个数作比较完成 For n = 8 To 2 Step -1 For i = 1 To n - 1 If a(i) a(i + 1) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t End If Next i 查找 顺序查找 二分法查找(限于有序数组) 数组元素移位、插入、删除 通过数组元素的下标,找到位置,再做相应变换 控件数组 由同一类型控件构成,共用一个控件名称,具有相同属性,并共用同一个事件过程。各控件元素通过索引号(下标)来区别。 一 建立: 在设计时建立 使创建的多个控件同名,具有不同索引值(index) 对已创建的控件复制,粘贴,创建控件数组 2 在程序运行的时创建 先建立控件数组的第一个元素,设置其Index属性为0 在编程中通过Load 方法添加其余的若干个元素,用Unload 方法删除某个添加的元素。(注意,动态添加的控件默认v

文档评论(0)

希望之星 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档