数组2 课件- 高中信息技术浙教版选修1.pptxVIP

程序设计的核心——数组 1.数组 (c) 1.掌握数组的定义。 2.理解数组的含义。 3.尝试用数组来解决问题 1.数组的含义。 2.用数组来解决问题 作业讲解 3.VB程序如下 a(1)=5: a(2)=9: a(3)=-1: a(4)=12: a(5)=11: a(6)=-7: a(7)=2: a(8)=22 k = a(1) For i = 2 To 8 If a(i) k Then k = a(i) Next i Text1.Text = Str(k) 程序运行后文本框 Text1 显示_________。 -7 作业讲解 4. 有 8 个数据：46、78、12、55、17、9、33、80 依次存放在数组 d(1)到 d(8)中，k=1,程序段如下所示： For i=2 To 8 If d(i) a(k) Then k = i Next i Text2.Text=Str(k) 程序运行时，文本框 Text2 显示的是____________。 8 作业讲解 5. 有如下 VB 程序段 Dim a(0 To 10) As Integer n = 10 For i = 0 To n / 2 a(i) = 2 * i + 1 Next i For i = n To 6 Step -1 a(i) = a(n - i) Next i Text1.Text = Str(a(n - 3)) n 的值为 10，程序执行后，Text1 中显示的内容是_____________。 7 a(0) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) 3 5 11 7 9 9 7 5 3 1 1 作业讲解 有 VB 编写的程序如下： Dim a(0 To 9) As Integer,t as Long t = Val(Text1.Text) Do While t 0 a(t Mod 10) = 1 t = t \ 10 Loop For i = 0 To 9 x = x + a(i) Next i Text1中输程序执行后x的值为___________。 5 a(0) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) 1 1 0 0 1 0 0 1 0 1 1 1 1 课堂练习 k = a(2) - a(1) For i = 3 To 10 If a(i) - a(i - 1) k Then k = a(i) - a(i - 1) EndIf Next i a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) 5 9 -1 12 11 32 -7 2 22 3 1.程序运行后k的值是___________。 2.程序的功能是什么？ 数组相邻元素差值的最大值 k i 13 4 21 4 3 5 6 8 7 9 10 11 课堂练习 k = a(2) - a(1) For i = 3 To 10 If a(i) - a(i - 1) k Then k = a(i) - a(i - 1) EndIf Next i a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) 5 9 -1 12 11 32 -7 2 22 3 求哪两个元素间的差值最大？ k = 2 For i = 3 To 10 If a(i) - a(i - 1) a(k) - a(k - 1) Then k = i EndIf Next i 课堂练习 某地1900-1999年的平均降水量数据保存在数据库中。现要求找出相邻两年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，请在划线处填写合适代码： 课堂练习 某地1900-1999年的平均降水量数据保存在数据库中。现要求找出相邻两年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，请在划线处填写合适代码： Dim w(1 To 100) As Single