Question

vb中在任意位置画圆，半径在500以内，颜色随机变化

空心圆，需要写出代码 拜托了

Answer 1

Private Sub Command1_Click()
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Randomize (Timer)
  Circle (Rnd * Me.Width, Rnd * Me.Height), Rnd * 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Answer 2

'窗体拖入一个按钮、一个计时器
'复制以下代码

Private n As Integer
Private Sub draw()
w = Me.Width
h = Me.Height
Randomize
Dim x As Long
Dim y As Long
Dim r As Long
Dim rgb_r As Integer
Dim rgb_g As Integer
Dim rgb_b As Integer
rgb_r = Int(256 * Rnd)
rgb_g = Int(256 * Rnd)
rgb_b = Int(256 * Rnd)
r = Int(51 * Rnd + 100)
Randomize
x = Int(Rnd() * w)

y = Int(Rnd() * h)
Me.Circle (x, y), r, RGB(rgb_r, rgb_g, rgb_b)
End Sub

Private Sub Command1_Click()
If Me.Command1.Caption = "开始绘图" Then
Me.Cls
n = 0
Me.Timer1.Enabled = True
Me.Command1.Caption = "停止绘图"
Else
n = 0
Me.Timer1.Enabled = False
Me.Command1.Caption = "开始绘图"
End If
End Sub

Private Sub Form_Load()
n = 0
Me.Command1.Caption = "开始绘图"
Me.Timer1.Interval = 100
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
n = n + 1
If n <= 100 Then
Me.Command1.Caption = "停止绘图"
Call draw
Else
Me.Timer1.Enabled = False
Me.Command1.Caption = "开始绘图"
End If
End Sub

Answer 3

是实心圆还是空心圆呢？

追问

空心的哦