烟花烟火模拟程序

模拟放烟火的程序

从地面放到空中，爆炸后消失

FB源码（VFB源码，在勇芳编程群里下载）

Const Pi = 4 * Atn(1)
Dim Shared As Double TwoPi = 8 * Atn(1)
Dim Shared As Double RtoD = 180 / Pi   ' radians * RtoD = degrees
Dim Shared As Double DtoR = Pi / 180   ' degrees * DtoR = radians