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/07/21 20:28:37
![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](/uploads/image/z/13968860-68-0.jpg?t=Private+Sub+Command1_Click%28%29+Dim+x+As+Single%2Cy+As+Single+Picture1.Circle+%280%2C0%29%2C80%2CRGB%28255%2C0%2C0%29Private+Sub+Command1_Click%28%29Dim+x+As+Single%2Cy+As+SinglePicture1.Circle+%280%2C0%29%2C80%2CRGB%28255%2C0%2C0%29Picture1.FillStyle+%3D+0%3APicture1.FillColor+%3D+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 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)中第一零后的点改成逗成(,)就行了