Question

vb程序设计，每隔0.1秒以随机的颜色和随机的半径在窗体上绘制同心圆？

Answer 1

添加一个定时器即可

Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    Call drew_yuan(Me.Width / 2, Me.Height / 2, Int(Rnd(1) * Me.Height / 2), RGB(Rnd * 256, Rnd * 256, Rnd * 256))
End Sub
Sub drew_yuan(x As Long, y As Long, r As Long, ys As Long)
    Me.Circle (x, y), r, ys
End Sub