双击刚才插入的按钮，弹出的代码窗口我们输入如下代码：Private Sub Command1_Click()Dim x, y As SinglePicture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001y = x ^ 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub