Question

VB编写函数用PSET方法画

函数图形程序。用PSET方法在图形框picture1内绘制y=sinx在-pai到pai之间的图形。如图

Answer 1

大神教你写，一模一样 ，的

Private Sub Command1_Click()

    Picture1.Scale (-4, 2)-(4, -2)

    Picture1.Line (-4, 0)-(4, 0), vbRed

    Picture1.Line (0, -2)-(0, 2), vbRed

    Dim x As Single

    For x = -3.14 To 3.14 Step 0.01

        Picture1.PSet (x, Sin(x)), vbBlue

    Next

    Picture1.PSet (-3.14, 0), vbRed

    Picture1.Print "-π"

    Picture1.PSet (3.14, 0), vbRed

    Picture1.Print "π"

    Picture1.PSet (0, -1), vbRed

    Picture1.Print -1

    Picture1.PSet (0, 1), vbRed

    Picture1.Print 1

End Sub

Private Sub Command2_Click()

    End

End Sub

追问

好高手啊，大神，还有一条啊如何画