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.Cir
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 16:10:17
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.Cir
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
错误提示必选参数,哪里错 了呀.
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.Cir
Picture1.PSet (x,-y),RGB(0.255,0),这一行出错了,把(0.255,0)中第一零后的点改成逗成(,)就行了