vb net 数组课件.ppt

数组的概念 数组的概念 数据类型、变量和常量 主要数据类型 项目三 1 数组的概念 2 数组声明及初始化 3 数组的基本操作和排序 2数组声明及初始化 多维数组声明 数组的初始化 3 数组的基本操作和排序 用数组求Fibonacci数列前20个数 Private Sub Button1_Click(……) Handles Button1.Click Dim a%(3, 4) Dim i%, j%, k% k = 1 For i = 0 To 3 For j = 0 To 4 a(i, j) = k k = k + 1 Next Next i = 0 For Each k In a Label1.Text = k Space(5 - Len(Str(k))) i += 1 If i Mod 5 = 0 Then Label1.Text = vbCrLf Next End Sub 求矩阵主对角线的和 求矩阵转置 3.2数组的输出 矩阵乘法 3.3求数组和、最值、位置 编写一个统计歌唱比赛选手得分的程序。 交换数组：元素将一维数组的元素前后互换 3.4数组排序 3.4数组排序 选择法排序 iMin = 0 第1轮比较，初始假定第1个元素最小 For j = 1 To n 选最小元素的下标 If a(j) a(iMin) Then iMin = j Next j t = a(0) 选出的最小元素与第1个元素交换 a(0) = a(iMin) a(iMin) = t iMin = 1 第2轮比较，初始假定第2个元素最小 For j = 2 To n 选最小元素的下标 If a(j) a(iMin) Then iMin = j Next j t = a(1) 选出的最小元素与第2个元素交换 a(1) = a(iMin) a(iMin) = t iMin = 4 第5轮比较，初始假定第5个元素最小 For j = 5 To n 选最小元素的下标 If a(j) a(iMin) Then iMin = j Next j t = a(4) 选出的最小元素与第5个元素交换 a(4) = a(iMin) a(iMin) = t iMin = i 对第i轮比较，初始假定第i个元素最小 For j = i+1To n 选最小元素的下标 If a(j) a(iMin) Then iMin = j Next j t = a(i) 选出的最小元素与第i个元素交换 a(i) = a(iMin) a(iMin) = t 冒泡法排序 冒泡法排序 For j = 0 To n - 1 ‘ 第1趟比较中，对n个元素两两相邻比较n-1次，大数沉底 If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next j For j = 0 To n - 2 ‘ 第2趟比较中，对n-1个元素两两相邻比较n-2次，大数沉底 If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next j For j = 0 To n - 5 ‘ 第5趟比较中，对n-4个元素两两相邻比较n-5次，大数沉底 If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t