(课件网) 程序设计的核心———数组 目 录 1 考试要求 3 学习难点 5 作业讲解 7 课后巩固 2 学习重点 4 作业讲解 6 课堂练习 1.数组 (c) 考试要求 1.掌握数组的运用。 2.尝试用数组来解决问题 学习重点 1.数组下标的运用。 2.用数组来解决问题 学习难点 目 录 01 作业讲解 作业讲解 1.在一个数据序列中，如果出现连续升序的几个数，称为一个升序序列，该序列中数的个数称为序列长度。用随机函数产生10个数据的序列，查找其中升序序列的个数及最大序列长度。程序运行界面如图所示： 作业讲解 tmp=1 : ans=0 For i = 2 To 6 If a(i) > a(i - 1) Then tmp=tmp+1 Else tmp=1 Endif If tmp > ans Then ans=tmp Next i a(1) a(2) a(3) a(4) a(5) a(6) 2 1 3 7 5 8 数组最长连续上升子序列 作业讲解 1.在一个数据序列中，如果出现连续升序的几个数，称为一个升序序列，该序列中数的个数称为序列长度。用随机函数产生10个数据的序列，查找其中升序序列的个数及最大序列长度。程序运行界面如图所示： Dim a(1 To 10) As Integer ‘随机产生10个随机数存储在数组a中,代码略。 Private Sub Command1_Click() max = 0: t = 1: c = 0 For i =1 to 9 If ① Then t=t+1 Else If ② Then max = t If t > 1 Then t = 1: ③ End If Next i a(i) 1 Then If max < t Then max = t c = c + 1 End If Text1.Text = Str(c) Text2.Text = Str(max) End Sub 作业讲解 2.在比赛计分时经常采用去除最大值和最小值然后计分的方式，小华编写了一个删除数据中最大值和最小值的程序，功能如下：程序运行时，自动产生n个不同随机数存储在数组a中，并在列表List1中显示。单击按钮Command1后，去除数组中的最大值和最小值后在列表框List2中显示。实现上述功能的VB程序如下，请在划线处填入合适的代码。 课堂练习 变量k的作用 k = 1 For i = 2 To n If a(i) > a(k) Then k = i Next i Text1.Text = Str(k) a(1) a(2) a(3) a(4) a(5) 5 9 -1 12 11 变量k的作用 k = a(1) For i = 2 To 5 If a(i) > k Then k = a(i) Next i Text1.Text = Str(k) 变量 k 用于存储数组中最大元素的值 变量 k 用于存储数组中最大元素的下标 求数组中的最大值 作业讲解 2.在比赛计分时经常采用去除最大值和最小值然后计分的方式，小华编写了一个删除数据中最大值和最小值的程序，功能如下：程序运行时，自动产生n个不同随机数存储在数组a中，并在列表List1中显示。单击按钮Command1后，去除数组中的最大值和最小值后在列表框List2中显示。实现上述功能的VB程序如下，请在划线处填入合适的代码。 Const n = 10 Dim a(1 To n) As Integer ‘随机产生n个不同随机数存储在数组a中,代码略。 Private Sub Command1_Click() imin = 1: imax = 1 i = 2 Do While i <= n ‘找最大值和最小值 If a(i)a(imax) then imax=i 作业讲解 2.在比赛计分时经常采用去除最大值和最小值然后计分的方式，小华编写了一个删除数据中最大值和最小值的程序，功能如下：程序运行时，自动产生n个不同随机数存储在数组a中，并在列表List1中显示。单击按钮Command1后，去除数组中的最大值和最小值后在列表框List2中显示。实现上述功能的VB程序如下，请在划线处填入合适的代码。 For i = 1 To n If ③ Then List2.AddItem Str(a(i)) End If Next i End Sub i<>imin and i ... ...
