Question

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 Single
Picture1.Circle (0, 0), 80, RGB(255, 0, 0)
Picture1.FillStyle = 0: Picture1.FillColor = vbYellow
Picture1.Circle (Picture1.ScaleLeft + Picture1.ScaleWidth / 2, Picture1.ScaleTop + Picture1.ScaleHeight / 2), 40, RGB(0, 0, 255)
Picture1.FillColor = vbGreen
For x = -60 To 60 Step 0.01
y = Sqr(3600 - x * x)
Picture1.PSet (x, y), RGB(0, 255, 0)
Picture1.PSet (x, -y), RGB(0.255, 0)
Next x
End Sub

Private Sub Form_Load()
Picture1.Width = Picture1.Height
Picture1.Scale (-100, 100)-(100, -100)
End Sub
错误提示必选参数，，哪里错 了呀。。。

Answer 1

Picture1.PSet (x, -y), RGB(0.255, 0),这一行出错了，把(0.255,0)中第一零后的点改成逗成(,)就行了

Answer 2

第十一行
Picture1.PSet (x, -y), RGB(0.255, 0)
中RGB(0.255, 0)第一个0后是 , 不是 .