《VB实验三实验报告LEIFENG》由会员分享，可在线阅读，更多相关《VB实验三实验报告LEIFENG（17页珍藏版）》请在金锄头文库上搜索。
1、实 验 报 告 三课 程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 Bas
2、e 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 Su
3、b 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(
4、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、 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,
6、 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位数字字符，单击“重拨”按钮，重新显示原来所拨的号码
7、。建立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.AddI
8、tem 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 代码】Opti
9、on 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 =
10、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
