VB实验三实验报告-LEIFENG.doc

实 验 报 告 三课 程VB程序设计实验项目VB数组应用(6学时)成 绩专业班级经济学2015级姓 名雷锋学 号6666666666666666666实验日期2015.5.1实验目的（1）掌握一维数组（静态、动态）定义及使用（2）掌握二维数组（静态、动态）定义及使用（3）掌握“控件数组”的使用（4）掌握数组相关算法（求最值，排序，查找）（5）通过数组巩固循环及多重循环程序设计实验内容【实验1】对一维数组A(1 to 10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。程序运行界面如下图所示。（5分）掌握一维静态数组的定义及使用实验结果：【实验1 代码】Option Base 1Dim A(1 To 10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10A(i) = 2 * i - 1Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To 10Print A(i);Next iEnd Sub【实验1 典型结果】【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分）掌握一维动态数组的定义及使用实验结果：【实验2 代码】Option Base 1Dim APrivate Sub Command1_Click()A = Array(2, 4, 6, 8, 10, 12, 14, 16, 18, 20)End SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To 10Print A(i);Next iEnd Sub【实验2 典型结果】【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分）掌握动态数组的使用实验结果：【实验3 代码】Private Sub Command1_Click()Dim a() As Integern = 3ReDim a(n)a(1) = 10a(2) = 20a(3) = 30Print a(1); a(2); a(3)Print 用ReDim Preserve a(n)改变数组大小后n = 4ReDim Preserve a(n)a(4) = 40Print a(1); a(2); a(3); a(4)End Sub【实验3 典型结果】【实验4】静态声明一个二维数组，输入和输出该数组各元素的值 （10分）要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值掌握二维数组的定义及使用实验结果：【实验4 代码】Private Sub Command1_Click()Dim a(5, 5) As Integer, b(5, 5) As Integer, s%, t%Print 原数组为For i = 1 To 5For j = 1 To 5a(i, j) = (i - 1) * 5 + jPrint a(i, j),If i = j Then s = s + a(i, j)If i + j = 6 Then t = t + a(i, j)Next jPrintNext iPrint 主对角线元素的和为： & sPrint 次对角线元素的和为： & tPrint 1,3行交换后的数组为For i = 1 To 5For j = 1 To 5If i = 1 Thenb(i, j) = a(3, j)ElseIf i = 3 Thenb(i, j) = a(1, j)Elseb(i, j) = a(i, j)End IfPrint b(i, j),Next jPrintNext iPrintPrint 行列交换后的数组为For i = 1 To 5For j = 1 To 5b(i, j) = a(j, i)Print b(i, j),Next jPrintNext iEnd Sub【实验4 典型结果】【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。建立Command1控件数组，索引为09；Command2和Command3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。（10分）掌握控件组的使用实验结果：【实验5 代码】【实验5 典型结果】【实验6】随机产生10个100999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。程序运行界面如下图所示（10分）掌握数组插入与删除操作实验结果：【实验6 代码】Private Sub Command1_Click()Dim i%, j%For i = 1 To 10j = Int(Rnd * 900 + 100)List1.AddItem jNext iEnd SubPrivate Sub Command2_Click()Dim x%, y%x = Val(Text1.Text)For y = 0 To List1.ListCount - 1If x a(j) Thenx = a(i)a(i) = a(j)a(j) = xEnd IfNext jNext iPrint 比较法排序后For i = 1 To 10Print a(i);Next iPrintEnd Sub【实验8 典型结果】【实验9】选择法对数组中的元素按升序排列，程序运行界面如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验9 代码】Option Base 1Private Sub Command1_Click()Dim aDim i%, j%, k%, x%a = Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)Print 选择法排序前For i = 1 To 10Print a(i);Next iPrintFor i = 1 To 9k = iFor j = 1 + i To 10If a(k) a(j) Thenk = jEnd IfNext jIf k i Thenx = a(i)a(i) = a(k)a(k) = xEnd IfNext iPrint 选择法排序后For i = 1 To 10Print a(i);Next iPrintEnd Sub【实验9 典型结果】【实验10】用冒泡对数组中的元素按升序排列，程序运行如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验10 代码】Option Base 1Private Sub Command1_Click()Dim aDim i%, j%, x%, m%, n%a = Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)n = UBound(a)For i = 1 To n - 1For j = 1 To n - 1If a(j) a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = xEnd IfNext jFor m = LBound(a) To UBound(a)Label1.Caption = Label1.Caption & a(m) & Next mLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub【实验10 典型结果】【选做1】利用一维数组，统计一个班学生成绩059，6069，7079，8089，90100各分数段的人数，生成一个各分数段的柱状图。人数为运行时输入，成绩给定