绘制曲线并求定积分-vb课设

1、沈 阳 航 空 航 天 大 学 课程设计 学 号2011040601429 班 级14060109 姓 名 熊 俊指导教师 杨 煦2013年 6 月 24 日沈航设计用纸沈阳航空航天大学课程设计任务书学院：机电工程学院 专业：机械师及制造 班级：14060109 学号：2011040601429 题目：绘制曲线并求定积分一、课程设计时间2013年6月17日6月21日（第17周），共计1周。二、课程设计内容绘制曲线y=x3+1，并用“累计梯形面积”法求定积分 的值，要求所求区间的面积区域用蓝色填充。用户界面中的菜单(或命令按钮)至少应包括“输入a和b的值”、“绘制曲线”、“求定积分”、“退出”4

2、项。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析4设计分析4关键技术6总结9完整的源程序10参考文献11需求分析绘制曲线并求定积分，主要任务就是把y=x*x*x+1的曲线绘制出来与确定a、b的值后求定积分 的值并把这部分的面积用蓝色填充要求：用户界面中的菜单(或命令按钮)至少应包括“输入a和b的

3、值”、“绘制曲线”、“求定积分”、“退出”4项能够打开程序点击绘制曲线就能把y=x*x*x+1的曲线显示出来。输入a、b的值点击求定积分就能把值显示并把所对应的面积用蓝色填充。蓝色填充后原来的函数曲线保留。设计分析（1） 基本原理：“累计梯形面积”法求定积的值与用图形操作技术绘制图形与填充颜色。（2） 总体设计：填充颜色 计算定积分绘制曲线（3）详细设计：开始设计界面绘制图形输入a、b的值填充所求区域求定积分结束关键技术1用累计梯形面积法求定积分Function fun#(x#) 函数过程 fun = x * x * x + 1End FunctionFunction jifen#(ByVal

4、 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 ijifen = sum 面积总和赋值到jifenEnd Function2绘制图形Private Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawWidth = 2 设置绘制的线宽 Line

5、(-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 xEnd Sub窗体-查询：2

6、填充所求区域For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue 用蓝色直线填充积分面积区域 Next x窗体-查询：总结 这次课设我的题目是绘制曲线并求定积分，通过这次课设让我了解了VB与数学知识之间有很大的联系，比如这个题目就要用数学中的累计面积法求定积分，让我学到编写程序要简单易懂，但要达到效果。界面安排要得当，达到美光。不然杂乱无章，自己也无法看懂，更谈何给他人讲解呢。 在课设过程中，我遇到了重重困难，例如：在绘制图形时，图像不能显示，界面过小不能显示全部内容，运行另一指令，把前面的图像覆盖了，而且

7、缺少了左半部分，通过老师的指点和自己查阅资料，修改了部分程序，界面修改下合理化，最终顺利的完成了任务。 同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。完整的源程序Private Sub Command2_Click()End End SubFunction fun#(x#) fun = x * x * x + 1End FunctionFunction jifen#(ByVal a#, ByVal b#, ByVal n&) Dim sum#, s#, h#, x# h = (b - a) / n For i = 0 To n -

8、 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum End FunctionPrivate Sub Command3_Click() Dim a%, b% a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = jifen(a, b, 100) Form1.Scale (-7.5, 10)-(7.5, -10) Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) For i = -7 To

9、 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 For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue Next xEnd SubPrivate Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawWidth = 2

10、 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print X CurrentX = 0.5: CurrentY = 9.3: Print 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 xEnd Sub参考文献1 刘瑞新Visual