介绍一个小而有趣的VB程序代码。

只需粘贴以下代码。您不需要添加任何控件

私人？WithEvents？Timer1？作为？计时器

暗淡？r & amp,?r 1 & amp；,?t & amp,?a1！,?a2！,?xb！,?yb！,?s！,?b#

私人？Sub？Form_Load()

我。宽度？=?4500:?我。身高？=?4500

我。搬家？(屏幕。宽度？-?我。宽度)？\?2,?(屏幕。身高？-?我。身高)？\?2

我。自动提款？=?真实的

我。标题？=?“CBM666万花筒”

设置？Timer1？=?控制。Add("vb.timer "，"定时器1 ")

定时器1。区间？=?10

结束？潜水艇

私人？Sub？定时器1 _定时器()

使不规则化

r？=?340?*?Rnd

如果？r？& lt& gt？0?然后

r1？=?500

s？=?r？*?Rnd

b？=?RGB(256？*?Rnd，？256?*?Rnd，？256?*?Rnd)

为了什么？t？=?1?去哪？10000

a1？=?t？*?3.1415926?/?180

a2？=?(r1？/?r)？*?a1

xb？=?500?+?(-(r1？-?r)？*?Cos(a1)？-?s？*?Cos(a2？-?a1)？+?420)?*?四

yb？=?500?+?((r1？-?r)？*?罪(a1)？-?s？*?罪(a2？-?a1)？+?380)?*?四

我。PSet？(xb，？yb)，？b

下一个？t

结束？如果

结束？潜水艇