Private Sub Command1_Click() Dim x As Single,y As Single Pic
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/19 15:22:26
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)
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
错误提示必选参数,哪里错 了呀.
Picture1.PSet (x,-y),RGB(0.255,0),这一行出错了,把(0.255,0)中第一零后的点改成逗成(,)就行了
Private Sub Command1_Click() Dim x As Single,y As Single Pic
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin
Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In
Private Sub Command1_Click() Dim i As Double,M As Double,L A
Private Sub Command1_Click() Dim i As Integer,s As Integer,n
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp