超级兵王混都市txt微盘:画函数曲线y=x2程序

来源:百度文库 编辑:中财网 时间:2024/05/05 21:54:26
 算法:解决方法是:让二次函数方程y=x2的x值由-5变化到5,每变化一次的变化量是0.0001,然后求出y值,再将求出的x,y值作为坐标来画点。 y=4x 2  x肺动脉TR Private Sub Command1_Click()                         ‘事件

Dim x, y As Single                                       ‘定义变量

Picture1.Scale (-10, 25)-(10, -25)                ‘定义坐标系

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) ‘画x坐标轴

Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) ‘画y坐标轴

‘描点画函数图像

For x = -5 To 5 Step 0.0001

y = x ^ 2

Picture1.PSet (x, y), RGB(255, 0, 0)

Next x

End Sub