function firework(X as integer,Y as integer) point x,y for a=1 to 255 point x-a,y-a point x+a,y-a point x+a,y+a point x-x,y+a point x,y-a point x,y+a point x-a,y point x+a,y next a end function private sub timer1_timer() firework(rnd*form1.scalewidth,_ rnd*form1.scaleheight) print "XX公司联欢晚会" end sub。