Private Sub Command1-Click() Dim x As Single,y As Single Pic

Private Sub Command1_Click() Dim x As Single,y As Single Picture1.Circle (0,0),80,RGB(255,0,0)Private Sub Command1_Click()Dim x As Single,y As SinglePicture1.Circle (0,0),80,RGB(255,0,0)Picture1.FillStyle = 0:Picture1.FillColor = vbYellowPicture1.Circle (Picture1.ScaleLeft + Picture1.ScaleWidth / 2,Picture1.ScaleTop + Picture1.ScaleHeight / 2),40,RGB(0,0,255)Picture1.FillColor = vbGreenFor x = -60 To 60 Step 0.01y = Sqr(3600 - x * x)Picture1.PSet (x,y),RGB(0,255,0)Picture1.PSet (x,-y),RGB(0.255,0)Next xEnd SubPrivate Sub Form_Load()Picture1.Width = Picture1.HeightPicture1.Scale (-100,100)-(100,-100)End Sub错误提示必选参数,哪里错 了呀.