[管理学]VB浙大孟学多BISUAL BASIC课件浙大教材主编孟学多亲自制作4.ppt

第四章 数 组 4.1 一维数组 【例4-1】求100个学生某门课程的平均成绩，并输出高于平均成绩的人数。 用数组方法重新实现例4-1 一维数组的定义和使用 定义:Ｄim 数组名(下标) As 数据类型 例: Dim name(2) As String 3个元素： name(0), name(1), name(2) Dim age(1 To 2) As Integer 　 2个元素：age(1), age(2) 数组缺省下界说明语句 Option Base 0 | 1 如: Option Base 1 Dim a(100) as integer 定义数组元素a(1)~a(100) ,如图所示 使用一维数组 数组元素的引用 如: a(1)=23 a(k)=a(k-1)+a(k-2) 访问数组元素 单个元素赋值：使用赋值语句，如：C(3)=A(2) 整个数组复制：使用 For循环和赋值语句 For i=1 To 100 score(i)=Int(Rnd*101) Next i 【例4-2】利用数组计算Fibonacci数列的前20个数，每行打印5个数。 分析 使用数组f(20)存放数列前20项的值，则 f(1) = 1 f(2) = 1 f(3) = f(1) + f(2) f(4) = f(2) + f(3) …… 得到递推公式： f(i) = f(i-2) + f(i-1) i = 3~20 算法 ① 计算数组 f(20)各元素的值 ② 输出数组 f(20) 程序： Private Sub Form_Click() Dim i As Integer, total As Integer Dim f(20) As Integer f(1) = 1 : f(2) = 1 For i = 3 To 20 f(i) = f(i - 1) + f(i - 2) Next i For i = 1 To 20 Print Space(6 - Len(Str(f(i)))); f(i); If i Mod 5 = 0 Then Print Next i End Sub Private Sub Form_click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print min = a(1) For j = 2 To 10 If min a(j) Then min = a(j) Next j Print min End Sub 结论：10个数从小到大排序---选择分类法 选择分类法基本思想： 每次选出未排序数中的最小者，把它放在未排序数的最前面。对n个数据，需经过n-1次选择。 第一遍选择： 5 9 7 4 1 0 pos=4 5 9 7 4 1 0 pos=5 5 9 7 4 1 0 pos=6 交换第1和第6个元素得: 0 9 7 4 1 5 例 5 9 7 4 1 0 第一遍 5 9 7 4 1 0 4 9 7 5 1 0 1 9 7 5 4 0 第二遍 0 9 7 5 4 1 0 7 9 5 4 1 0 5 9 7 4 1 0 4 9 7 5 1 第三遍 0 1 9 7 5 4 0 1 7 9 5 4 0 1 5 9 7 4 直接选择分类算法： 对 i=1, 2, …, n-1 对 j=i+1, i+2, …, n 若 a(i)a(j)，交换 a(i)与a(j) 冒泡排序算法的基本思想： 1、从第一个元素开始，对相邻元素两两比较，把最大数“沉底”。 2、对n 个数进行n-1轮冒泡，实现n 个数从小到大排序。 冒泡排序程序： Private Sub Form_Click() Dim a (30) As Integer For i = 1 To 30 a(i) = Int(Rnd * 90) + 10 Next i For i = 1 To 29 For j =