se x1= x0*2/3+a/ (3* x0* x0) ’如果输入不为 0 ,才计算立方根 End If Do While Abs((x1 - x0)) > 0.00001 x0= x1’迭代,根据旧值获得新值 x1= x0*2/3+a/ (3* x0* x0) ’迭代,根据旧值获得新值 Loop 10 课程名称: 实验报告 3 成绩评定: 实验项目名称: 指导教师实验项目编号: 实验项目类型: 实验地点: 学生姓名: 学号: 学院:系专业: 实验时间年月日午~ 月日午一、实验目的 1. 掌握数组的声明、数组的赋值和数组元素的访问方法。正确地使用 ReDim 语句。 2. 掌握函数和子过程的定义和调用方法。理解形参和实参的作用以及关系。 3. 熟练运用数组类控件:组合框和列表框。 4. 理解参数传地址和传值的区别和使用方法。二、实验内容(一) 按下面的要求对 Form1 的 Click 事件编程, 运行通过后用文件名 EX3-1 分别保存窗体和工程。要求功能为: 1. 随机产生 20个 20 以内的正整数存入数组 a 中,并在窗体上显示; 2. 将数组 a 中相同的元素只保留第一个, 其余的全部删除, 并且要求同时改变数组 a 的大小; 3. 将数组 a 中的元素依升序排列并显示在窗体上。 4. 实验要求 a) 本题中数组 a 定义为静态数组还是动态数组呢?为什么? 动态数组。需要改变数组大小 b) 语句 ReDim Preserve 中 Preserve 的作用是什么? 保留数组中原来的数据 c) 描述删除重复元素的算法思路,写出删除重复元素的代码? 从第二个元素起, 依次判断前面有无出现重复元素。如果有, 则将其后的元素都依次往前移动一个位置,覆盖重复元素。 k=1' 从第二个元素开始 Do' 判断下标从 0,1,...k-1 的数组元素与下标为 k 的元素是否有重复
全文预览
