教学课件：数组与排序.ppt

数组的应用 ——求最值 复习 最值问题 例2：找出例1输入的5个数字中的最大值并让其处于输出序列的最末端 练习一： 找出例1输入的5个数字中的最小值并让其处于输出序列的最末端 练习二： 找出例1输入的5个数字中的最小值并让其处于输出序列的最前端 练习三: 练习四分析下面程序的涵义 Option Explicit —————————————— Private Sub Command1_Click() Dim i As Integer, s As Single, max As Single s = InputBox(输入成绩) max = s For i = 1 To 4 If s max Then max = s s = InputBox(输入成绩) Next i Print max End Sub 利用“冒泡法”排序 例3：在例2的基础之上利用冒泡法进行排序，要求按照升序排列 * 练习： 说明下列数组中包含的元素 Dim a(4) as Integer ---------------- Dim a(1 to 4) as Integer ------------------ Option Base 1 Dim a(4) as Integer 1、声明一个数组，名称为a,数据类型为整型，含有5个数组元素，下标下界为0 Dim a(4) as Integer 2、声明一个数组，名称为a，数据类型为字符型，下标从65到90 Dim a(65 to 90) as string 3、利用强制声明语句， Option Base 声明一个单精度数组a，含有5个数组元素，要求下标下界为1 Option Base 1 Dim a (5) as Single 练习：建立一个含有5个变量的数组，利用Inputbox函数分别输入任意5个不同的数字，并在屏幕上输出 For i = 1 To 5 a(i) = Val(InputBox(请输入数字)) Next i For i = 1 To 5 Print a(i); Next i a(1) a(2) a(3) a(4) a(5) 初始值： 8 6 9 3 2 第一次判断： 6 8 9 3 2 第二次判断： 6 8 9 3 2 第三次判断： 6 8 3 9 2 第四次判断： 6 8 3 2 9 Private Sub Form_Click() Dim a(1 To 5) As Integer Form1.FontSize = 20 For i = 1 To 5 a(i) = Val(InputBox(请输入数字)) Print a(i); Next I Print For i = 1 To 5 Print a(i); Next i End Sub For j = 1 To 4 If a(j) a(j + 1) Then kbox = a(j + 1) a(j + 1) = a(j) a(j) = kbox End If Next j Private Sub Form_Click() Dim a(1 To 5) As Integer Form1.FontSize = 20 For i = 1 To 5 a(i) = Val(InputBox(请输入数字)) Print a(i); Next I For j = 1 To 4 If a(j) a(j + 1) Then kbox = a(j + 1) a(j + 1) = a(j) a(j) = kbox End If Next j Print For i = 1 To 5 Print a(i); Next i End Sub Private Sub Form_Click() Dim a(1 To 5) As Integer Form1.FontSize = 20 For i =