VB画同心圆程序，每隔一秒钟在窗体中央画60个（两圆间距50）颜色随机的同心圆，当有鼠标按下时，结束程序

来源：百度知道 编辑：UC知道 时间：2024/06/20 06:31:46
谢谢

Dim i As Integer
Dim j As Integer

Private Sub Form_Load()
j = 0
For i = 0 To 60
Me.Circle (10000, 10000), j, RGB((255 + 1) * Rnd, (255 + 1) * Rnd, (255 + 1) * Rnd)
j = j + 50
Next
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub

Private Sub Timer1_Timer()

For i = 0 To 60
Me.Circle (10000, 10000), j, RGB((255 + 1) * Rnd, (255 + 1) * Rnd, (255 + 1) * Rnd)
j = j + 50
Next
End Sub
窗体上放timer控件

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 16
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub

Private Sub Timer1_Timer()
Static i
Randomize
Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), i,