VB课程设-20-050371-求积分.doc

《VB课程设-20-050371-求积分.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、此文档收集于网络，如有侵权，请联系网站删除求积分设计报告学院机械学院班级机设054学号050371姓名白志军成绩一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力。②培养学生利用VB的标准控件的能力。③培养学生使用基本算法进行应用程序设计的技能。④锻炼学生自己动手独立思考的能力。⑤锻炼学生的创新思维。2.关键问题的解决①函数的选择通过使用Combobox控件来实现的。②积分方法的选择通过使用Option控件来实现的。③函数曲线的绘制使用了Pset方法。（其实很简单哦！）④积分小矩形或小梯形通过Line方法实现的。（好难啊！）二、模块之间的调用关系，或程序流

2、程图调用调用调用调用Command1_Click()PublicFunctionf(ByValX!)PrivateSubForm_Click()画小矩形和梯形矩形法和梯形法求积分三、部分程序关键源代码及注释PrivateSubForm_Click()DimiAsSingleConstpiAsSingle=3.1415926‘定义常数∏Picture1.ScaleMode=3Picture1.Scale(-2*pi,2)-(2*pi,-2)‘自定义坐标系Picture1.DrawWidth=3Picture1.Line(0,-2)-(0,2)Picture1.Line(-2*pi

3、,0)-(2*pi,0)‘绘制X，Y坐标轴Picture1.DrawWidth=8Picture1.PSet(0,0),RGB(225,0,0)‘蓝色Picture1.ForeColor=RGB(225,0,0)Picture1.CurrentX=0.1Picture1.CurrentY=-0.1Picture1.Print"O"注释原点文字Picture1.ForeColor=RGB(225,0,0)Picture1.DrawWidth=2Fori=-2*piTo2*piStep0.001此文档仅供学习与交流此文档收集于网络，如有侵权，请联系网站删除Picture1.PSet

4、(i,f(i))绘制曲线IfPicture1.Point(i,f(i))=&HFF&ThenPicture1.ForeColor=&HFF00&ElsePicture1.ForeColor=&HFF&交替变换曲线的像素点EndIfNextiEndSub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①函数曲线的平移。②函数曲线的放大和缩小。③辛普生法求积分的方法。2.目前存在的问题①函数曲线不能平移。②函数曲线不能放大和缩小。③没有掌握辛普生法求积分的方法。五、本次设计的收获及心得体会通过这次的设计活动使我对VB的设计理念有了更深的认识和理解。当看着自己的设计成果时，

5、有一种强烈的成就感。对VB的兴趣空前的提高。六、对该题目和VB设计的意见和建议1.对该题目的意见和建议题目的设计很合理，既没有超出我们所学的范围，又没有让我们感到无能为力。甚好甚好！！！2．对本次设计的意见和建议创新要求的加入是本设计的亮点，既满足了一部分知识面广的学生的口味，又能让那些知识掌握不扎实的学生动手，各取所需，各尽所能。快哉快哉！！！此文档仅供学习与交流