实验6数组程序设计.docVIP

实验6数组程序设计 实验目的： 1．掌握的定义方法。 2．掌握静态和动态数组使用。 3．掌握控件数组的产生方法 4．明确控件数组中控件名称的特点 5．掌握运用控件数组的编程方法。 实验6.1一维数组 实验任务： 编程随机产生10个任意的两位正整数，并把它们保存在数组a(1 To 10)中，要求输出数组中所存放的10个数值，如图6-1所示。 图6-1 实验6.1的实验结果 提示：可以根据Rnd函数的取值范围来确定如何随机产生两位正整数。 实验6.2二维数组 实验任务： 编程用InputBox函数输入一个二维数组（矩阵），并在窗体上按如图6-2所示的标准格式输出每行中最大的元素。 图6-2 二维数组的输出 提示： 1．输入时InputBox上的提示信息要表明当前输入的是矩阵中的哪一个元素（动态显示方法），如图6-3所示。 图6-3 输入框 2．数组输入和输出，一般情况下都要使用两重循环结构。外面一重循环对应于行的变化，里面一重循环对应于列的变化（列的变化比行的变化快）。标准输出方式是在Picture1.Print语句的输出项之间用逗号间隔，输出时要产生3行(4列的效果，还应该在两重循环之间添加一个无参数的Picture1.Print语句，用来换行。求每行的最大值也需要通过双重循环实现。 实验步骤： 1．完善代码 Option Explicit Private Sub Form_Click() Dim a(4, 3) As Integer, i As Integer, j As Integer Dim max As Integer For i = 1 To 4 For j = 1 To 3 a(i, j) = InputBox(请输入矩阵的第( i , j )元数, 输入矩阵元数) Picture1.Print a(i, j), Next j Next i For i = 1 To 4 For j = 2 To 3 If max a(i, j) Then Next j Picture1.Print 第 i 行最大的是：; max Next i End Sub 2．保存文件，调试运行。 思考：如果要求显示每行最大元素的行列位置，应如何修改代码。 实验6.3判断完数 实验任务： 已知一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。例如6是一个完数，因为6的因子是1，2，3，而且6=1+2+3。要求编程对于任意输入的一个数，能够判断出该数是否是完数，并对不同结果进行输出；单击“输入下一个数”时，要清除文本框和图片框中的内容，并且光标在文本框中闪烁。 提示：可以将输入的数的因子逐个求出，放到数组中，并对因子进行累加，若为完数或不是完数结果输出如图6-4所示。因为无法预知因数的个数，所以要使用动态数组。 图6-4 运行结果界面 实验步骤： 1．窗体布局，在窗体上摆放Label、TextBox、Frame、PictureBox(用于显示结果)各一个，在将三个CommandButton拖放到窗体上，具体布局参见图6-4。 2．完善代码 Private Sub CmdJudeg_Click() Dim m As Integer, i As Integer, j As Integer, k As Integer Dim a() m = Text1.Text ReDim a(1) 重定义数组 a(1) = 1 ‘k = 1 j = 1 For i = 2 To ‘ m - 1 If m Mod i = 0 Then k = k + i 因数和 j = j + 1 因数个数 ReDim Preserve a(j) 重定义数组，且保留原有数据 a(j) = i 将因数保存在数组中 End If Next i If m = k Then Picture1