高一下信息第四课.ppt

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

第四课 排 序 高一信息科技 数组 数组的概念 数组是一批具有相同类型的数据的有序集合。 数组是由数组元素构成的。 数组的作用: 存储一批相同类型的数据,以便再次使用时可随时取出。 数组必须先声明后使用 数组 数组变量的声明 * * 一、数组 1、概念:类型相同的一组数据的集合。用一个变量名来表 示这一组数据,用自然数作下标来表示不同的数及在数 组中的顺序。 (1)类型相同(2)同一变量名(3)下标不同 2、格式:数组名(a1 to a2),如:d(1 to 10) 3、说明: (1)数组名的定义方法和简单变量的定义方法相同。也可 以带类型说明符 (2)下标必须写在数组名的括号内。 (3)下标值非负。 (4)下标可以是常量也可以是变量,还可以是表达式: 如d(i),d(i+1),d(3+4)… 5 d(1) d(2) d(3) d(4) … d(n) d 数组名 数组元素值 数组元素下标 数组元素名 数组 例1: Dim d As Integer, x As Integer For d = 0 To 4 x = d Next d For d = 0 To 4 Print x; Next d 例2: Dim d(1 to 4) As Integer Dim i As Integer For i = 1 To 4 d(i) = i Next i Print For i = 1 To 4 Print d(i); Next i 此程序用到了数组:DIM d(4),数组名为d,数组中共有元素4个,即d(1)、d(2)、d(3)、d(4),每一个元素都具有存储功能,第一个循环中,当i=1时,给d(i)即d(1)赋值,结果为1,当i=2时,给d(i)即d(2)赋值,结果为2,依此类推,d(3)=3,d(4)=4 此程序用的是简单变量,每次只能保存最近的数据,所以每次赋值都会把以前的值覆盖,只有最后一次的数据被保存。 Dim a(1 to 5) as integer a a(1)--- a(2)--- a(3)--- a(4)--- a(5)--- 数组元素名 数组 数组元素 96473 数组元素值 数组名 数组元素下标 请用自然语言描述以下数据的特点。 (数据名称,数据类型,数据规模,下标范围) Dim 数组名(下界 to 上界)as 数据类型 一个公司112名员工的年龄 一个班级40位同学的身高 数组变量的使用 数组变量的赋值 多采用循环结构 3 7 4 6 9 a(1) a(2) a(3) a(4) a(5) 数组变量的输出 多采用循环结构 数组变量的计算 二、数组的输入: 用InputBox函数实现 开始 i=i+1 i<=10 结束 d(i)= a N i =1 输入a Y Y Dim d(1 to 10) as Single For i=1 to 10  d(i)=InputBox(“请输入d(i)的值”) Next i 三、数组的输出: 用print语句实现 开始 i=i+1 i<=10 结束 N i =1 输出d(i) Y For i=1 to 10 print d(i) Next i 三、数组的输出: 用List.AddItem d(i)输出 (创建一个ListBox控件) 开始 i=i+1 i<=10 结束 N i =1 输出d(i) Y For i=1 to 10 List1.AddItem d(i) Next i 或者用如下语句 i = 1 Do While i <= 10 List1.AddItem d(i) i = i + 1 Loop 一、指出下列程序中的错误并改正 1、Dim a(1 to 10) as Single For i=5 To 20   a(i)=i Print a(i) Next i 2、For i=1 To 20 a(i)=Inputbox(“请输入数据:”) s=s+a(i) Next i Print s 二、写出下列程序代码的运行结果 1、 Dim B(1 To 3) As Single Dim bk As Integer, k As Integer bk = 3 For k = 1 To 3 B(k) = k - 1 Print k, B(k), bk Next k 2、  Dim a(1 To 5) As Single, i As Integer For i = 1 To 4 a(i) = 2 * i - 1 Next i Print a(a(i) + 1) 排序 在许多问题中

您可能关注的文档

文档评论(0)

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

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

1亿VIP精品文档

相关文档