Private Sub Command1_Click()
Dim x, y As Single
Picture1.Scale (-10, 25)-(10, -25)
Picture1.Line (-10, 0)-(10, 0), RGB(255, 0, 0)
Picture1.Line (0, -25)-(0, 25), RGB(255, 0, 0)
For x = -10 To 10 Step 0.0001
y = x ^ 2 ‘可修改此处的表达式,得出不同函数的图像,如y=x^2+5,y=sin(x)等;修改后观察图像的变化。
Picture1.PSet (x, y), RGB(0, 0, 255)
Next x
End Sub
修改后代码:
Private Sub Command1_Click()
Dim x, y As Single
Picture1.Scale (-10, 25)-(10, -25)
Picture1.Line (-10, 0)-(10, 0), RGB(255, 0, 0)
Picture1.Line (0, -25)-(0, 25), RGB(255, 0, 0)
For x = -10 To 10 Step 0.0001
y = x ^ 2
Y1 = x ^ 2 + 5
Y2 = (x + 2) ^ 2
Picture1.PSet (x, y), RGB(0, 0, 255)
Picture1.PSet (x, Y1), RGB(255, 0, 0)
Picture1.PSet (x, Y2), RGB(0, 255, 0)
Next x
End Sub