用VB制作李萨如图形动态演示程序[组图](4)
Next j End If i = i + 1 If i 900 Then i = 1 End Sub 4 程序的运行 图2是程序界面和程序运行时的情况。 图2 程序的运行结果 笔者对程序进行了大量的调试。结果表明，
Next j
End If
i = i + 1
If i > 900 Then i = 1
End Sub
4 程序的运行
图2是程序界面和程序运行时的情况。
图2 程序的运行结果
笔者对程序进行了大量的调试。结果表明，用这种方法制作动画，程序简单，运行流畅，并且用此方法制作动态演示在编程上也易于实现。
笔者在编制动态演示程序的时候，经常会遇到类似的情况，即动态演示过程中出现部分图形被擦除的现象。使用数组保存图形数据不失为制作此类动画演示程序的一种比较简单易行的方法。
以上程序在Windows XP和VB6.0下调试通过。
精彩图集
精彩文章