火焰的代码 Sub 火焰() For X = 0 To 639 '准备火焰基座 Pict(X, 477) = Rnd * 220 + 35 Pict(X, 478) = Rnd * 220 + 35 Pict(X, 479) = Rnd * 220 + 35 Next Accum = 0 '显示火焰,向上燃烧 For X = 1 To 638 '横坐标控制 For Y = 0 To 477 '纵坐标控制(当前表示满屏刷新) '延续式写法 'Accum = (Accum + Pict(X, Y + 1) _ + Pict(X, Y + 2) _ + Pict(X + 1, Y + 1) _ + Pict(X - 1, Y + 1)) \ 5 Accum = (Accum + Pict(X, Y + 1) + Pict(X, Y + 2) + Pict(X + 1, Y + 1) + Pict(X - 1, Y + 1)) \ 5 'Accum = Y / 2 + X / 2 If Accum < 0 Then Accum = 0 ElseIf Accum > 255 Then Accum = 255 End If Pict(X, Y) = Accum Next Next End Sub