(
课件网) 程序设计的核心———数组 目 录 1 考试要求 3 学习难点 5 作业讲解 7 课后巩固 2 学习重点 4 作业讲解 6 课堂练习 1.数组 (c) 考试要求 1.掌握数组的定义。 2.理解数组的含义。 3.尝试用数组来解决问题 学习重点 1.数组的含义。 2.用数组来解决问题 学习难点 目 录 01 作业讲解 作业讲解 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中输入10242048则程序执行后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 目 录 02 课堂练习 课堂练习 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 '依次存储1900-1999年的年平均降水量数据 Const n = 100 Private Sub Command1_Click() Dim i As Integer, imax As Integer imax= ① For i = ② To n if abs(w(i)-w(i-1))>= ③ then imax=i Endif Next i text1.Text = "年均降水变化最大的年份是" + ④ + "-" + ⑤End Sub 2 3 abs(w(imax)-w(imax-1)) Str(1900+imax-2) Str(1900+imax-1) 课堂练习 tmp=1 : ans=0 For i = 2 To 6 If a(i) > a(i - 1) Then tmp=tmp+1 Else tmp=1 If tmp > ans Then ans=tmp Next i a(1) a(2) a(3) a(4) a(5) a(6) 2 ... ...
