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

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

2、Click()Public Function f(ByVal X!) Private Sub Form_Click()画小矩形和梯形矩形法和梯形法求积分三、部分程序关键源代码及注释Private Sub Form_Click() Dim i As Single Const pi As Single = 3.1415926 定义常数 Picture1.ScaleMode = 3 Picture1.Scale (-2 * pi, 2)-(2 * pi, -2) 自定义坐标系 Picture1.DrawWidth = 3 Picture1.Line (0, -2)-(0, 2) Picture1.L

3、ine (-2 * pi, 0)-(2 * pi, 0) 绘制X，Y坐标轴 Picture1.DrawWidth = 8 Picture1.PSet (0, 0), RGB(225, 0, 0) 蓝色 Picture1.ForeColor = RGB(225, 0, 0) Picture1.CurrentX = 0.1 Picture1.CurrentY = -0.1 Picture1.Print "O" 注释原点文字 Picture1.ForeColor = RGB(225, 0, 0) Picture1.DrawWidth = 2 For i = -2 * pi To

4、2 * pi Step 0.001 Picture1.PSet (i, f(i) 绘制曲线 If Picture1.Point(i, f(i) = &HFF& Then Picture1.ForeColor = &HFF00& Else Picture1.ForeColor = &HFF& 交替变换曲线的像素点 End If Next i End Sub四、设计方案的完善及目前存在的问题1设计方案要完善的地方 函数曲线的平移。 函数曲线的放大和缩小。 辛普生法求积分的方法。2. 目前存在的问题 函数曲线不能平移。 函数曲线不能放大和缩小。 没有掌握辛普生法求积分的方法。五、本次设计的收获及心得体会 通过这次的设计活动使我对VB 的设计理念有了更深的认识和理解。当看着自己的设计成果时，有一种强烈的成就感。对VB的兴趣空前的提高。 六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议题目的设计很合理，既没有超出我们所学的范围，又没有让我们感到无能为力。甚好甚好！2对本次设计的意见