【2017年整理】VB实验任务12答案.docVIP

实验任务12 课程名称：程序设计基础VB 实验名称——实验十二 数组（2） 一、实验目的： 1．掌握数组的声明和数组元素的引用 2．掌握定长数组的使用 3．掌握数组的基本操作算法 4．掌握控件数组的使用 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 实验1在课前做好，课上验证 实验1人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。 （1）执行下面程序，单击命令按钮，输出结果是 。 Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2); arr(3, 4) End Sub （2）运行程序，单击窗体，则在窗体上显示的是 。 Option Base 1 Private Sub Form_Click() Dim a , Sum As Integer, i Sum = 0 a=Array(1,3,5,7,9,11,13,15,17,19,21,23) For Each i In a If i/3 = i\3 Then Sum = Sum + i Next Print Sum End Sub 实验2实验7-2 下列程序代码读入N个数，用选择排序法对这N个数按从大到小的顺序排序，并在文本框Textl中输出排序结果。（动态数组） 部分程序代码如下，请填空。 Dim a() As Integer Private Sub Command1_C1ick() N=Val(InputBox(请输入N:)) : ReDim A(N) For I=1 To N A(I)=Val(InputBox(请输入A(I ):, ,I)) Next I Text1.Text= For I=1 To N?1 For J= I+1 To N If A(I)A(J) Then T=A(I) A(I)= A(j) A(J)= t End If Next J Text1.Text=Text1.Text Str(A(I)) Next I Text1.Text=Text1.Text Str(A(N)) End Sub 实验3实验7-3 实现N×N矩阵的转置。 【分析】 矩阵的转置是指矩阵的行和列元素以对角线为中轴线互换，即原来的i行j列元素在转置后称为j行i列元素（使用二维数组存放矩阵）。 （1）程序代码段如下，请填空。 Option Explicit Const N = 4 Private Sub Form_Click() Dim a(N, N) As Integer, i As Integer, j As Integer, temp As Integer Picture1.Cls 每次数据生成前清除图片框中的内容 Picture1.Print 原数组为: For i = 1 To N For j = 1 To N a(i, j) = Int(100 * Rnd) + 1 Picture1.Print a(i, j), Next j Picture1.Print Next i Picture1.Print 转置后数组为: For i = 1 To N For j=i+1 to N 填写代码段,实现矩阵的转置Temp=a(I,j)