VB数组应用实验报告.docVIP

PAGE  PAGE 6 实验名称： VB程序设计 实验类别： 课 程 上 机 适用专业： 计算机科学与技术 姓名： 徐申毅 实 验 报 告 内容 数组及应用 目的 （1）掌握一维数组和二维数组的定义及引用方法 （2）掌握动态数组的定义和使用 （3）能应用数组解决一些常见问题，如复杂统计，平均值，排序和查找等。 设计思路 首先定义一个一维数组生成10个二位数，假设第一个数为最大数，让第二个数与第一个数比大小，若大于，则交换值，循环至最后一个数，求出最大值，然后求和算出平均值，用选择法进行排序，Private Sub cmdinsert_Click() 数据插入，x = Val(InputBox(输入要插入的数据：))，将新的数组进行排序。 定义二维数组，i为行数，j为列数；n为输???的行数， 第一列和主对角线为1s(i, 1) = 1， s(i, i) = 1；For i = 3 To n For j = 2 To i - 1， s(i, j) = s(i - 1, j - 1) + s(i - 1, j)实现每一个数等于它上面一行的同一列与前一列数之和。 定义动态数组，ReDim Preserve a(n) 动态存储数组a增加1个元素，前n-1个元素值保持不变。然后用冒泡法对数组中的元素进行排序，输出排序后的结果。 源程序 Option Base 1 Option Explicit Dim a(11) As Integer 定义数组 Private Sub cmdcreat_Click() 产生的一维数组 Dim i As Integer Picture1.Cls Picture1.Print 产生的一维数组为： Randomize For i = 1 To 10 a(i) = Int(Rnd * 20 + 10) Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub cmdmax_Click() 求最大元数及所在的位置 Dim max As Integer, p As Integer, i As Integer max = a(1) 假设第一元素就是最大元素 p = 1 For i = 2 To 10 If a(i) max Then max = a(i) p = i End If Next i Picture1.Print Picture1.Print 第 p; 个元素 a(p) 为最大元素 End Sub Private Sub cmdave_Click() 计算平均值 Dim ave As Single, i As Integer For i = 1 To 10 ave = ave + a(i) Next i ave = ave / 10 Picture1.Print Picture1.Print 产生的随机数平均值为： ave End Sub Private Sub cmdsort_Click() 使用选择法排序 Dim i%, j%, p%, t% For i = 1 To 9 p = i For j = i + 1 To 10 If a(p) a(j) Then p = j Next j t = a(i): a(i) = a(p): a(p) = t Next i Picture1.Print Picture1.Print 排序后的一维数组为： For i = 1 To 10 Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub cmdinsert_Click() 数据插入 Dim x%, p%, i% x =