资源描述：
《绘制曲线并求定积分 vb课设》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、沈阳航空航天大学课程设计学号2011040601429 班级14060109姓名熊俊 指导教师 杨煦2013年6月24日沈航设计用纸沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械师及制造班级：14060109学号：2011040601429题目：绘制曲线并求定积分一、课程设计时间2013年6月17日~6月21日（第17周），共计1周。二、课程设计内容绘制曲线y=x3+1，并用“累计梯形面积”法求定积分的值，要求所求区间的面积区域用蓝色填充。用户界面中的菜单(或命令按钮)至少应包括“输入a和b的值”
2、、“绘制曲线”、“求定积分”、“退出”4项。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语第11页，共11页沈航设计用纸目录需求分析4设计分析4关键技术6总结9完整的源程序10参考文献11第11页，共11
3、页沈航设计用纸需求分析绘制曲线并求定积分，主要任务就是把y=x*x*x+1的曲线绘制出来与确定a、b的值后求定积分的值并把这部分的面积用蓝色填充要求：①用户界面中的菜单(或命令按钮)至少应包括“输入a和b的值”、“绘制曲线”、“求定积分”、“退出”4项②能够打开程序点击绘制曲线就能把y=x*x*x+1的曲线显示出来。③输入a、b的值点击求定积分就能把值显示并把所对应的面积用蓝色填充。④蓝色填充后原来的函数曲线保留。设计分析（1）基本原理：“累计梯形面积”法求定积的值与用图形操作技术绘制图形与填充颜色。（2）总体设
4、计：第11页，共11页沈航设计用纸填充颜色计算定积分绘制曲线（3）详细设计：开始设计界面绘制图形输入a、b的值填充所求区域求定积分结束第11页，共11页沈航设计用纸关键技术1用"累计梯形面积"法求定积分Functionfun#(x#)'函数过程fun=x*x*x+1EndFunctionFunctionjifen#(ByVala#,ByValb#,ByValn&)'函数过程Dimsum#,s#,h#,x#'变量声明h=(b-a)/n'"累计梯形面积"法求定积分Fori=0Ton-1x=a+i*hs=h*(fun(
5、x)+fun(x+h))/2sum=sum+sNextijifen=sum'面积总和赋值到jifenEndFunction2绘制图形PrivateSubcommand1_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)第11页，共11页沈航设计用纸CurrentX=7.3:CurrentY=0.2:Print"X"'标记X轴CurrentX=0.5:CurrentY=9
6、.3:Print"Y"'标记Y轴Fori=-7To7Line(i,0)-(i,0.1)CurrentX=i-0.2:CurrentY=-0.1:PrintiNextiForx=-7To7Step0.005y=x*x*x+1PSet(x,y)NextxEndSub窗体-查询：第11页，共11页沈航设计用纸2填充所求区域Forx=aTobStep0.005Form1.Line(x,0)-(x,x*x*x+1),vbBlue'用蓝色直线填充积分面积区域Nextx窗体-查询：第11页，共11页沈航设计用纸总结这次课设我的
7、题目是绘制曲线并求定积分，通过这次课设让我了解了VB与数学知识之间有很大的联系，比如这个题目就要用数学中的累计面积法求定积分，让我学到编写程序要简单易懂，但要达到效果。界面安排要得当，达到美光。不然杂乱无章，自己也无法看懂，更谈何给他人讲解呢。在课设过程中，我遇到了重重困难，例如：在绘制图形时，图像不能显示，界面过小不能显示全部内容，运行另一指令，把前面的图像覆盖了，而且缺少了左半部分，通过老师的指点和自己查阅资料，修改了部分程序，界面修改下合理化，最终顺利的完成了任务。同时我也了解了VB的出现是一场技术革命，它
8、在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。第11页，共11页沈航设计用纸完整的源程序PrivateSubCommand2_Click()EndEndSubFunctionfun#(x#)fun=x*x*x+1EndFunctionFunctionjifen#(ByVala#,ByValb#,ByValn&)Dimsum#,s#,h#,x#h=(b
