绘制曲线并求定分 vb课设.docVIP

沈 阳 航 空 航 天 大 学 课程设计 学 号2011040601429 班 姓 名 熊 俊 指导教师 杨 煦 2013年 6 月 24 日沈阳航空航天大学 课程设计任务书 学院：机电工程学院 专业：机械师及制造 班级 学号：2011040601429 题目：绘制曲线并求定积分 一、课程设计时间 2013年6月17日~6月21日（第17周），共计1周。 二、课程设计内容 绘制曲线y=x3+1，并用“累计梯形面积”法求定积分 的值，要求所求区间的面积区域用蓝色填充。 用户界面中的菜单(或命令按钮)至少应包括“输入a和b的值”、“绘制曲线”、“求定积分”、“退出”4项。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语  目 录 需求分析 4 设计分析 4 关键技术 6 总结 9 完整的源程序 10 参考文献 11 需求分析 绘制曲线并求定积分，主要任务就是把y=x*x*x+1的曲线绘制出来与确定a、b的值后求定积分 的值并把这部分的面积用蓝色填充要求： ①用户界面中的菜单(或命令按钮)至少应包括“输入a和b的值”、“绘制曲线”、“求定积分”、“退出”4项 ②能够打开程序点击绘制曲线就能把y=x*x*x+1的曲线显示出来。 ③输入a、b的值点击求定积分就能把值显示并把所对应的面积用蓝色填充。 ④蓝色填充后原来的函数曲线保留。 设计分析 基本原理：“累计梯形面积”法求定积的值与用图形操作技术绘制图形与填充颜色。 总体设计： （3）详细设计： 关键技术 1用累计梯形面积法求定积分 Function fun#(x#) 函数过程 fun = x * x * x + 1 End Function Function jifen#(ByVal a#, ByVal b#, ByVal n) 函数过程 Dim sum#, s#, h#, x# 变量声明 h = (b - a) / n 累计梯形面积法求定积分 For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h)) / 2 sum = sum + s Next i jifen = sum 面积总和赋值到jifen End Function 2绘制图形 Private Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawWidth = 2 设置绘制的线宽 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print X 标记X轴 CurrentX = 0.5: CurrentY = 9.3: Print Y 标记Y轴 For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next x End Sub 窗体-查询： 2填充所求区域 For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue 用蓝色直线填充积分面积区域 Next x 窗体-查询： 总结 这次课设我的题目是绘制曲线并求定积分，通过这次课设让我了解了VB与数学知识之间有很大的联系，比如这个题目就要用数学中的累计面积法求定积分，让我学到编写程序要简单易懂，但要达到效果。界面安排要得当，达到美光。不然杂乱无章，自己也无法看懂，更谈何给他人讲解呢。 在课设过程中，我遇到了重重困难，例如：在绘制图形时