求VB游戏代码

公共

神经网络

如同

长的

公共

n

如同

长的

公共

x，

y

如同

长的

私人的

潜水艇

Form_Load()

神经网络

=

n

=

1

' ' Picture1(i)。画

=

"图片地址"

图片1(i)。宽度

=

300

图片1(i)。高度

=

300

定时器1。间隔

=

100

定时器1。使能够

=

真实的

Label1。标题

=

Picture1(0)。看得见的

=

错误的

结束

潜水艇

私人的

潜水艇

Picture1_Click(索引

如同

整数)

神经网络

=

神经网络

+

1

倾销

图片1(索引)

Label1。标题

=

神经网络

结束

潜水艇

私人的

潜水艇

定时器1 _定时器()

使不规则化

x

=

Int((Form1。宽度

-

300

+

1)

*

Rnd

+

300)

y

=

Int((Form1。高度

-

1800

+

1)

*

Rnd

+

1000)

负荷

图片1(n)

图片1(n)。左边的

=

x

图片1(n)。顶端

=

y

图片1(n)。看得见的

=

真实的

n

=

n

+

1

如果

nn & gt=200

然后

timer1.enable=false

执行语句

结束

如果

结束

潜水艇

在窗户上玩随机砖块游戏