UC知道vb!!!!!!!!!
来源：百度知道 编辑：UC知道 时间：2024/05/09 12:19:58
我们学校在学画同心圆（并且颜色逐渐变绿），可我画不出。。。。请高人点拨一下。。
看看有什么错
Private Sub Form_Activate()
For a = 1 To 1000 Step 50
Next a
For x = 1 To 255 Step 20
Next x
Circle (3000, 2000), a, RGB(0, x, 0)
End Sub
看看有什么错
Private Sub Form_Activate()
For a = 1 To 1000 Step 50
Next a
For x = 1 To 255 Step 20
Next x
Circle (3000, 2000), a, RGB(0, x, 0)
End Sub
崩溃！！！！
起码应该这样吧
Private Sub Form_Activate()
For a = 1 To 1000 Step 50
For x = 1 To 255 Step 20
Circle (3000, 2000), a, RGB(0, x, 0)
Next x
Next a
End Sub
Private Sub Form_Activate()
For i = 0 To 255
Circle (2000, 2000), i * 4, RGB(0, i, 0)
Next i
End Sub