vb实验E 数组和自定义类型.doc

试验E 数组和自定义类型一、实验目的1. 掌握数组的声明、数组元素的引用。2. 掌握固定长度数组和动态数组的使用差别。3. 掌握数组常用的操作和常用算法。4. 掌握列表框和组合框的使用。5. 掌握自定义类型及数组的使用。二、实验内容1. 随机产生30100（包括（30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。2. 已知6 个学生的成绩，通过数组赋初值的方法，利用String函数，以每5分为一个“”显示，并显示学生的成绩。3. 随机产生20个学生的成绩，统计各分数段人数。即059、6069、7079、8089、90100，并显示结果。产生的数据在Picture1显示，统计结果在Picture2显示。4. 随机产生10个2位数，按从大到小递减的顺序排列，并显示排序结果。5参照教材例5.3，在通用声明段声明两个数组，利用随机函数形成如下两个数组：A= ， B=要求：以下三角形式显示A数组、上三角形式显示B数组。求A数组主对角线元素之和和B数组副对角线元素之和。6. 输入整数n，显示出具有n行的杨辉三角形。图E.5显示n=8的效果。7. 设计一个选课的运行界面如图E.6所示。它包含2个列表框，左边为已开设的课程名称，通过Form_Load事件加入，并按拼音字母排序；当单击某课程名称后，将该课程加入到右边列表框，并在左边列表框中删除该课程。当右边课程数已满5门时，不允许再加入。8. 窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，如图E. 8所示；单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换。9. 提供在窗体上显示的以汉字开头的字体名称，并显示该名称所对应的字体样式。10. 自定义类型数组的应用。要求：自定义一个职工数据类型，包含职工号、姓名、工资三项内容。在通用声明段声明一个职工类型的数组，可存放5个职工的数据。窗体中设计3个标签、3个文本框、2个命令按钮和1个图形框，文本框中分别输入职工号、姓名、工资；当单击“新增”按钮时，将文本框输入的内容添加到数组的当前元素中；当单击“排序”按钮时，将输入的内容按工资递减的顺序排列，并在图形框显示。程序运行界面如图E.11所示。习题五1、 在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组的默认下界？答：指定数组的默认下界 Option Base 12、 要分配存放12个元素的整型数组，下列数组声明（下界若无，按默认规定）哪些符合要求？（1） n=12Dim a(1 To n) As Integer答：Dim 语句中的下标只能是常量，不能是变量。（2） Dim a%()n=11ReDim a(n) 答：正确（3） Dim a%2,3答：VB中数组下标用圆括号，应为（）（4） Dim a(1,1,2) As Integer答：正确（5）Dim a%(10) ReDim a(1 To 12)答：正确（6）Dim a!() ReDim a(3,2) As Integer答：ReDim 语句可改变维数但不可以改变类型（7）Dim a%(2,3)答：正确（8） Dim a(1 to3 1 to 4) As Integer答：缺少逗号 Dim a(1 to 3,1 to 4) As Integer3. 程序运行时显示“下标越界”可以产生的错误有哪几种情况？答：引用的下标超出上界或下界。4. 已知下面的数组声明，写出它的数组名，数组类型，维数，各维的上下界，数组的大小，并按行的顺序列出各元素。 Dim a(-1 to 2,3,) As Single答：数组名：a(-1 to 2,3) ,数组类型：Single，维数：2维，各维的上下界：-1 to 2, 0 to 3或1 to 3,组的大小：16, 按行的顺序列出各元素：（-1,0）（-1,1）（-1,2）（0,0）（0,1）（0,2）（1,0），（1,2）（2,0），（2,1）（2,2）5.利用随机数生成两个矩阵（数据不一定相同，前者3070范围，后者101135）。35 67 52 50103 115 125 101 33 47 66 39133 127 132 135A=47 56 66 41B=111 103 134 11830 69 55 38123 109 113 130要求：（1） 将两个矩阵相加结果放入C矩阵中。Dim A(1 To 4, 1 To 4) As Integer, B(1 To 4, 1 To 4) As IntegerDim C(1 To 4, 1 To 4) As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4 Randomize A(i, j) = Int(30 + Rnd * 41) Me.Picture1.Print A(i, j); Randomize B(i, j) = Int(101 + Rnd * 35) Me.Picture2.Print B(i, j); Next j Me.Picture1.Print Me.Picture2.Print Next i End SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer Me.Picture3.Cls For i = 1 To 4 For j = 1 To 4 C(i, j) = A(i, j) + B(i, j) Me.Picture3.Print C(i, j); Next j Me.Picture3.Print Next iEnd Sub（3） 将A矩阵转置。For i = 1 To 4 For j = 1 To 4 C(i, j) = A(j, i) Me.Picture3.Print C(i, j); Next j（4） 统计C矩阵中最大值和下标。（5） 以下三级形式显示A矩阵、上三角形式显示B矩阵。（6） 将A矩阵第一行与第三行对应元素交换位置，既第一行元素放到；第三行元素放到第一行。（7） 求A矩阵两条对角线元素之和。（8） 将A矩阵按列的次序把元素放到一维数组D中，显示结果。6.声明一个一维字符类型数组，有20个元素，每个元素最多放10个字符，要求：（1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围110.（2）要求将生成的数组分4行显示，规定每个元素宽度为10。（3）显示生成的字符数组中字符最多的元素。答：一维字符数组Dim a(1 To 20) As StringPrivate Sub Command1_Click() (1)随机产生字符串 Dim i As Integer, j As Integer, n As Integer, c As String * 1 Randomize For i = 1 To 20 a(i) = 将第i个元素清空 n = Int(Rnd * 10 + 1) 产生1,10的随机数 For j = 1 To n a(i)中有n个字符 c = Chr(Int(Rnd * 26 + 97) 随机产生字母97是字母a的ASCII码 a(i) = a(i) + c Next j Next iEnd SubPrivate Sub Command2_Click() (2)输出字符串 Dim i As Integer For i = 1 To 20 Print Tab(i - 1) Mod 5) * 11); a(i); If i Mod 5 = 0 Then Print Next iEnd SubPrivate Sub Command3_Click() (3)最长的字符串 Dim i As Integer, imax As Integer imax = 1 For i = 2 To 20 If Len(a(i) Len(a(imax) Then imax = i End If Next i Print 最长的字符串：; a(imax)End Sub7.简述列表框和组合框的异同处。答：列表框和组合框都是存放字符串的，但组合框可输入内容，而列表框可一下选择多个项目。8.列表框或组合框中选定的项目、总项目数的属性分别是什么？答：被选中的项目属性是Text，总项目数目的属性是ListCount。9.简述自定义类型与自定义变量的区别。答：一个类型可以有N个变量。自定义类型表示如同Integer、Single等类型名；自定义变量根据该类型分配所需的内存空间，存储各种元素数据。10.自定义一个职工类型，包含职工号、姓名、工资。声明一个职工类型的动态数组。输入n个职工的数据；要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。Private Type zg num As String name As String gz As SingleEnd TypeDim a() As zgPrivate Sub Command1_Click()Dim n As Integern = Val(InputBox(输入职工人数n)ReDim a(n)For i = 1 To n a(i).num = InputBox(请输入工号) a(i).name = InputBox(请输入姓名) a(i).gz = Val(InputBox(请输入工资)Next iFor i = 1 To n For j = n To i + 1 Step -1 If a(i).gz a(j).gz Then b = a(i).gz: a(i).gz = a