VB设计数学函数.docxVIP

定义在picture中,输入a,b,c等参数值,如果绘制例如线性函数,二次函数,三角函数的图象?谁能给些参考代码和注解?Option ExplicitDim i, j As DoublePrivate Sub Command1_Click() Picture1.Font = times new roman Picture1.FontItalic = True Picture1.FontSize = 10 设置字体 Picture1.Scale (-100, 100)-(100, -100) 设置坐标轴标尺为100 Picture1.Line (-100, 0)-(100, 0) Picture1.Line (95, 3)-(100, 0) Picture1.Line (95, -3)-(100, 0) Picture1.CurrentX = 90 Picture1.CurrentY = 15 Picture1.Print x 画X轴及箭头 Picture1.Line (0, 100)-(0, -100) Picture1.Line (3, 95)-(0, 100) Picture1.Line (-3, 95)-(0, 100) Picture1.CurrentX = 5 Picture1.CurrentY = 95 Picture1.Print y 画Y轴及箭头 Picture1.CurrentX = -7 Picture1.CurrentY = 0 Picture1.Print O 画原点 Command2.Enabled = True Command3.Enabled = True Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() For i = -100 To 100 Step 0.1 j = -0.1 * i * i + 6 * i - 10 Picture1.PSet (i, j), vbRed Next i 画y=-0.1x^2+6x-10的图像End SubPrivate Sub Command3_Click() For i = -100 To 100 Step 0.1 j = 100 * Sin(i * 3.1416 / 180) Picture1.PSet (i, j), vbBlue Next i 画y=100sinx的图像End Sub自己动手做一个数学函数作图器学习中我们经常会碰到一些要求作图的题目，数学就是一个很好的例子，君不见，哪一个学生不是整天拿着一根尺子几只笔在画啊画的？要是能有一个作图的软件该有多好啊！虽然拿来主义是我们一向的作风，可是只顾拿来而从不动一下脑筋又有点儿说不过去，所以，今天的课题就是——用VB做一个数学函数作图器！我们先来了解一下VB的坐标系统，VB的坐标系统可分为“窗体的坐标系统”和“对象的坐标系统”两种，但是这两种坐标系统均是以屏幕的左上角为原点，这和我们平时所选取的以中心为原点显然很不相符，而且使用起来也很不方便。所以，我们要用VB提供的Scale来自定义坐标系，格式如: Picture1.Scale-，意思就是把整个Picture1控件定义为一个20×20的区域用于绘图，以Picture1的中心为原点。有了上面的基础，我们就可以用Pset（画点）、Line（画线）等，轻轻松松地来画函数的图像了。启动VB，建立一标准EXE工程，再在窗口上如图所示地布置5个Command Button控件和1个PictureBox控件，输入以下的代码就OK了。Const Pi = 3.1415926535 ‘‘定义圆周率Dim a， wor‘‘定义用于在Picture1上的一个位置打印字符函数Private Function PrintWordWith Picture1.CurrentX = X.CurrentY = Y.ForeColor = RGBEnd WithPicture1.Print WordEnd Function‘‘定义画点函数Private Function DrawDotPicture1.PSet ， ColorEnd FunctionSub XY ‘‘建立直角坐标系Picture1.DrawWidth = 1 ‘‘设置线条宽度Picture1.Cls‘‘设定用户坐标系，坐标原点在Picture1中心Picture1.Scale -Picture1.Line -， RGBPicture1.Line -， RGBPicture1.Line -， RGBPicture1.ForeColor = RGBPicture1.