窗体中心为圆心，随机长为半径，每0.5s打印一个红色的圆。用VB作

Dim MaxLen As Single
Dim R As Single

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

Private Sub Form_Resize()
Form1.Cls
End Sub

Private Sub Timer1_Timer()
If Form1.Width > Form1.Height Then
MaxLen = Form1.Width
Else
MaxLen = Form1.Height
End If

R = Int((MaxLen - 0 + 1) * Rnd + 0) / 2

Circle (Form1.Width / 2, Form1.Height / 2), R, vbRed
End Sub

新建个窗体，脱一个Timer上去就行了
希望能培养你对VB的兴趣
好好学习
以后这样的自己搞定就可以了
要相信自己呀～

语3+李自成25元，红梦160元。一共是185元。加毁灭5元、拿破仑10元、王若飞4元，19元八五折为17元。一共是202元；还有复活两套30元，八五折为25，一共是225