VB求积分设计报告.doc

求积分设计报告 学院 班级 学号 姓名 成绩 一、设计思路 1.要达到的目的 ① 能够完成常用内部函数的绘制。 ②能够在Picturebox控件中完成自定义坐标系，包括绘制原点及添加注释性文字，如所选曲线的名称“迷彩抛物线”等。坐标轴和文字的颜色可自定。 ③曲线的像素点的颜色要求包括两种以上的颜色。 ④“范围”框架处要求根据所绘制的曲线段给出最佳显示范围，以便使积分曲线达到最佳的可视化。 2.关键问题的解决 ①求积分至少使用“矩形法”、 “梯形法”和“辛普森法”三种方法。 ②函数的选择要求使用Combobox 控件实现。 ③积分方法的选择要求使用Option控件实现。 ④函数曲线的绘制可以使用Line方法或Pset方法。 ⑤积分小矩形或小梯形使用Line方法实现。 二、模块之间的调用关系，或程序流程图 （不含曲线平移和缩放） 三、部分程序关键源代码及注释 载入函数 Private Sub Form_Load() Combo1.AddItem sin(x) Combo1.AddItem x^2 End Sub Picture1.Cls Picture1.BackColor = RGB(0, 0, 100) Dim i As Single 自定义坐标系 Picture1.ScaleMode = 3 Picture1.Scale (-m - 3, m * m + 2)-(m + 3, -2) Picture1.ForeColor = RGB(255, 255, 0) Picture1.DrawWidth = 3 绘制X,Y坐标轴 Picture1.Line (0, m * m + 2)-(0, -2) Picture1.Line (-m - 3, 0)-(m + 3, 0) 绘制原点 Picture1.DrawWidth = 4 Picture1.PSet (0, 0), RGB(0, 0, 255) Picture1.ForeColor = RGB(255, 0, 0) 为原点注释文字 Picture1.CurrentX = 0.1 Picture1.CurrentY = -0.1 Picture1.Print O 为曲线注释文字 Picture1.CurrentX = 1 Picture1.CurrentY = -1 Picture1.Print 迷彩抛物线 绘制抛物线 For i = -m - 3 To m + 3 Step 0.001 Picture1.PSet (i, i * i) 交替变换抛物线的像素点颜色 If Picture1.Point(i, i * i) = HFF Then Picture1.ForeColor = HFF00 Else Picture1.ForeColor = HFF End If Next I ‘求积分 a = Val(Text1) b = Val(Text2) h = 0.2 Picture1.CurrentX = a Picture1.CurrentY = a * a Picture1.FillStyle = 0 Picture1.ForeColor = RGB(255, 255, 0) jifen = 0 矩形法求积分 If k = 0 Then For i = 1 To (b - a) / h Picture1.Line -(a + i * h, 0), , B 画小矩形 Picture1.CurrentX = a + i * h Picture1.CurrentY = (a + i * h) * (a + i * h) 准备下一个起点 jifen = jifen + (a + i * h) * (a + i *